@@ -2638,10 +2638,11 @@
 
 (if (args:get-arg "-sync-to")
     (let ((toppath (launch:setup)))
       (tasks:sync-to-postgres *configdat* (args:get-arg "-sync-to"))
       (set! *didsomething* #t)))
+
 
 ;; use with -from and -to
 ;;
 (if (args:get-arg "-db2db")
     (let* ((duh         (launch:setup))
@@ -2655,18 +2656,19 @@
 	   (sync-timeout    (if sync-timeout-in (string->number sync-timeout-in) #f))
 	   (lockfile    (conc dest-db".sync-lock"))
 	   (keys        (db:get-keys #f))
 	   (thesync     (lambda (last-update)
 			  (debug:print-info 0 *default-log-port* "Attempting to sync data from "src-db" to "dest-db"...")
+			  (debug:print-info 0 *default-log-port* "PID = " (current-process-id))
 			  (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)
 				1)
 			      (let ((res (dbmod:db-to-db-sync src-db dest-db last-update (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 2 *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."))
 				res))))
 	   (start-time  (current-seconds))
            (synclock-mod-time (if (file-exists? lockfile)
              (handle-exceptions
@@ -2678,11 +2680,17 @@
            )
       (if (and src-db dest-db)
 	  (if (file-exists? src-db)
 	      (if (and (file-exists? lockfile) (< age 20))
 		    (debug:print 0 *default-log-port* "Lock "lockfile" exists, skipping sync...")
-                  (begin
+                 (begin
+                  (if (file-exists? lockfile)
+                    (begin
+                    (debug:print 0 *default-log-port* "Deleting old lock file " lockfile)
+                    (delete-file lockfile)
+                    )
+                  )
 		  (dbfile:with-simple-file-lock
 		   lockfile
 		   (lambda ()
 		     (let loop ((last-changed (current-seconds))
 				(last-update  0))
@@ -2699,11 +2707,11 @@
 				      (>  sync-timeout (- now-time last-changed)))
 				 (begin
 				   (if sync-period (thread-sleep! sync-period))
 				   (loop (if (> changes 0) now-time last-changed) now-time))))))))
                         (debug:print 0 *default-log-port* "Releasing lock file " lockfile)
-                    )
+                   )
                )
 	      (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)))