Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -122,14 +122,14 @@
 			     (begin
 			       (debug:print-info 2 *default-log-port* "connected to " (client:get-url runremote))
 			       runremote)
 			     (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1)))
 			 (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 unsuccessful, will attempt to start server ... start-res=" start-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332
+			   (debug:print-info 0 *default-log-port* "client:setup, login unsuccessful, will attempt to start server ... ping-res=" ping-res) ;; had runid.  Fixes part of Randy;s ticket 1405717332
 			   (http-transport:close-connections runremote)
 			   (thread-sleep! 1)
-			   (client:setup-http-baby areapath runremote remaining-tries: (- remaining-tries 1))
+			   (client:setup-http areapath runremote remaining-tries: (- remaining-tries 1))
 			   )))
 		   (begin    ;; no server registered
 		     ;; (server:kind-run areapath)
 		     (server:start-and-wait areapath)
 		     (debug:print-info 0 *default-log-port* "client:setup, no server registered, remaining-tries=" remaining-tries)

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -280,11 +280,11 @@
                                                       (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
 						(http-transport:close-connections runremote)
 						(mutex-unlock! *http-mutex*)
-						(close-connection! fullurl)
+						;; (close-connection! fullurl)
 						(db:obj->string #f))
 					      (with-input-from-request ;; was dat
 					       fullurl 
 					       (list (cons 'key (or server-id   "thekey"))
 						     (cons 'cmd cmd)
@@ -337,13 +337,15 @@
 	(handle-exceptions
 	    exn
 	  (begin
 	    (print-call-chain *default-log-port*)
 	    (debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
-	  (if (args:any-defined? "-server" "-execute" "-run")
-	      (debug:print-info 0 *default-log-port* "Closing connections to "api-dat))
-	  (close-connection! api-dat)
+	  (if (and (args:any-defined? "-server" "-execute" "-run")
+		   api-dat)
+	      (begin ;; NOTE: Verify this actually ever gets hit. Jan 16, 2023.
+		(debug:print-info 0 *default-log-port* "Closing connections to "api-dat)
+		(close-connection! api-dat)))
 	  (remote-conndat-set! runremote #f)
 	  #t))
       #f))
 
 ;; run http-transport:keep-running in a parallel thread to monitor that the db is being 

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -289,37 +289,34 @@
 
 (define (extras-case-11 *default-log-port* runremote cmd params attemptnum rid)
   ;; (mutex-unlock! *rmt-mutex*)
   (debug:print-info 12 *default-log-port* "rmt:send-receive, case  9")
   ;; (mutex-lock! *rmt-mutex*)
-  (let* ((conninfo (remote-conndat runremote))
-	 (dat-in  (condition-case ;; handling here has
+  (let* ((dat-in  (condition-case ;; handling here has
 			     ;; caused a lot of
 			     ;; problems. However it
 			     ;; is needed to deal with
 			     ;; attemtped
 			     ;; communication to
 			     ;; servers that have gone
 			     ;; away
 			     (http-transport:client-api-send-receive 0 runremote cmd params)
-			     ;; (http-transport:client-api-send-receive 0 conninfo cmd params runremote)
 			     ((servermismatch)  (vector #f "Server id mismatch" ))
 			     ((commfail)(vector #f "communications fail"))
 			     ((exn)(vector #f "other fail" (print-call-chain)))))
 	 (dat      (if (and (vector? dat-in) ;; ... check it is a correct size
 			    (> (vector-length dat-in) 1))
 		       dat-in
 		       (vector #f (conc "communications fail (type 2), dat-in=" dat-in))))
 	 (success  (if (vector? dat) (vector-ref dat 0) #f))
 	 (res      (if (vector? dat) (vector-ref dat 1) #f)))
-    (if (and (vector? conninfo) (< 5 (vector-length conninfo)))
+    (if (remote? runremote)
 	(remote-last-access-set! runremote (current-seconds)) ;; refresh access time
 	(begin
-	  (debug:print 0 *default-log-port* "INFO: Should not get here! conninfo=" conninfo)
-	  (set! conninfo #f)
+	  (debug:print 0 *default-log-port* "INFO: Should not get here! runremote="runremote)
 	  (http-transport:close-connections runremote)))
-    (debug:print-info 13 *default-log-port* "rmt:send-receive, case  9. conninfo=" conninfo " dat=" dat " runremote = " runremote)
+    (debug:print-info 13 *default-log-port* "rmt:send-receive, case  9. runremote="runremote " dat=" dat)
     (mutex-unlock! *rmt-mutex*)
     (if success ;; success only tells us that the transport was
 	;; successful, have to examine the data to see if
 	;; there was a detected issue at the other end
 	(extras-transport-succeded *default-log-port* *rmt-mutex* attemptnum runremote res params rid cmd)