@@ -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"))