@@ -1068,11 +1068,11 @@
 		       (and (eq? action 'archive) ;; if it is an archive command fallback to MT_TEST_NAME and MT_ITEMPATH
 			    (common:get-full-test-name))
 		       (and (eq? action 'kill-runs)
 			    "%/%") ;; I'm just guessing that this is correct :(
 		       (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")))
-		       ))) ;; 
+		       ))) ;;
     (cond
      ((not target)
       (debug:print-error 0 *default-log-port* "Missing required parameter for "
 			 action ", you must specify -target or -reqtarg")
       (exit 1))
@@ -1891,15 +1891,22 @@
 ;; Archive tests
 ;;======================================================================
 ;; Archive tests matching target, runname, and testpatt
 (if (args:get-arg "-archive")
     ;; else do a general-run-call
-    (general-run-call 
-     "-archive"
-     "Archive"
-     (lambda (target runname keys keyvals)
-       (operate-on 'archive target-in: target runname-in: runname ))))
+    (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"))))
+	    (debug:print-info 1 *default-log-port* "Preserving original path to destination, was " (args:get-arg "-dest") ", now " newpath)
+	    (hash-table-set! args:arg-hash "-dest" newpath)))
+      (general-run-call 
+       "-archive"
+       "Archive"
+       (lambda (target runname keys keyvals)
+	 (operate-on 'archive target-in: target runname-in: runname )))))
 
 ;;======================================================================
 ;; Extract a spreadsheet from the runs database
 ;;======================================================================