command-line.startup: -help isn't going to be set.

diff --git a/basis/command-line/startup/startup.factor b/basis/command-line/startup/startup.factor
index 3a9b8cd89422fdb50620c5eefbeab505cede7f13..5d5fca126cae3833f7ce5e625858f54bd5c33aee 100644 (file)
--- a/basis/command-line/startup/startup.factor
+++ b/basis/command-line/startup/startup.factor
@@ -36,8 +36,8 @@ from within Factor for more information.
 " write ;
 
 : help? ( -- ? )
-    "help" get "-help" get or "h" get or
-    os windows? [ script get "/?" = ] [ f ] if or ;
+    "help" get "h" get or
+    os windows? [ script get "/?" = or ] when ;
 
 : command-line-startup ( -- )
     (command-line) parse-command-line