@@ -23,12 +23,10 @@
 (define (toplevel-command . a) #f)
 
 (declare (uses common))
 ;; (declare (uses megatest-version))
 ;; (declare (uses margs))
-;; (declare (uses mtargs))
-;; (declare (uses mtargs.import))
 (declare (uses mtargs))
 (declare (uses mtargs.import))
 (declare (uses debugprint))
 (declare (uses debugprint.import))
 (declare (uses commonmod))
@@ -2571,14 +2569,16 @@
 ;;
 (if (args:get-arg "-db2db")
     (let* ((duh         (launch:setup))
 	   (src-db      (args:get-arg "-from"))
 	   (dest-db     (args:get-arg "-to"))
-	   (sync-period (args:get-arg-number "-period"))
-	   (sync-timeout (args:get-arg-number "-timeout"))
-	   ;; (sync-period (if sync-period-in (string->number sync-period-in) #f))
-	   ;; (sync-timeout (if sync-timeout-in (string->number sync-timeout-in) #f))
+	   ;; (sync-period (args:get-arg-number "-period"))
+	   ;; (sync-timeout (args:get-arg-number "-timeout"))
+	   (sync-period-in (args:get-arg "-period"))
+	   (sync-timeout-in (args:get-arg "-timeout"))
+	   (sync-period (if sync-period-in (string->number sync-period-in) #f))
+	   (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"...")
 			  (if (not (file-exists? dest-db))