Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -18,10 +18,11 @@
 (declare (uses megatest-version))
 (declare (uses margs))
 (declare (uses runs))
 (declare (uses launch))
 (declare (uses server))
+(declare (uses tests))
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
 (include "key_records.scm")
@@ -626,13 +627,13 @@
 	      (server:client-setup db))
 	  (if (args:get-arg "-load-test-data")
 	      ;; has sub commands that are rdb:
 	      (db:load-test-data db test-id))
 	  (if (args:get-arg "-setlog")
-	      (rdb:test-set-log! db test-id (args:get-arg "-setlog")))
+	      (rtests:test-set-log! db test-id (args:get-arg "-setlog")))
 	  (if (args:get-arg "-set-toplog")
-	      (rdb:test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
+	      (rtests:test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
 	  (if (args:get-arg "-summarize-items")
 	      (rdb:tests:summarize-items db run-id test-name #t)) ;; do force here
 	  (if (args:get-arg "-runstep")
 	      (if (null? remargs)
 		  (begin

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -237,10 +237,16 @@
      'rtests:test-set-status!
      (lambda (test-id state status comment dat)
        (set! *last-db-access* (current-seconds))
        (test-set-status! db test-id state status comment dat)))
 
+    (rpc:publish-procedure!
+     'rtests:test-set-toplog!
+     (lambda (run-id test-name logf)
+        (set! *last-db-access* (current-seconds))
+        (test-set-toplog! db run-id test-name logf)))
+
     ;;======================================================================
     ;; end of publish-procedure section
     ;;======================================================================
 
     (set! *rpc:listener* rpc:listener)

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -393,5 +393,14 @@
   (if *runremote*
       (let ((host (vector-ref *runremote* 0))
 	    (port (vector-ref *runremote* 1)))
 	((rpc:procedure 'rtests:test-set-status! host port) test-id state status comment dat))
       (test-set-status! db test-id state status comment dat)))
+
+(define (rtests:test-set-toplog! db run-id test-name logf)
+  (if *runremote*
+      (let ((host (vector-ref *runremote* 0))
+            (port (vector-ref *runremote* 1)))
+        ((rpc:procedure 'rtests:test-set-toplog! host port) run-id test-name logf))
+      (test-set-toplog! db run-id test-name logf)))
+
+