Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -250,11 +250,11 @@
 									   (system sync-cmd))
 								       (set! *sync-in-progress* #f)))))))
 					 (if ((if (eq? syncdir 'todisk) < >) ;; use less than for todisk, greater than for from disk
 					      (file-modification-time tmpdb)
 					      (file-modification-time dbfullname))
-					     (debug:print 2 *default-log-port* "Skipping sync, "tmpdb" older than "dbfullname)
+					     (debug:print 4 *default-log-port* "Skipping sync, "tmpdb" older than "dbfullname)
 					     (if synclock-mod-time
 						 (if (< (- (current-seconds) synclock-mod-time) 20) ;; something wrong with sync, remove file
 						     (begin
 						       (handle-exceptions
 							   exn