Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -45,10 +45,12 @@
 	  (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val))))
 
 (define home (getenv "HOME"))
 (define user (getenv "USER"))
 
+
+;; returns list of fd count, socket count
 (define (get-file-descriptor-count #!key  (pid (current-process-id )))
   (list
     (length (glob (conc "/proc/" pid "/fd/*")))
     (length  (filter identity (map socket? (glob (conc "/proc/" pid "/fd/*")))))
   )

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -306,11 +306,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)))
 	    (close-connection! api-dat)
-            (close-idle-connections!)
+            ;;(close-idle-connections!)
 	    #t))
 	#f)))
 
 
 (define (make-http-transport:server-dat)(make-vector 6))