@@ -118,14 +118,19 @@
 (define *alltestnamelst* '())
 (define *searchpatts*  (make-hash-table))
 (define *num-runs*      8)
 (define *tot-run-count* (cdb:remote-run db:get-num-runs #f "%"))
 ;; (define *tot-run-count* (db:get-num-runs *db* "%"))
+
+;; Update management
+;;
 (define *last-update*   (current-seconds))
 (define *last-db-update-time* 0)
 (define *please-update-buttons* #t)
 (define *delayed-update* 0)
+(define *update-is-running* #f)
+(define *update-mutex* (make-mutex))
 
 (define *num-tests*     15)
 (define *start-run-offset*  0)
 (define *start-test-offset* 0)
 (define *examine-test-dat* (make-hash-table))
@@ -1334,12 +1339,12 @@
 
 ;;======================================================================
 ;; The heavy lifting starts here
 ;;======================================================================
 
-;; ease debugging by loading ~/.megatestrc
-(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
+;; ease debugging by loading ~/.dashboardrc
+(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
 
 (cond 
  ((args:get-arg "-run")
@@ -1365,9 +1370,20 @@
  (else
   (set! uidat (make-dashboard-buttons *num-runs* *num-tests* *dbkeys*))
   (iup:callback-set! *tim*
 		     "ACTION_CB"
 		     (lambda (x)
+		       (let ((update-is-running #f))
+			 (mutex-lock! *update-mutex*)
+			 (set! update-is-running *update-is-running*)
+			 (if (not update-is-running)
+			     (set! *update-is-running* #t))
+			 (mutex-unlock! *update-mutex*)
+			 (if (not update-is-running)
+			   (begin
 		       (dashboard:run-update x)
+			     (mutex-lock! *update-mutex*)
+			     (set! *update-is-running* #f)
+			     (mutex-unlock! *update-mutex*))))
 		       1))))
 
 (iup:main-loop)