Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1044,12 +1044,20 @@
 			   (begin
 			     (dboard:data-set-curr-run-id! *data* run-id)
 			     (dashboard:update-run-summary-tab)))
 		       ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
 		       ))))
+	 (cell-lookup (make-hash-table))
 	 (run-matrix (iup:matrix
-		      #:expand "YES"))
+		      #:expand "YES"
+		      #:click-cb
+		      (lambda (obj lin col status)
+			(let* ((toolpath (car (argv)))
+			       (key      (conc lin ":" col))
+			       (test-id  (hash-table-ref/default cell-lookup key -1))
+			       (cmd      (conc toolpath " -test " test-id "&")))
+			  (system cmd)))))
 	 (updater  (lambda ()
 		     (let* ((runs-dat     (mt:get-runs-by-patt *keys* "%" #f))
 			    (runs-header  (vector-ref runs-dat 0)) ;; 0 is header, 1 is list of records
 			    (run-id       (dboard:data-get-curr-run-id *data*))
 			    (tests-dat    (let ((tdat (mt:get-tests-for-run run-id 
@@ -1111,12 +1119,13 @@
 							  userdata: (conc "run-id: " run-id))
 					   (hash-table-set! (dboard:data-get-path-run-ids *data*) run-path run-id)
 					   ;; (set! colnum (+ colnum 1))
 					   ))))
 				 run-ids)
-		       (iup:attribute-set! run-matrix "CLEARVALUE" "CONTENTS")
+		       (iup:attribute-set! run-matrix "CLEARVALUE" "ALL") ;; NOTE: Was CONTENTS
 		       (iup:attribute-set! run-matrix "CLEARATTRIB" "CONTENTS")
+		       (iup:attribute-set! run-matrix "RESIZEMATRIX" "YES")
 		       (iup:attribute-set! run-matrix "NUMCOL" max-col )
 		       (iup:attribute-set! run-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
 		       ;; (iup:attribute-set! run-matrix "NUMCOL_VISIBLE" max-col)
 		       ;; (iup:attribute-set! run-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
 		       
@@ -1129,22 +1138,10 @@
 					 (begin
 					   (set! changed #t)
 					   (iup:attribute-set! run-matrix key name)))))
 				 row-indices)
 		       
-		       ;; Col labels
-		       (for-each (lambda (ind)
-				   (let* ((name (car ind))
-					  (num  (cadr ind))
-					  (key  (conc "0:" num)))
-				     (if (not (equal? (iup:attribute run-matrix key) name))
-					 (begin
-					   (set! changed #t)
-					   (iup:attribute-set! run-matrix key name)
-					   (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num))))))
-				 col-indices)
-		       
 		       ;; Cell contents
 		       (for-each (lambda (entry)
 				   (let* ((row-name  (cadr entry))
 					  (col-name  (car entry))
 					  (valuedat  (caddr entry))
@@ -1155,17 +1152,32 @@
 					  (status    (list-ref valuedat 2))
 					  (value     (gutils:get-color-for-state-status state status))
 					  (row-num   (cadr (assoc row-name row-indices)))
 					  (col-num   (cadr (assoc col-name col-indices)))
 					  (key       (conc row-num ":" col-num)))
+				     (hash-table-set! cell-lookup key test-id)
 				     (if (not (equal? (iup:attribute run-matrix key) (cadr value)))
 					 (begin
 					   (set! changed #t)
 					   (iup:attribute-set! run-matrix key (cadr value))
 					   (iup:attribute-set! run-matrix (conc "BGCOLOR" key) (car value))))))
 				 tests-mindat)
+		       
+		       ;; Col labels - do after setting Cell contents so they are accounted for in the size calc.
+
+		       (for-each (lambda (ind)
+				   (let* ((name (car ind))
+					  (num  (cadr ind))
+					  (key  (conc "0:" num)))
+				     (if (not (equal? (iup:attribute run-matrix key) name))
+					 (begin
+					   (set! changed #t)
+					   (iup:attribute-set! run-matrix key name)
+					   (iup:attribute-set! run-matrix "FITTOTEXT" (conc "C" num))))))
+				 col-indices)
 		       (if changed (iup:attribute-set! run-matrix "REDRAW" "ALL"))))))
+    
     (set! dashboard:update-run-summary-tab updater)
     (dboard:data-set-runs-tree! *data* tb)
     (iup:split
      tb
      run-matrix)))

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1213,13 +1213,14 @@
 	     (set! runflag #t))
 	    (else (set! runflag #f)))
 	   (debug:print 4 "RUNNING => runflag: " runflag " STATE: " (test:get-state testdat) " STATUS: " (test:get-status testdat))
 	   (if (not runflag)
 	       (if (not parent-test)
-		   (debug:print 1 "NOTE: Not starting test " full-test-name " as it is state \"" (test:get-state testdat) 
-				"\" and status \"" (test:get-status testdat) "\", use -rerun \"" (test:get-status testdat)
-                                "\" or -force to override"))
+		   (if (runs:lownoise (conc "not starting test" full-test-name) 60)
+		       (debug:print 1 "NOTE: Not starting test " full-test-name " as it is state \"" (test:get-state testdat) 
+				    "\" and status \"" (test:get-status testdat) "\", use -rerun \"" (test:get-status testdat)
+				    "\" or -force to override")))
 	       ;; NOTE: No longer be checking prerequisites here! Will never get here unless prereqs are
 	       ;;       already met.
 	       ;; This would be a great place to do the process-fork
 	       ;; 
 	       (let ((skip-test   #f)