Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -115,14 +115,19 @@
 
 (define *tests-sort-reverse* #f)
 (define *hide-empty-runs* #f)
 
 (define *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)))
 
 (define uidat #f)
 
 (define-inline (dboard:uidat-get-keycol  vec)(vector-ref vec 0))
 (define-inline (dboard:uidat-get-lftcol  vec)(vector-ref vec 1))

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.4607)
+(define megatest-version 1.4608)
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -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
 ;;======================================================================