@@ -341,12 +341,13 @@
 		  (if (and legacy-sync 
 			   (hash-table-ref/default *db-local-sync* run-id #f))
 		      ;; (if (> (- start-time last-write) 5) ;; every five seconds
 		      (begin ;; let ((sync-time (- (current-seconds) start-time)))
 			(db:multi-db-sync (list run-id) 'new2old)
-			(if (common:low-noise-print 30 "sync new to old")
-			    (let ((sync-time (- (current-seconds) start-time)))
+			(let ((sync-time (- (current-seconds) start-time)))
+			  (debug:print-info 3 "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")
+			  (if (common:low-noise-print 30 "sync new to old")
 			      (debug:print-info 0 "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")))
 			;; (if (> sync-time 10) ;; took more than ten seconds, start a server for this run
 			;;     (begin
 			;;       (debug:print-info 0 "Sync is taking a long time, start up a server to assist for run " run-id)
 			;;       (server:kind-run run-id)))))