Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -212,10 +212,11 @@
   (hash-table-set!
    (dboard:commondat-tabdats commondat)
    tabnum
    tabdat))
 
+(define *updater-running* #f) ;; move this into one of the stucts
 ;; gets and calls updater list based on curr-tab-num
 ;;
 (define (dboard:common-run-curr-updaters commondat #!key (tab-num #f))
   (if (dboard:common-get-tabdat commondat tab-num: tab-num) ;; only update if there is a tabdat
       (let* ((tnum     (or tab-num (dboard:commondat-curr-tab-num commondat)))
@@ -901,20 +902,18 @@
 		  (hash-table-delete! (dboard:tabdat-allruns-by-id tabdat) run-id)
 		  (hash-table-set!    (dboard:tabdat-allruns-by-id tabdat) run-id run-struct))
 	      (if (or (null? tal)
 		      (> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
 		  (begin
-		    (when (> elapsed-time 2)   
+		    #;(when (> elapsed-time 2)   
                       (debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
                       (let* ((old-val (iup:attribute *tim* "TIME"))
                              (new-val (number->string (inexact->exact (floor (* 2  (string->number old-val)))))))
                         (if (< (string->number new-val) 5000)
-                            ((debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
-                            (iup:attribute-set! *tim* "TIME" new-val))))
-
-
-                      )
+                            (begin
+			      (debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
+			      (iup:attribute-set! *tim* "TIME" new-val)))))
 		    (dboard:tabdat-allruns-set! tabdat new-res)
 		    maxtests)
 		  (if (> (dboard:rundat-run-data-offset run-struct) 0)
 		      (loop run tal new-res newmaxtests) ;; not done getting data for this run
 		      (loop (car tal)(cdr tal) new-res newmaxtests)))))))
@@ -2505,14 +2504,10 @@
 
         ;; insert extra widget here
         (if extra-widget
             extra-widget
             (iup:hbox)) ;; empty widget
-
-        
-
-        
         )))
 
      (let* ((status-toggles (map (lambda (status)
 				   (iup:toggle (conc status)
 					       #:fontsize 8 ;; btn-fontsz ;; "10"
@@ -3801,22 +3796,25 @@
 	   (dashboard:runs-tab-updater commondat 1))
 	 tab-num: 2)
 	(iup:callback-set! *tim*
 			   "ACTION_CB"
 			   (lambda (time-obj)
-			     (let ((update-is-running #f))
-			     (mutex-lock! (dboard:commondat-update-mutex commondat))
-			     (set! update-is-running (dboard:commondat-updating commondat))
-			     (if (not update-is-running)
-			     (dboard:commondat-updating-set! commondat #t))
-			     (mutex-unlock! (dboard:commondat-update-mutex commondat))
-			     (if (not update-is-running) ;; we know that the update was not running and we now have a lock on doing an update
-			     (begin
+			     (if (not *updater-running*)
+				 (begin
+				   ;; (mutex-lock! (dboard:commondat-update-mutex commondat))
+				   ;; (set! update-is-running (dboard:commondat-updating commondat))
+				   ;;(if (not update-is-running)
+				   ;;	   (dboard:commondat-updating-set! commondat #t))
+				   ;;(mutex-unlock! (dboard:commondat-update-mutex commondat))
+				   ;;(if (not update-is-running) ;; we know that the update was not running and we now have a lock on doing an update
+				   ;;	   (begin
+				   (set! *updater-running* #t)
 			     (dboard:common-run-curr-updaters commondat) ;; (dashboard:run-update commondat)
-			     (mutex-lock! (dboard:commondat-update-mutex commondat))
-			     (dboard:commondat-updating-set! commondat #f)
-			     (mutex-unlock! (dboard:commondat-update-mutex commondat)))
+				   (set! *updater-running* #f)
+				   ;; (mutex-lock! (dboard:commondat-update-mutex commondat))
+				   ;;  (dboard:commondat-updating-set! commondat #f)
+				   ;;   (mutex-unlock! (dboard:commondat-update-mutex commondat)))
 				   ))
 			     1))))
       
       (let ((th1 (make-thread (lambda ()
 				(thread-sleep! 1)