diff --git a/guix/ui.scm b/guix/ui.scm
index 7a37ad2cee90638a07060b77e91161d639e53a9b..cd32bfe079d7c16db6bf588fa6e2f5ce542c2fec 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -214,24 +214,24 @@ (define* (show-what-to-build store drv
     (if dry-run?
         (begin
           (format (current-error-port)
-                  (N_ "~:[the following derivation would be built:~%~{   ~a~%~}~;~]"
-                      "~:[the following derivations would be built:~%~{   ~a~%~}~;~]"
+                  (N_ "~:[The following derivation would be built:~%~{   ~a~%~}~;~]"
+                      "~:[The following derivations would be built:~%~{   ~a~%~}~;~]"
                       (length build))
                   (null? build) build)
           (format (current-error-port)
-                  (N_ "~:[the following file would be downloaded:~%~{   ~a~%~}~;~]"
-                      "~:[the following files would be downloaded:~%~{   ~a~%~}~;~]"
+                  (N_ "~:[The following file would be downloaded:~%~{   ~a~%~}~;~]"
+                      "~:[The following files would be downloaded:~%~{   ~a~%~}~;~]"
                       (length download))
                   (null? download) download))
         (begin
           (format (current-error-port)
-                  (N_ "~:[the following derivation will be built:~%~{   ~a~%~}~;~]"
-                      "~:[the following derivations will be built:~%~{   ~a~%~}~;~]"
+                  (N_ "~:[The following derivation will be built:~%~{   ~a~%~}~;~]"
+                      "~:[The following derivations will be built:~%~{   ~a~%~}~;~]"
                       (length build))
                   (null? build) build)
           (format (current-error-port)
-                  (N_ "~:[the following file will be downloaded:~%~{   ~a~%~}~;~]"
-                      "~:[the following files will be downloaded:~%~{   ~a~%~}~;~]"
+                  (N_ "~:[The following file will be downloaded:~%~{   ~a~%~}~;~]"
+                      "~:[The following files will be downloaded:~%~{   ~a~%~}~;~]"
                       (length download))
                   (null? download) download)))
     (pair? build)))