@@ -2571,27 +2571,26 @@
 	   (src-db      (args:get-arg "-from"))
 	   (dest-db     (args:get-arg "-to"))
 	   (sync-period (args:get-arg "-period"))    ;; NOT IMPLEMENTED YET
 	   (sync-timeout (args:get-arg "-timeout"))  ;; NOT IMPLEMENTED YET
 	   (lockfile    (conc dest-db".lock"))
-	   ;; (locked   (common:simple-file-lock lockfile))
 	   (keys        (db:get-keys #f))
-	   (res      ;; (if locked
-	    (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)
-	    ;;	 #f)))
-	    ))
+	   )
       
       (if (and src-db dest-db)
 	  (begin
 	    (debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...")
-	    (if res
-		(begin
-		  (common:simple-file-release-lock lockfile)
-		  (debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db))
-		(debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
-	    (set! *didsomething* #t))
-	  (debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))))
+	    ;; (if (common:simple-file-lock lockfile)
+	    ;; 	(begin
+	    (if (not (file-exists? dest-db)) ;; use copy to get going
+		(file-copy src-db dest-db))
+	    (let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)))
+	      ;;    (common:simple-file-release-lock lockfile)
+	      (debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)))
+	  (debug:print 0 *default-log-port* "Skipping sync, there is a sync in progress."))
+      (set! *didsomething* #t))
+    (debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))
 
 (if (args:get-arg "-list-test-time")
      (let* ((toppath (launch:setup))) 
      (task:get-test-times)  
      (set! *didsomething* #t)))