@@ -1996,11 +1996,11 @@
    (lambda (f x)
      (let ((fullname (conc real-dir "/" f)))
        (if (not (string-search (regexp "testdat.db") f))
 	   (runs:recursive-delete-with-error-msg fullname)))
      (+ 1 x))
-   0 real-dir)
+   0 real-dir #t)
   ;; then the entire directory
   (runs:recursive-delete-with-error-msg real-dir))
 
 ;; cleanup often needs to remove all but the last N runs per target
 ;;