@@ -1280,20 +1280,22 @@
 (iup:attribute-set! *tim* "RUN" "YES")
 
 ;; Move this stuff to db.scm? I'm not sure that is the right thing to do...
 ;;
 (define *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db")))
+(define *last-recalc-ended-time* 0)
 
 (define (dashboard:been-changed)
   (> (file-modification-time (conc *toppath* "/megatest.db")) *last-db-update-time*))
 
 (define (dashboard:set-db-update-time)
   (set! *last-db-update-time* (file-modification-time (conc *toppath* "/megatest.db"))))
 
 (define (dashboard:recalc modtime please-update-buttons last-db-update-time)
   (or please-update-buttons
-      (and (> modtime last-db-update-time)
+      (and (> (current-milliseconds)(+ *last-recalc-ended-time* 150))
+	   (> modtime last-db-update-time)
 	   (> (current-seconds)(+ last-db-update-time 1)))))
 
 (define *monitor-db-path* (conc *toppath* "/monitor.db"))
 (define *last-monitor-update-time* 0)
 
@@ -1333,11 +1335,12 @@
 	    (else
 	     (let ((updater (hash-table-ref/default *updaters* *current-tab-number* #f)))
 	       (if updater (updater)))))
 	  (set! *please-update-buttons* #f)
 	  (set! *last-db-update-time* modtime)
-	  (set! *last-update* run-update-time)))))
+	  (set! *last-update* run-update-time)
+	  (set! *last-recalc-ended-time* (current-milliseconds))))))
 
 ;;======================================================================
 ;; The heavy lifting starts here
 ;;======================================================================