diff --git a/racket/collects/planet/private/command.rkt b/racket/collects/planet/private/command.rkt
index cd5481406b..c36d5c9a96 100644
--- a/racket/collects/planet/private/command.rkt
+++ b/racket/collects/planet/private/command.rkt
@@ -82,9 +82,10 @@
                                   (newline)
                                   (display "Usage:\n")
                                   (display help-string)
-                                  (exit))))] ...
-                                  ["help" (help)]
-                                  [else (help)])))))]))
+                                  (exit))))]
+                            ...
+                            ["help" (help)]
+                            [else (begin (help) (exit 1))])))))]))
 
 
 ;; display-help-message : string string (listof (list string string)) -> void