@@ -1973,11 +1973,13 @@
 ;; Archive tests matching target, runname, and testpatt
 (if (equal? (args:get-arg "-archive") "replicacte-db")
     (begin
           ;; check if source
           ;; check if megatest.db exist 
-         (launch:setup)   
+          (print "launch:setup")  
+         (launch:setup) 
+         (print "done 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"))