@@ -185,11 +185,11 @@
 	     final)))))))
 
 (define (http-transport:client-connect iface port)
   (let* ((login-res   #f)
 	 (serverdat   (list iface port)))
-    (set! login-res (server:client-login serverdat))
+    (set! login-res (client:login serverdat))
     (if (and (not (null? login-res))
 	     (car login-res))
 	(begin
 	  (debug:print-info 2 "Logged in and connected to " iface ":" port)
 	  (set! *runremote* serverdat)