@@ -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
@@ -1969,15 +1979,15 @@
 
 ;;======================================================================
 ;; Archive tests
 ;;======================================================================
 ;; Archive tests matching target, runname, and testpatt
-(if (equal? (args:get-arg "-archive") "replicacte-db")
+(if (equal? (args:get-arg "-archive") "replicate-db")
     (begin
           ;; check if source
-          ;; check if megatest.db exist 
-         (launch:setup)   
+          ;; check if megatest.db exist
+         (launch:setup)
          (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"))
@@ -2000,11 +2010,11 @@
             (set! *didsomething* #t))
        (begin
          (debug:print-error 1 *default-log-port* "Path " source " not found")
          (exit 1))))))   
     ;; else do a general-run-call
-   (if (and (args:get-arg "-archive") (not (equal? (args:get-arg "-archive") "replicacte-db"))) 
+   (if (and (args:get-arg "-archive") (not (equal? (args:get-arg "-archive") "replicate-db"))) 
     (begin
       ;; for the archive get we need to preserve the starting dir as part of the target path
       (if (and (args:get-arg "-dest")
 	       (not (equal? (substring (args:get-arg "-dest") 0 1) "/")))
 	  (let ((newpath  (conc (current-directory) "/" (args:get-arg "-dest"))))