@@ -729,20 +729,20 @@
   (rmt:send-receive 'no-sync-get-lock #f `(,keyname)))
 
 ;; process registration
 
 (define (rmt:register-process host port pid starttime status purpose dbname mtversion)
-  #f)
+  (rmt:send-receive 'register-process #f (list host port pid starttime status purpose dbname mtversion)))
 
 (define (rmt:set-process-done host pid reason)
-  #f)
+  (rmt:send-receive 'set-process-done #f (list host pid reason)))
 
 (define (rmt:set-process-status host pid newstatus)
-  #f)
+  (rmt:send-receive 'set-process-status #f (list host pid newstatus)))
 
 (define (rmt:get-process-options purpose dbname)
-  #f)
+  (rmt:get-process-options 'get-process-options #f (list purpose dbname)))
 
 ;;======================================================================
 ;; A R C H I V E S
 ;;======================================================================