Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -514,11 +514,11 @@
 	 (if (equal? state "DELETED")
 	     (hash-table-delete! tests-ht test-id)
 	     (hash-table-set! tests-ht test-id tdat))))
      tmptests)
     (dboard:rundat-last-update-set! run-dat (- (current-seconds) 2)) ;; go back two seconds in time to ensure all changes are captured.
-    (debug:print-info 0 *default-log-port* "tests-ht: " (hash-table-keys tests-ht))
+    ;; (debug:print-info 0 *default-log-port* "tests-ht: " (hash-table-keys tests-ht))
     tests-ht))
 
 ;; tmptests   - new tests data
 ;; prev-tests - old tests data
 ;;
@@ -747,12 +747,10 @@
 	 (tableheader (dboard:uidat-get-header uidat))
 	 (table       (dboard:uidat-get-runsvec uidat))
 	 (coln        0)
 	 (all-test-names (make-hash-table)))
 
-    (debug:print-info 0 *default-log-port* "runs: " runs)
-
     ;; create a concise list of test names
     ;;
     (for-each
      (lambda (rundat)
        (if rundat
@@ -2016,12 +2014,12 @@
 					; #:impress img2
 				 #:size  (conc cell-width btn-height)
 				 #:expand  "NO" ;; "HORIZONTAL"
 				 #:fontsize btn-fontsz
 				 #:action (lambda (obj)
-					    (mark-for-update tabdat)
-					    (toggle-hide testnum uidat))))) ;; (iup:attribute obj "TITLE"))))
+					    (mark-for-update runs-dat)
+					    (toggle-hide testnum (dboard:commondat-uidat commondat)))))) ;; (iup:attribute obj "TITLE"))))
 	  (vector-set! lftcol testnum labl)
 	  (loop (+ testnum 1)(cons labl res))))))
     ;; These are the headers for each row
     (let loop ((runnum  0)
 	       (keynum  0)
@@ -2159,15 +2157,10 @@
 (define (dboard:setup-num-rows tabdat)
   (dboard:tabdat-num-tests-set! tabdat (string->number
 					(or (args:get-arg "-rows")
 					    (get-environment-variable "DASHBOARDROWS")
 					    "15"))))
-;;   (if (or (args:get-arg "-rows")
-;; 	  (get-environment-variable "DASHBOARDROWS" ))
-;;       (begin
-;;   (update-rundat tabdat "%" (dboard:tabdat-numruns tabdat) "%/%" '()))
-;;       (dboard:tabdat-num-tests-set! tabdat (min (max (update-rundat tabdat "%" (dboard:tabdat-numruns tabdat) "%/%" '()) 8) 20))))
   
 (define *tim* (iup:timer))
 (define *ord* #f)
 (iup:attribute-set! *tim* "TIME" 300)
 (iup:attribute-set! *tim* "RUN" "YES")