@@ -2768,10 +2768,15 @@
 	 ))
      runs)
     ;; special case - archive get
     (if (equal? (args:get-arg "-archive") "get")
 	(archive:bup-get-data "get" #f #f test-records rp-mutex bup-mutex))
+    (if (or (equal? (args:get-arg "-archive") "save") (equal? (args:get-arg "-archive") "save-remove"))
+        (begin 
+             (print "db archive started")  
+             (archive:megatest-db target runnamepatt)
+             (print "db archived")))
     )
   #t
   )
 
 (define (runs:remove-test-directory test mode) ;; remove-data-only)