@@ -2578,19 +2578,24 @@
 	   (lockfile    (conc dest-db".lock"))
 	   (keys        (db:get-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"...")
-	    (let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)))
-	      (if res
-		  (debug:print 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)
-		  (debug:print 0 *default-log-port* "No sync due to permissions or non-existant source 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 (file-exists? src-db)
+	      (begin
+		(debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...")
+		(if (not (file-exists? dest-db))
+		    (begin
+		      (debug:print 0 *default-log-port* "Using copy to create "dest-db" from "src-db)
+		      (file-copy src-db dest-db))
+		    (let ((res (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)))
+		      (if res
+			  (debug:print-info 0 *default-log-port* "Synced " res " records from "src-db" to "dest-db)
+			  (debug:print-info 0 *default-log-port* "No sync due to permissions or other issue.")))))
+	      (debug:print 0 *default-log-port* "No sync due to unreadble or non-existant source file"src-db))
+	  (debug:print 0 *default-log-port* "Usage for -db2db; -to and -from must be specified"))
+      (set! *didsomething* #t)))
 
 (if (args:get-arg "-list-test-time")
      (let* ((toppath (launch:setup))) 
      (task:get-test-times)  
      (set! *didsomething* #t)))