@@ -1969,17 +1969,17 @@
 
 ;;======================================================================
 ;; 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 
-          (print "launch:setup")  
-         (launch:setup) 
-         (print "done launch:setup")  
+          ;; 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"))
@@ -2002,11 +2002,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"))))