@@ -1361,14 +1361,15 @@
 	(begin
 	  (print "ERROR: runid is not a number " (args:get-arg "-run"))
 	  (exit 1)))))
  ((args:get-arg "-test")
   (let ((testid (string->number (args:get-arg "-test"))))
-    (if testid
+    (if (and (number? testid)
+	     (>= testid 0))
 	(examine-test testid)
 	(begin
-	  (print "ERROR: testid is not a number " (args:get-arg "-test"))
+	  (debug:print 3 "INFO: tried to open test with invalid test-id. " (args:get-arg "-test"))
 	  (exit 1)))))
  ((args:get-arg "-guimonitor")
   (gui-monitor *db*))
  (else
   (set! uidat (make-dashboard-buttons *num-runs* *num-tests* *dbkeys*))