@@ -1565,11 +1565,13 @@
 				      (loop (car new-tests)(cdr new-tests)))))
 			       ((archive)
 				(if (not toplevel-with-children)
 				    (begin
 				      (debug:print-info 0 "Estimating disk space usage for " test-fulln)
-				      (debug:print-info 0 "   " (common:get-disk-space-used run-dir)))))
+				      (debug:print-info 0 "   " (common:get-disk-space-used (conc run-dir "/")))))
+				(if (not (null? tal))
+				    (loop (car tal)(cdr tal))))
 			       )))
 		       )
 		     (if worker-thread (thread-join! worker-thread))))))
 	   ;; remove the run if zero tests remain
 	   (if (eq? action 'remove-runs)