Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -163,10 +163,11 @@
 (define (server:client-logout zmq-socket)
   (and (socket? zmq-socket)
        (cdb:logout zmq-socket *toppath* *my-client-signature*)
        (close-socket zmq-socket)))
 
+;;; IS THIS NEEDED?
 (define (server:client-setup)
   (if (not *toppath*)(setup-for-run))
   (let* ((hostinfo   (open-run-close tasks:get-best-server tasks:open-db))
 	 (zmq-socket (make-socket 'req)))
     (if hostinfo
@@ -184,11 +185,11 @@
 	   ;; REPLACE WITH server:client-login
 	   ;;
 	   (let ((connect-ok #f)
 		 (conurl     (server:make-server-url hostinfo)))
 	     (connect-socket zmq-socket conurl)
-	     (set! connect-ok (cdb:login zmq-socket))
+	     (set! connect-ok (cdb:login zmq-socket *toppath* *my-client-signature*))
 	     (if connect-ok
 		 (begin
 		   (debug:print-info 2 "Logged in and connected to " conurl)
 		   (set! *runremote* zmq-socket)
 		   #t)