diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 0006cbd80f984754904fb761088aedc92931db09..11301ccff28416a8779e1ca4dd8c2f2a69357128 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -846,11 +846,13 @@ (define (show-what-to-remove/install remove install dry-run?)
                                                   (current-error-port)
                                                   (%make-void-port "w"))))
                                 (build-derivations (%store) (list prof-drv)))
-                              (begin
+                              (let ((count (length packages)))
                                 (switch-symlinks name prof)
                                 (switch-symlinks profile name)
-                                (format #t (_ "~a packages in profile~%")
-                                        (length packages))
+                                (format #t (N_ "~a package in profile~%"
+                                               "~a packages in profile~%"
+                                               count)
+                                        count)
                                 (display-search-paths packages
                                                       profile))))))))))