@@ -285,10 +285,11 @@
                                                     (begin
                                                       (debug:print 0 *default-log-port* "WARNING: failure in with-input-from-request to " fullurl ".")
                                                       (debug:print 0 *default-log-port* " message: " msg ", exn=" exn)
                                                       (debug:print 0 *default-log-port* " cmd: " cmd " params: " params " key:" (or server-id "thekey"))
                                                       (debug:print 0 *default-log-port* " call-chain: " call-chain)))
+						;; what if another thread is communicating ok? Can't happen due to mutex
 						(set! *runremote* #f)
 						(set! runremote #f)
 						;; (if runremote
 						;;    (remote-conndat-set! runremote #f))
 						;; Killing associated server to allow clean retry.")
@@ -391,11 +392,12 @@
 	(debug:print-error 0 *default-log-port* "call to http-transport:server-dat-update-last-access with non-vector!!"))))
 
 ;;
 ;; connect
 ;;
-(define (http-transport:client-connect iface port server-id) 
+(define (http-transport:client-connect iface port server-id)
+  (debug:print-info 0 *default-log-port* "Connecting to client at "iface":"port", with server-id "server-id)
   (let* ((api-url      (conc "http://" iface ":" port "/api"))
 	 (api-uri      (uri-reference (conc "http://" iface ":" port "/api")))
 	 (api-req      (make-request method: 'POST uri: api-uri))
 	 (server-dat   (vector iface port api-uri api-url api-req (current-seconds) server-id)))
     server-dat))