Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -3018,21 +3018,21 @@
 				)))
 
     (debug:print-info 8 *default-log-port* "db:get-tests-for-run run-id=" run-id ", qry=" qry)
     (let* ((res (db:with-db dbstruct run-id #f
 			    (lambda (db)
-			      (let* ((stmth (db:get-cache-stmth dbstruct db qry)))
+			      ;; (let* ((stmth (db:get-cache-stmth dbstruct db qry))) ;; due to use of last-update we can't efficiently cache this query
 				(reverse
 				 (sqlite3:fold-row
 				  (lambda (res . row)
 				    ;; id run-id testname state status event-time host cpuload
 				    ;;     diskfree uname rundir item-path run-duration final-logf comment)
 				    (cons (list->vector row) res))
 				  '()
-				  stmth
+				  db qry ;; stmth
 				  (or run-id 1) ;; 1 > 0 , for the case where we are seeking tests matching criteral for all runs
-				  )))))))
+				  ))))))
       (case qryvals
 	((shortlist)(map db:test-short-record->norm res))
 	((#f)       res)
 	(else       res)))))
 
@@ -3630,25 +3630,25 @@
 
 ;;======================================================================
 ;; T E S T  D A T A 
 ;;======================================================================
 
- (define (db:get-data-info-by-id dbstruct  test-data-id)
-   (db:with-db
-    dbstruct
-    #f 
-    #f
-    (lambda (db)
-      (let* ((res (vector #f #f #f #f #f #f #f #f #f #f #f #f)))
-        (sqlite3:for-each-row 
-       (lambda (id test-id  category variable value expected tol units comment status type last-update)
-         (set! res (vector id test-id  category variable value expected tol units comment status type last-update)))
-       db
-       "SELECT id,test_id, category, variable, value, expected, tol, units, comment, status, type, last_update FROM test_data WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
-       test-data-id)
-        res))))
-
+(define (db:get-data-info-by-id dbstruct  test-data-id)
+  (let* ((stmt        "SELECT id,test_id, category, variable, value, expected, tol, units, comment, status, type, last_update FROM test_data WHERE id=? ORDER BY id ASC;")) ;; event_time DESC,id ASC;
+    (db:with-db
+     dbstruct
+     #f 
+     #f
+     (lambda (db)
+       (let* ((stmth (db:get-cache-stmth dbstruct db stmt))
+	      (res   (sqlite3:fold-row
+		      (lambda (res id test-id  category variable value expected tol units comment status type last-update)
+			(vector id test-id  category variable value expected tol units comment status type last-update))
+		      (vector #f #f #f #f #f #f #f #f #f #f #f #f)
+		      stmth
+		      test-data-id)))
+        res)))))
 
 ;; WARNING: Do NOT call this for the parent test on an iterated test
 ;; Roll up test_data pass/fail results
 ;; look at the test_data status field, 
 ;;    if all are pass (any case) and the test status is PASS or NULL or '' then set test status to PASS.

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -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))