Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -146,11 +146,11 @@
 	      (bup-init-params  (list "-d" archive-dir "init"))
 	      (bup-index-params (append (list "-d" archive-dir "index") test-paths))
 	      (bup-save-params  (append (list "-d" archive-dir "save" ;; (conc "--strip-path=" linktree)
 					      (conc "-" compress) ;; or (conc "--compress=" compress)
 					      "-n" (conc (common:get-testsuite-name) "-" run-id)
-					      "--strip" disk-group)
+					      (conc "--strip-path=" disk-group))
 					test-paths))
 	      (print-prefix      #f)) ;; "Running: ")) ;; change to #f to turn off printing
 	 (if (not (file-exists? archive-dir))
 	     (create-directory archive-dir #t))
 	 (if (not (file-exists? (conc archive-dir "/HEAD")))