@@ -206,14 +206,19 @@
 ;;======================================================================
 ;; Misc setup stuff
 ;;======================================================================
 
 (set! *verbosity* (cond
-		   ((args:get-arg "-debug")(string->number (args:get-arg "-debug")))
+		   ((string? (args:get-arg "-debug"))(string->number (args:get-arg "-debug")))
 		   ((args:get-arg "-v")    2)
 		   ((args:get-arg "-q")    0)
 		   (else                   1)))
+
+(if (not (number? *verbosity*))
+    (begin
+      (print "ERROR: Invalid debug value " (args:get-arg "-debug"))
+      (exit)))
 
 ;;======================================================================
 ;; Misc general calls
 ;;======================================================================