@@ -82,10 +82,15 @@
 
     (rpc:publish-procedure!
      'rdb:test-set-comment 
      (lambda (run-id test-name item-path comment)
        (db:test-set-comment db run-id test-name item-path comment)))
+    
+    (rpc:publish-procedure!
+     'rpc:test-set-log!
+     (lambda (run-id test-name item-path logf)
+       (db:test-set-log! db run-id test-name item-path logf)))
 
     (set! *rpc:listener* rpc:listener)
     (on-exit (lambda ()
 	       (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
 	       (sqlite3:finalize! db)))