@@ -180,10 +180,15 @@
     (rpc:publish-procedure!
      'rdb:get-test-info
      (lambda (run-id testname item-path)
        (db:get-test-info db  run-id testname item-path)))
 
+    (rpc:publish-procedure!
+     'rdb:delete-test-records
+     (lambda (test-id)
+       (db:delete-test-records db test-id)))
+
     (set! *rpc:listener* rpc:listener)
     (on-exit (lambda ()
 	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
 	       (sqlite3:finalize! db)))
     (thread-start! th1)