@@ -319,11 +319,10 @@
                     (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)))))
        (hash-table-keys disk-groups))
-      
     #t))
 
 (define (archive:megatest-db target-patt run-patt)
  (let* ((blockid-cache  (make-hash-table))
         (tsname         (common:get-testsuite-name))