Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -299,11 +299,11 @@
   rowsused       ;; hash of lists covering what areas used - replace with quadtree
   hierdat        ;; put hierarchial sorted list here
   tests          ;; hash of id => testdat
   tests-by-name  ;; hash of testfullname => testdat
   key-vals
-  last-update    ;; last query to db got records from before last-update
+  ((last-update 0) : fixnum) ;; last query to db got records from before last-update
   data-changed
   )
 
 (define (dboard:rundat-make-init #!key (run #f)(key-vals #f)(tests #f)(last-update -100));; -100 is before time began
   (make-dboard:rundat 
@@ -546,12 +546,17 @@
 	(let loop ((run      (car runs))
 		   (tal      (cdr runs))
 		   (res     '())
 		   (maxtests 0))
 	  (let* ((run-id       (db:get-value-by-header run header "id"))
+		 (run-struct   (hash-table-ref/default (dboard:tabdat-allruns-by-id tabdat) run-id #f))
+		 (last-update  (if run-struct (dboard:rundat-last-update run-struct) 0))
 		 (key-vals     (rmt:get-key-vals run-id))
 		 (tests-ht     (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals))
+		 ;; GET RID OF dboard:get-tests-dat - it is superceded by dboard:get-tests-for-run-duplicate
+		 ;;  dboard:get-tests-for-run-duplicate - returns a hash table
+		 ;;  (dboard:get-tests-dat tabdat run-id last-update))
 		 (all-test-ids (hash-table-keys tests-ht))
 		 (num-tests    (length all-test-ids)))
 	    ;; NOTE: bubble-up also sets the global (dboard:tabdat-item-test-names tabdat)
 	    ;; (tests       (bubble-up tmptests priority: bubble-type))
 	    ;; NOTE: 11/01/2013 This routine is *NOT* getting called excessively.
@@ -1977,12 +1982,12 @@
 	(let ((labl  (iup:button "" ;; the testname labels
 				 #:flat "YES" 
 				 #:alignment "ALEFT"
 					; #:image img1
 					; #:impress img2
-				 #:size  btn-height
-				 #:expand "NO" ;; "HORIZONTAL"
+				 #: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"))))
 	  (vector-set! lftcol testnum labl)