Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -446,11 +446,11 @@
 	      
 	      (if (and archive-path ;; no point in proceeding if there is no actual archive
 		       (not toplevel/children))
 		  (begin
 		    (let* ((bup-restore-params  (list "-d" archive-path "restore" "-C" (or destpath "data")
-						      " " ;; What is the empty string for?
+						      ;; " " ;; What is the empty string for?
 						      archive-internal-path)))
 		      (debug:print-info 0 *default-log-port* "Restoring archived data to " (or destpath "data")
 					" from archive in " archive-path " ... " archive-internal-path)
 		      (run-n-wait bup-exe params: bup-restore-params print-cmd: #t)))
 		  (let ((new-rem-tests (filter (lambda (tdat)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -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
 ;;======================================================================