diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.ss
index 2ea93be..c4e1d13 100644
--- a/collects/mzlib/cmdline.ss
+++ b/collects/mzlib/cmdline.ss
@@ -337,10 +337,7 @@
 		(list #f (list "--help" "-h")
 		      (lambda (f)
 			(let* ([sp (open-output-string)])
-			  (fprintf sp "~a~a" program
-				   (if (null? table)
-				       ""
-				       " [ <flag> ... ]"))
+			  (fprintf sp "~a [ <flag> ... ]" program)
 			  (print-args sp finish-help finish)
 			  (fprintf sp "~n where <flag> is one of~n")
 			  (for-each