Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -384,31 +384,31 @@
 		     (let-values (((pid-val exit-status exit-code) (run-n-wait bup-exe params: bup-save-params print-cmd: print-prefix)))
                          (if (not (eq? exit-code 0))
                               (begin    
                               (debug:print-error 0 *default-log-port* "There was an error archiving data with bup. Archive failed.")
                               (exit 1))
-                             (debug:print-info 2 *default-log-port* "To restore megatest.db run megatest -archive replicacte-db -source archive-dir -time-stamp <ts>. Current timestamp: " (seconds->std-time-str (current-seconds))))))) 
+                             (debug:print-info 0 *default-log-port* "To restore megatest.db run megatest -archive replicacte-db -source archive-dir -time-stamp <ts>. Current timestamp: " (seconds->std-time-str (current-seconds))))))) 
                (else
                    (debug:print-info 0 *default-log-port* "No support for databse archiving with " archiver)))
                (debug:print-error 0 *default-log-port* "There was an error rsyncing tmp database")))))
 
 (define (archive:restore-db archive-path ts)
    (let* ((bup-exe               (or (configf:lookup *configdat* "archive" "bup") "bup"))
          (archive-internal-path (conc (common:get-testsuite-name) "-megatest-db/" ts "/megatest.db" ))
          (bup-restore-params  (list "-d" archive-path "restore" "-C" *toppath* archive-internal-path)))
-		 (debug:print-info 0 *default-log-port* "Restoring archived data to " *toppath* " from archive in " archive-path " ... " archive-internal-path)
-		 (run-n-wait bup-exe params: bup-restore-params print-cmd: #f))
+		 (debug:print-info 2 *default-log-port* "Restoring archived data to " *toppath* " from archive in " archive-path " ... " archive-internal-path)
+		 (run-n-wait bup-exe params: bup-restore-params print-cmd: "Running:"))
+      (sleep 2)
       (db:multi-db-sync 
        (db:setup #f)
        'killservers
        ;'dejunk
        ;'adj-testids
        'old2new
        )
-      (debug:print-info 1 *default-log-port* "dropping trigerrs to update linktree")   
+      (debug:print-info 1 *default-log-port* "dropping triggers to update linktree") 
       (rmt:drop-all-triggers)
-  
     (let* ((linktree       (common:get-linktree)) ;; (configf:lookup *configdat* "setup" "linktree")))
 	  (src-archive-linktree (rmt:get-var "src-archive-linktree")))
         (if (not (equal? src-archive-linktree linktree))
            (rmt:update-tesdata-on-repilcate-db src-archive-linktree linktree))
               (debug:print-info 1 *default-log-port* "creating triggers after updating linktree")   

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -519,15 +519,25 @@
          "-show-runconfig"
          ;;"-list-db-targets"
          "-show-runconfig"
          "-show-config"
          "-show-cmdinfo"
-	 "-cleanup-db"))
+	 "-cleanup-db"
+            ))
+       (no-watchdog-argvals (list '("-archive" . "replicate-db")))
+       (start-watchdog-specail-arg-val (let loop ((hed  (car no-watchdog-argvals))
+                                                  (tail (cdr   no-watchdog-argvals)))
+                                             (print "hed" hed " arg " (args:get-arg (car hed)) " val:" (cdr hed)  " eql" (equal? (args:get-arg (car hed)) (cdr hed)))  
+                                             (if (equal? (args:get-arg (car hed)) (cdr hed))
+                                               #f
+                                               (if (null? tail)
+                                                 #t
+                                                 (loop (car tail) (cdr tail))))))      
        (no-watchdog-args-vals (filter (lambda (x) x)
                                       (map args:get-arg no-watchdog-args)))
-       (start-watchdog (null? no-watchdog-args-vals)))
-  ;;(BB> "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals) 
+       (start-watchdog (and (null? no-watchdog-args-vals) start-watchdog-specail-arg-val)))
+       ;(print  "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals " start-watchdog-specail-arg-val:" start-watchdog-specail-arg-val " start-watchdog:" start-watchdog) 
   (if start-watchdog
       (thread-start! *watchdog*)))
 
 
 ;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
@@ -1973,13 +1983,11 @@
 ;; Archive tests matching target, runname, and testpatt
 (if (equal? (args:get-arg "-archive") "replicate-db")
     (begin
           ;; check if source
           ;; check if megatest.db exist
-         (print "launch")
          (launch:setup)
-         (print "launce done")   
          (if (not (args:get-arg "-source"))
              (begin 
              (debug:print-info 1 *default-log-port* "Missing required argument -source <archive path>")
              (exit 1)))
          (if (common:file-exists? (conc  *toppath* "/megatest.db"))