@@ -1363,12 +1363,13 @@
    target: #f
    )
   )
 
 (define (runs:incremental-print-results run-id)
-  (let ((curr-sec (current-seconds)))
-    (if (> (- curr-sec (runs:gendat-inc-results-last-update *runs:general-data*)) 5) ;; at least five seconds since last update
+  (let ((curr-sec    (current-seconds))
+	(last-update (runs:gendat-inc-results-last-update *runs:general-data*)))
+    (if (> (- curr-sec last-update) 5) ;; at least five seconds since last update
 	(let* ((run-dat  (or (runs:gendat-run-info *runs:general-data*)(rmt:get-run-info run-id)))
 	       (runname  (or (runs:gendat-runname *runs:general-data*)
 			     (db:get-value-by-header (db:get-rows run-dat)
 						     (db:get-header run-dat) "runname")))
 	       (target   (or (runs:gendat-target *runs:general-data*)(rmt:get-target run-id)))
@@ -1377,19 +1378,20 @@
 				     #f #f ;; offset limit
 				     #f ;; not-in
 				     #f ;; sort-by
 				     #f ;; sort-order
 				     #f ;; get full data (not 'shortlist)
-				     (runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time
+				     last-update
 				     'dashboard)))
 			   (if (list? res)
 			       res
 			       (begin
 				 (debug:print-error
 				  0 *default-log-port*
 				  "FAILED TO GET DATA using rmt:get-tests-for-run. Notify developers if you see this. result: " res)
 				 '())))))
+	  (runs:gendat-inc-results-last-update-set! *runs:general-data* (- curr-sec 1))
 	  (if (not (runs:gendat-run-info *runs:general-data*))
 	      (runs:gendat-run-info-set! *runs:general-data* run-dat))
 	  (if (not (runs:gendat-runname  *runs:general-data*))
 	      (runs:gendat-runname-set! *runs:general-data* runname))
 	  (if (not (runs:gendat-target *runs:general-data*))
@@ -1421,11 +1423,15 @@
 			     dtime
 			     (seconds->hr-min-sec duration)
 			     (conc "lt/" target "/" runname "/" test-name (if (string-null? item-path) "" (conc "/" item-path))))
 		     (hash-table-set! (runs:gendat-inc-results *runs:general-data*) (conc run-id "," test-id) testdat)))))
 	   testsdat)))
-    (runs:gendat-inc-results-last-update-set! *runs:general-data* (- curr-sec 10))))
+
+    ;; I don't think this should be here? -- Matt
+    #;(runs:gendat-inc-results-last-update-set! *runs:general-data* (- curr-sec 10))
+
+    ))
 
 ;; every time though the loop increment the test/itempatt val.
 ;; when the min is > max-allowed and none running then force exit
 ;;
 (define *max-tries-hash* (make-hash-table))