Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -295,10 +295,11 @@
 						;; (tasks:kill-server-run-id run-id)  ;; better to kill the server in the logic that called this routine?
 						(mutex-unlock! *http-mutex*)
 						;; (signal (make-composite-condition
 						;;          (make-property-condition 'commfail 'message "failed to connect to server")))
 						;; "communications failed"
+						(close-all-connections!)
 						(db:obj->string #f))
 					      (with-input-from-request ;; was dat
 					       fullurl 
 					       (list (cons 'key (or server-id   "thekey"))
 						     (cons 'cmd cmd)
@@ -305,11 +306,11 @@
 						     (cons 'params sparams))
 					       read-string))
 					  transport: 'http)
 					 0)) ;; added this speculatively
 			      ;; Shouldn't this be a call to the managed call-all-connections stuff above?
-			      (close-all-connections!) ;; BUG? WHY IS THIS HERE? Are we failing to reuse connections?
+			      ;; (close-all-connections!) ;; BUG? WHY IS THIS HERE? Are we failing to reuse connections?
 			      (mutex-unlock! *http-mutex*)
 			      ))
 	      (time-out     (lambda ()
 			      (thread-sleep! 45)
 			      (debug:print 0 *default-log-port* "WARNING: send-receive took more than 45 seconds!!")
@@ -356,11 +357,11 @@
 	    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))
 	    (close-connection! api-dat)
-            ;;(close-idle-connections!)
+            (close-idle-connections!)
 	    #t))
 	#f)))
 
 
 (define (make-http-transport:server-dat)(make-vector 6))