Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -309,14 +309,11 @@
 	   ;; (mutex-unlock! bup-mutex)
 	   (for-each
 	    (lambda (test-dat)
 	      (let ((test-id           (db:test-get-id        test-dat))
 		    (run-id            (db:test-get-run_id    test-dat)))
-                 (debug:print-info 0 *default-log-port* "|"archive-command"|")
 		(rmt:test-set-archive-block-id run-id test-id archive-id)
-                (debug:print-info 0 *default-log-port* "|"archive-command"|" (member (symbol->string archive-command) '("save-remove")) (string? archive-command))
-
 		(if (member (symbol->string archive-command) '("save-remove"))
                     (begin 
                      (debug:print-info 0 *default-log-port* "remove testdat")
 		    (runs:remove-test-directory test-dat 'archive-remove)))))
 	    (hash-table-ref test-groups test-base)))))