Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -303,23 +303,10 @@
       (with-output-to-port (if (port? e) e (current-error-port))
 	(lambda ()
 	  (apply print "INFO: (" n ") " params) ;; res)
 	  ))))
 
-(define (common:alist-ref/default key alist default)
-  (or (alist-ref key alist) default))
-
-(define (common:low-noise-print waitval . keys)
-  (let* ((key      (string-intersperse (map conc keys) "-" ))
-	 (lasttime (hash-table-ref/default *common:denoise* key 0))
-	 (currtime (current-seconds)))
-    (if (> (- currtime lasttime) waitval)
-	(begin
-	  (hash-table-set! *common:denoise* key currtime)
-	  #t)
-	#f)))
-
 ;;======================================================================
 ;; Safe utilities
 ;;======================================================================
 
 (define (common:false-on-exception thunk #!key (message #f))
@@ -1006,20 +993,10 @@
 ;; Generic path database
 (define *fdb* #f)
 
 (define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state.
 
-;;======================================================================
-;; V E R S I O N
-;;======================================================================
-
-(define (common:get-full-version)
-  (conc megatest-version "-" megatest-fossil-hash))
-
-(define (common:version-signature)
-  (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
-
 (define (common:snapshot-file filepath #!key (subdir  ".") )
   (if (file-exists? filepath)
       (let* ((age-sec  (lambda (file)
                          (if (file-exists? file)
                              (- (current-seconds) (file-modification-time file))

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -2821,20 +2821,21 @@
 ;;
 ;; 1. cache tests-match-qry
 ;; 2. compile qry and store in hash
 ;; 3. convert for-each-row to fold
 ;;
-(define (db:get-tests-for-run-state-status dbstruct run-id testpatt)
+(define (db:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
   (db:with-db
    dbstruct run-id #f
    (lambda (db)
-     (let* ((res            '())
+`     (let* ((res            '())
 	    (stmt-cache      (dbr:dbstruct-stmt-cache dbstruct))
 	    (stmth           (let* ((sh (db:hoh-get stmt-cache db testpatt)))
 			       (or sh
 				   (let* ((tests-match-qry (tests:match->sqlqry testpatt))
 					  (qry             (conc "SELECT id,testname,item_path,state,status FROM tests WHERE run_id=? " 
+								 " AND last_update > ? "
 								 (if tests-match-qry (conc " AND (" tests-match-qry ") ") "")))
 					  (newsh           (sqlite3:prepare db qry)))
 				     (debug:print-info 8 *default-log-port* "db:get-tests-for-run qry=" qry)
 				     (db:hoh-set! stmt-cache db testpatt newsh)
 				     newsh)))))
@@ -2843,13 +2844,14 @@
 	 (lambda (res id testname item-path state status)
 	   ;;  id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment
 	   (cons (vector id run-id testname state status -1         ""     -1      -1       ""    "-"  item-path -1           "-"         "-") res))
 	 '()
 	 stmth
-	 run-id))))))
+	 run-id
+	 (or last-update 0)))))))
 
-(define (db:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
+#;(define (db:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
   (let* ((res            '())
 	 (tests-match-qry (tests:match->sqlqry testpatt))
 	 (qry             (conc "SELECT id,testname,item_path,state,status,event_time,run_duration FROM tests WHERE run_id=? " 
 				" AND last_update > ? "
 				(if tests-match-qry (conc " AND (" tests-match-qry ") ") "")
@@ -3247,39 +3249,23 @@
       #f ;; default result
       test-id))))
 
 (define (db:get-test-times dbstruct run-name target)
   (let ((res `())
-        (qry 	(conc "select testname, item_path, run_duration, " (string-join (db:get-keys dbstruct) " || '/' || ") " as target from tests inner join runs on tests.run_id = runs.id where runs.runname = ? and target = ?  ;")))
-   
-  (db:with-db 
-    dbstruct
-    #f ;; this is for the main runs db
-    #f ;; does not modify db
-    (lambda (db)
-            (sqlite3:for-each-row
-	(lambda (test-name item-path test-time target )
-	  (set! res (cons (vector test-name item-path test-time) res)))
-	db
-        qry 
-	run-name target)
-       res))))
-
-(define (db:get-test-times dbstruct run-name target)
-  (let ((res `())
-        (qry 	(conc "select testname, item_path, run_duration, " (string-join (db:get-keys dbstruct) " || '/' || ") " as target from tests inner join runs on tests.run_id = runs.id where runs.runname = ? and target = ?  ;")))
-   
-  (db:with-db 
-    dbstruct
-    #f ;; this is for the main runs db
-    #f ;; does not modify db
-    (lambda (db)
-            (sqlite3:for-each-row
-	(lambda (test-name item-path test-time target )
-	  (set! res (cons (vector test-name item-path test-time) res)))
-	db
-        qry 
+        (qry 	(conc "select testname, item_path, run_duration, "
+		      (string-join (db:get-keys dbstruct) " || '/' || ")
+		      " as target from tests inner join runs on tests.run_id = runs.id where runs.runname = ? and target = ?  ;")))
+    (db:with-db 
+     dbstruct
+     #f ;; this is for the main runs db
+     #f ;; does not modify db
+     (lambda (db)
+       (sqlite3:for-each-row
+	(lambda (test-name item-path test-time target )
+	  (set! res (cons (vector test-name item-path test-time) res)))
+	db
+	qry 
 	run-name target)
        res))))
 
 ;;======================================================================
 ;; S T E P S