Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -62,12 +62,12 @@
 	(debug:print 0 "ERROR: failed to start or connect to server for run-id " run-id)
 	(exit 1))
       (let ((host-info (hash-table-ref/default *runremote* run-id #f)))
 	(debug:print-info 0 "client:setup host-info=" host-info ", remaining-tries=" remaining-tries)
 	(if host-info
-	    (let* ((iface     (car  host-info))
-		   (port      (cadr host-info))
+	    (let* ((iface     (http-transport:server-dat-get-iface host-info))
+		   (port      (http-transport:server-dat-get-port  host-info))
 		   (start-res (http-transport:client-connect iface port))
 		   ;; (ping-res  (server:ping-server run-id iface port))
 		   (ping-res  (rmt:login-no-auto-client-setup start-res run-id)))
 	      (if ping-res   ;; sucessful login?
 		  (begin
@@ -80,12 +80,12 @@
 			(http-transport:close-connections run-id)
 			(hash-table-delete! *runremote* run-id)
 			(open-run-close tasks:server-force-clean-run-record
 			 		tasks:open-db
 			 		run-id 
-			 		(car  host-info)
-			 		(cadr host-info)
+			 		iface
+			 		port
 					" client:setup (host-info=#t)")
 			(if (< remaining-tries 8)
 			    (thread-sleep! 5))
 			(client:setup run-id remaining-tries: 10)) ;; (- remaining-tries 1)))
 		      (begin

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -221,12 +221,12 @@
   (set! *http-requests-in-progress* (+ 1 *http-requests-in-progress*)))
 
 ;; Send "cmd" with json payload "params" to serverdat and receive result
 ;;
 (define (http-transport:client-api-send-receive run-id serverdat cmd params #!key (numretries 3))
-  (let* ((fullurl    (if (list? serverdat)
-			 (list-ref serverdat 4) ;; (cadddr serverdat) ;; this is the uri for /api
+  (let* ((fullurl    (if (vector? serverdat)
+			 (http-transport:server-dat-get-api-req serverdat)
 			 (begin
 			   (debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
 			   (exit 1))))
 	 (res        #f))
     (handle-exceptions
@@ -277,15 +277,12 @@
 
 ;; careful closing of connections stored in *runremote*
 ;;
 (define (http-transport:close-connections run-id)
   (let* ((server-dat (hash-table-ref/default *runremote* run-id #f)))
-    (if (and (list? server-dat)
-	     (>= (length server-dat) 5))
-	(let ((ctrl-dat (list-ref server-dat 2))
-	      (api-dat  (list-ref server-dat 3)))
-	  (close-connection! ctrl-dat)
+    (if (vector? server-dat)
+	(let ((api-dat (http-transport:server-dat-get-api-uri server-dat)))
 	  (close-connection! api-dat)
 	  #t)
 	#f)))
 
 
@@ -292,22 +289,20 @@
 (define (make-http-transport:server-dat)(make-vector 5))
 (define (http-transport:server-dat-get-iface         vec)    (vector-ref  vec 0))
 (define (http-transport:server-dat-get-port          vec)    (vector-ref  vec 1))
 (define (http-transport:server-dat-get-api-uri       vec)    (vector-ref  vec 2))
 (define (http-transport:server-dat-get-api-url       vec)    (vector-ref  vec 3))
-(define (http-transport:server-dat-get-api-request   vec)    (vector-ref  vec 4))
+(define (http-transport:server-dat-get-api-req       vec)    (vector-ref  vec 4))
 
 ;;
 ;; connect
 ;;
 (define (http-transport:client-connect iface port)
   (let* ((api-url      (conc "http://" iface ":" port "/api"))
 	 (api-uri      (uri-reference (conc "http://" iface ":" port "/api")))
-	 (uri-api-dat  (make-request method: 'POST uri: api-uri))
-	 ;; (uri-ctrl-dat (make-request method: 'POST uri: (uri-reference (conc "http://" iface ":" port "/ctrl"))))
-	 (uri-ctrl-dat #f) ;; not used anymore
-	 (server-dat   (vector iface port uri-ctrl-dat uri-api-dat api-url)))
+	 (api-req      (make-request method: 'POST uri: api-uri))
+	 (server-dat   (vector iface port api-uri api-url api-req)))
     server-dat))
 
 ;; run http-transport:keep-running in a parallel thread to monitor that the db is being 
 ;; used and to shutdown after sometime if it is not.
 ;;