@@ -110,11 +110,14 @@
 ;; force keepgoing
 ; (hash-table-set! args:arg-hash "-keepgoing" #t)
 (hash-table-set! args:arg-hash "-itempatt" "%")
 (hash-table-set! args:arg-hash "-testpatt" "%")
 (test "Setup for a run"       #t (begin (setup-for-run) #t))
-(test "Remove the rollup run" #t (begin (remove-runs) #t))
+
+
+;; (test "Remove the rollup run" #t (begin (remove-runs) #t))
+
 (test "Run a test" #t (general-run-call 
 		       "-runtests" 
 		       "run a test" 
 		       (lambda (db keys keynames keyvallst)
 			 (let ((test-names '("runfirst")))