@@ -662,22 +662,21 @@
        (let* ((fname (conc (pathname-file file) ".db"))
 	      (fulln (conc *toppath*"/.megatest/"fname))
 	      (time1 (if (file-exists? file)
 			 (file-modification-time file)
 			 (begin
-			   (debug:print-info 0 *default-log-port* "Sync - I do not see file "file)
+			   (debug:print-info 2 *default-log-port* "Sync - I do not see file "file)
 			   1)))
 	      (time2 (if (file-exists? fulln)
 			 (file-modification-time fulln)
 			 (begin
-			   (debug:print-info 0 *default-log-port* "Sync - I do not see file "fulln)
+			   (debug:print-info 2 *default-log-port* "Sync - I do not see file "fulln)
 			   0)))
-	      ;; (changed (> time1 time2))
-              (changed ( < (- time2 time1) 6.0)) ;; dest db not updated within last 6 seconds
+	      (changed (> time1 time2))
 	      (do-cp (cond
 		      ((not (file-exists? fulln)) ;; shouldn't happen, but this might recover
-		       (debug:print-info 0 *default-log-port* "File "fulln" not found! Copying "fname" to "fulln)
+		       (debug:print-info 2 *default-log-port* "File "fulln" not found! Copying "fname" to "fulln)
 		       #t)
 		      (changed ;; (and changed
 		       ;; (> (- (current-seconds) time1) 3)) ;; if file is changed and three seconds have passed.
 		       #t)
 		      ((and changed *time-to-exit*) ;; last sync