Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1054,16 +1054,17 @@
 		   #:selection-cb
 		   (lambda (obj id state)
 		     ;; (print "obj: " obj ", id: " id ", state: " state)
 		     (let* ((run-path (tree:node->path obj id))
 			    (run-id   (tree-path->run-id (cdr run-path))))
-		       (if run-id
+		       (if (number? run-id)
 			   (begin
 			     (dboard:data-set-curr-run-id! *data* run-id)
-			     (dashboard:update-run-summary-tab)))
+			     (dashboard:update-run-summary-tab))
+			   (debug:print 0 "ERROR: tree-path->run-id returned non-number " run-id)))
 		       ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
-		       ))))
+		       )))
 	 (cell-lookup (make-hash-table))
 	 (run-matrix (iup:matrix
 		      #:expand "YES"
 		      #:click-cb
 		      (lambda (obj lin col status)
@@ -1549,11 +1550,14 @@
 	    (examine-run *dbstruct-local* runid)))
 	(begin
 	  (print "ERROR: runid is not a number " (args:get-arg "-run"))
 	  (exit 1)))))
  ((args:get-arg "-test") ;; run-id,test-id
-  (let* ((dat     (map string->number (string-split (args:get-arg "-test") ",")))
+  (let* ((dat     (let ((d (map string->number (string-split (args:get-arg "-test") ","))))
+		    (if (> (length d) 1)
+			d
+			(list #f #f))))
 	 (run-id  (car dat))
 	 (test-id (cadr dat)))
     (if (and (number? run-id)
 	     (number? test-id)
 	     (>= test-id 0))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -989,11 +989,14 @@
 	       (if db-targets
 		   (if (not (hash-table-ref/default seen targetstr #f))
 		       (begin
 			 (hash-table-set! seen targetstr #t)
 			 ;; (print "[" targetstr "]"))))
-			 (if (not dmode)(print targetstr))))
+			 (if (not dmode)
+			     (print targetstr)
+			     (hash-table-set! data "targets" (cons targetstr (hash-table-ref/default data "targets" '())))
+			     )))
 		   (let* ((run-id  (db:get-value-by-header run header "id"))
 			  (runname (db:get-value-by-header run header "runname")) 
 			  (tests   (if tests-spec
 				       (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc 
 							     ;; use qryvals if test-spec provided