@@ -170,28 +170,28 @@
 		     (start-res (case *transport-type*
 				  ((http)(http-transport:client-connect iface port))
 				  ;;((nmsg)(nmsg-transport:client-connect hostname port))
                                   ))
 		     (ping-res  (case *transport-type* 
-				  ((http)(rmt:login-no-auto-client-setup start-res run-id))
+				  ((http)(rmt:login-no-auto-client-setup start-res))
 				  ;; ((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id)))
  				  ;;          (if logininfo
  				  ;;              (car (vector-ref logininfo 1))
  				  ;;              #f)))
-
+                                  
                                   )))
 		(if (and start-res
 			 ping-res)
 		    (begin
-		      (set! *runremote* start-res) ;; (hash-table-set! *runremote* run-id start-res)
+		      (remote-conndat-set! *runremote* start-res) ;; (hash-table-set! *runremote* run-id start-res)
 		      (debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))
 		      start-res)
 		    (begin    ;; login failed but have a server record, clean out the record and try again
 		      (debug:print-info 0 *default-log-port* "client:setup, login failed, will attempt to start server ... start-res=" start-res ", run-id=" run-id ", server-dat=" server-dat)
 		      (case *transport-type* 
 			((http)(http-transport:close-connections run-id)))
-		      (set! *runremote* #f)  ;; (hash-table-delete! *runremote* run-id)
+		      (remote-conndat-set! *runremote* #f)  ;; (hash-table-delete! *runremote* run-id)
 		      (tasks:kill-server-run-id run-id)
 		      (tasks:server-force-clean-run-record (db:delay-if-busy tdbdat)
 							   run-id 
 							   (tasks:hostinfo-get-interface server-dat)
 							   (tasks:hostinfo-get-port      server-dat)