@@ -482,12 +482,12 @@
   (rmt:send-receive 'delete-run #f (list run-id)))
 
 (define (rmt:update-run-stats run-id stats)
   (rmt:send-receive 'update-run-stats #f (list run-id stats)))
 
-(define (rmt:delete-old-deleted-test-records)
-  (rmt:send-receive 'delete-old-deleted-test-records #f '()))
+(define (rmt:delete-old-deleted-test-records run-id)
+  (rmt:send-receive 'delete-old-deleted-test-records run-id (list run-id)))
 
 (define (rmt:get-runs runpatt count offset keypatts)
   (rmt:send-receive 'get-runs #f (list runpatt count offset keypatts)))
 
 (define (rmt:simple-get-runs runpatt count offset target last-update)