diff --git a/guix/read-print.scm b/guix/read-print.scm
index 65b8cce37d..a9aa57a476 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -277,7 +277,7 @@ expressions and blanks that were read."
    ('lambda 2)
    ('lambda* 2)
    ('match-lambda 1)
-   ('match-lambda* 2)
+   ('match-lambda* 1)
    ('define 2)
    ('define* 2)
    ('define-public 2)