diff --git a/guix/ui.scm b/guix/ui.scm
index ca0d4249ec..6d81475812 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -420,7 +420,7 @@ Run COMMAND with ARGS.\n"))
   (format #t (_ "COMMAND must be one of the sub-commands listed below:\n"))
   (newline)
   ;; TODO: Display a synopsis of each command.
-  (format #t "~{   ~a~%~}" (commands))
+  (format #t "~{   ~a~%~}" (sort (commands) string<?))
   (show-bug-report-information))
 
 (define program-name