@@ -1061,14 +1061,14 @@
   (debug:print-info 3 *default-log-port* "db:lock-and-delta-sync")
   (let* ((lockdat  (db:no-sync-get-lock no-sync-db from-db-file))
 	 (gotlock  (car lockdat))
 	 (locktime (cdr lockdat)))
 
-    (debug:print-info 3 *default-log-port* "db:lock-and-delta-sync: go lock?")
+    (debug:print-info 3 *default-log-port* "db:lock-and-delta-sync: got lock?")
     (if gotlock
 	(begin
-          (debug:print 0 *default-log-port* "db:lock-and-delta-sync copying db")
+          (debug:print 0 *default-log-port* "db:lock-and-delta-sync copying db "runid" at "(current-seconds))
           (db:sync-touched dbstruct runid)
 	  (db:no-sync-del! no-sync-db from-db-file)
 	  #t)
         (begin
           (debug:print 0 *default-log-port* "could not get lock for " from-db-file " from no-sync-db")