Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -52,12 +52,12 @@
      (debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (5)")
      (exit))))
 
 (define (client:setup  run-id #!key (remaining-tries 10) (failed-connects 0))
   (case (server:get-transport)
-    ((rpc) (let ((res (rpc-transport:client-setup run-id remaining-tries: remaining-tries failed-connects: failed-connects)))
-             (remote-conndat-set! *runremote* runremote-server-dat)
+    ((rpc) (let ((res (client:setup-rpc run-id remaining-tries: remaining-tries)))
+             (remote-conndat-set! *runremote* res)
              res))
     ((http)(client:setup-http run-id remaining-tries: remaining-tries failed-connects: failed-connects))
     (else
      (debug:print 0 *default-log-port* "ERROR: transport " (remote-transport *runremote*) " not supported (6)")
      (exit)))) ;; (client:setup-rpc run-id))))