@@ -1336,11 +1336,11 @@
 					      (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 
-				      (rmt:delete-test-records (db:test-get-id test))
+				      (rmt:delete-test-records (db:test-get-run_id test)(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 run-id (db:test-get-id test) (car state-status)(cadr state-status) #f)