@@ -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.