diff --git a/guix/read-print.scm b/guix/read-print.scm
index c8849e767b..65b8cce37d 100644
--- a/guix/read-print.scm
+++ b/guix/read-print.scm
@@ -337,7 +337,8 @@ expressions and blanks that were read."
 
    ('services '(operating-system))
    ('set-xorg-configuration '())
-   ('services '(home-environment))))
+   ('services '(home-environment))
+   ('home-bash-configuration '(service))))
 
 (define (prefix? candidate lst)
   "Return true if CANDIDATE is a prefix of LST."