diff --git a/guix/read-print.scm b/guix/read-print.scm
index 7faad82c94..690f5dacdd 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -330,6 +330,7 @@ expressions and blanks that were read."
    ('add-after '(((modify-phases) . 3)))
    ('add-before '(((modify-phases) . 3)))
    ('replace '(((modify-phases) . 2)))         ;different from 'modify-inputs'
+   ('parameterize 2)
    ('substitute* 2)
    ('substitute-keyword-arguments 2)
    ('call-with-input-file 2)
diff --git a/tests/read-print.scm b/tests/read-print.scm
index c8b8eb73fe..c1006a8a68 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -173,6 +173,11 @@ expressions."
    'odd)
   (else #f))")
 
+(test-pretty-print "\
+(parameterize ((a 1)
+               (b 2))
+  (call f g h))")
+
 (test-pretty-print "\
 #~(string-append #$coreutils \"/bin/uname\")")