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