Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1087,10 +1087,24 @@
 (define (common:lazy-modification-time fpath)
   (handle-exceptions
    exn
    0
    (file-modification-time fpath)))
+
+;; find timestamp of newest file associated with a sqlite db file
+(define (common:lazy-sqlite-db-modification-time fpath)
+  (let* ((glob-list (handle-exceptions
+                    exn
+                    '("/no/such/file")
+                    (glob (conc fpath "*"))))
+         (file-list (if (eq? 0 (length glob-list))
+                        '("/no/such/file")
+                        glob-list)))
+  (apply max
+   (map
+    common:lazy-modification-time 
+    file-list))))
 
 ;; return a nice clean pathname made absolute
 (define (common:nice-path dir)
   (let ((match (string-match "^(~[^\\/]*)(\\/.*|)$" dir)))
     (if match ;; using ~ for home?

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -525,11 +525,11 @@
                   (BB> "override num-tests 100 -> "num-tests-from-config)
                   (string->number num-tests-from-config))
                 100)))
 	 (states      (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
 	 (statuses    (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
-         (do-not-use-db-file-timestamps #t) ;; (configf:lookup *configdat* "setup" "do-not-use-db-file-timestamps")) ;; this still hosts runs-summary-tab
+         (do-not-use-db-file-timestamps #f) ;; (configf:lookup *configdat* "setup" "do-not-use-db-file-timestamps")) ;; this still hosts runs-summary-tab
          (do-not-use-query-timestamps   #t) ;; (configf:lookup *configdat* "setup" "do-not-use-query-timestamps")) ;; this no longer troubles runs-summary-tab
 	 (sort-info   (get-curr-sort))
 	 (sort-by     (vector-ref sort-info 1))
 	 (sort-order  (vector-ref sort-info 2))
 	 (bubble-type (if (member sort-order '(testname))
@@ -552,11 +552,11 @@
 			  (let* ((db-dir (tasks:get-task-db-path))
 				 (db-pth (conc db-dir "/" run-id ".db")))
 			    (dboard:rundat-db-path-set! run-dat db-pth)
 			    db-pth)))
 	 (tmptests    (if (or do-not-use-db-file-timestamps
-			      (>=  (common:lazy-modification-time db-path) last-update))
+			      (>=  (common:lazy-sqlite-db-modification-time db-path) last-update))
                           (db:dispatch-query access-mode rmt:get-tests-for-run db:get-tests-for-run
                                              run-id testnamepatt states statuses  ;; run-id testpatt states statuses
                                              (dboard:rundat-run-data-offset run-dat)
                                              num-to-get
                                              (dboard:tabdat-hide-not-hide tabdat) ;; no-in
@@ -2692,11 +2692,11 @@
 					    (get-environment-variable "DASHBOARDROWS")
 					    "15"))))
   
 (define *tim* (iup:timer))
 (define *ord* #f)
-(iup:attribute-set! *tim* "TIME" 300)
+(iup:attribute-set! *tim* "TIME" 300 )
 (iup:attribute-set! *tim* "RUN" "YES")
 
 (define *last-recalc-ended-time* 0)
 
 (define (dashboard:recalc modtime please-update-buttons last-db-update-time)