Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1310,11 +1310,11 @@
 ;;    'remove-runs
 ;;    'set-state-status
 ;;
 ;; NB// should pass in keys?
 ;;
-(define (runs:operate-on action target runnamepatt testpatt #!key (state #f)(status #f)(new-state-status #f))
+(define (runs:operate-on action target runnamepatt testpatt #!key (state #f)(status #f)(new-state-status #f)(remove-data-only #f))
   (common:clear-caches) ;; clear all caches
   (let* ((db           #f)
 	 (keys         (cdb:remote-run db:get-keys db))
 	 (rundat       (mt:get-runs-by-patt keys runnamepatt target))
 	 (header       (vector-ref rundat 0))
@@ -1439,11 +1439,12 @@
 					      (if run-dir
 						  (debug:print 0 "WARNING: not removing " run-dir " as it either doesn't exist or is not a symlink")
 						  (debug:print 0 "NOTE: the run dir for this test is undefined. Test may have already been deleted."))
 					      ))
 				      ;; Only delete the records *after* removing the directory. If things fail we have a record 
-				      (cdb:remote-run db:delete-test-records db #f (db:test-get-id test))
+				      (if (not remove-data-only)
+				          (cdb:remote-run db:delete-test-records db #f (db:test-get-id test)))
 				      (if (not (null? tal))
 					  (loop (car tal)(cdr tal))))))
 			       ((set-state-status)
 				(debug:print-info 2 "new state " (car state-status) ", new status " (cadr state-status))
 				(mt:test-set-state-status-by-id (db:test-get-id test) (car state-status)(cadr state-status) #f)