diff --git a/guix/read-print.scm b/guix/read-print.scm
index 6421b79737d..1f7902c5461 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -350,7 +350,7 @@ expressions and blanks that were read."
    ('swap-space 1)
    ('user-account 1)
    ('user-group 1)
-   ('setuid-program 1)
+   ('privileged-program 1)
    ('modify-services 2)
 
    ;; (gnu home).