@@ -2565,20 +2565,22 @@
       (set! *didsomething* #t)))
 
 ;; use with -from and -to
 ;;
 (if (args:get-arg "-db2db")
-    (let* ((duh      (launch:setup))
-	   (src-db   (args:get-arg "-from"))
-	   (dest-db  (args:get-arg "-to"))
-	   (lockfile (conc dest-db".lock"))
+    (let* ((duh         (launch:setup))
+	   (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))
+	   (keys        (db:get-keys #f))
 	   (res      ;; (if locked
-			 (dbmod:db-to-db-sync src-db dest-db 0 (dbfile:db-init-proc) keys)
-			 ;;	 #f)))
-			 ))
+	    (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