@@ -2434,10 +2434,12 @@
                    ((kill-runs)
                     (tasks:kill-runner target run-name "%")
                     (debug:print 1 *default-log-port* "Killing tests for run: " runkey " " (db:get-value-by-header run header "runname"))
                     )
 		   ((remove-runs)
+		    ;; use this location to cleanup old DELETED records? No. See below for same call
+		    ;; (rmt:delete-old-deleted-test-records run-id)
 		    ;; (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
 		    ;; seek and kill in flight -runtests with % as testpatt here
 		    ;; (if (equal? testpatt "%")
 		    (tasks:kill-runner target run-name testpatt)
 		    ;; (debug:print 0 *default-log-port* "not attempting to kill any run launcher processes as testpatt is " testpatt))
@@ -2724,11 +2726,11 @@
                     (debug:print 1 *default-log-port* "Removing target " target "run: " run-name)
                     (if (not keep-records)
                       (begin
                         (debug:print 1 *default-log-port* "Removing DB records for the run.")
                         (rmt:delete-run run-id)
-                        (rmt:delete-old-deleted-test-records))
+                        (rmt:delete-old-deleted-test-records run-id))
                     )
                     (if (not (equal?  linkspath "/does/not/exist/I"))
 	               (begin 
                          (debug:print 1 *default-log-port* "Recursively removing links dir " linkspath)
                          (runs:recursive-delete-with-error-msg linkspath)))