@@ -478,11 +478,11 @@
 	       (lbs     '()))
       (let* ((lb (let ((lb (list-ref key-listboxes indx)))
 		   (if lb
 		       lb
 		       (iup:listbox 
-			;; #:size "x10" 
+			#:size "45x50" 
 			#:fontsize "10"
 			#:expand "YES" ;; "VERTICAL"
 			;; #:dropdown "YES"
 			#:editbox "YES"
 			#:action (lambda (obj a b c)
@@ -753,10 +753,11 @@
 					      (dboard:lines->test-patt b))
 					     (dashboard:update-run-command))
 				  #:value (dboard:test-patt->lines
 					   (dboard:data-get-test-patts *data*))
 				  #:expand "YES"
+				  #:size "x50"
 				  #:multiline "YES")))
 	     (set! test-patterns-textbox tb)
 	     tb))
 	  (iup:frame
 	   #:title "Target"
@@ -804,11 +805,11 @@
 		    ;; Following doesn't work 
 		    ;; #:wheel-cb (make-canvas-action
 		    ;;           (lambda (cnv xadj yadj)
 		    ;;    	 ;; (print "cnv: " cnv " x: " x " y: " y)
 		    ;;    	 (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
-		    #:size "150x150"
+		    ;; #:size "50x50"
 		    #:expand "YES"
 		    #:scrollbar "YES"
 		    #:posx "0.5"
 		    #:posy "0.5"
 		    #:button-cb (lambda (obj btn pressed x y status)
@@ -1365,14 +1366,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*))