Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -75,11 +75,11 @@
 		    (hash-table-set! *runremote* run-id start-res)
 		    start-res)  ;; return the server info
 		  (if (member remaining-tries '(9 6 4 2))
 		      (begin    ;; login failed
 			(debug:print-info 0 "client:setup, ping is bad for start-res=" start-res " and *runremote*=" host-info)
-			(http-transport:close-connections run-id)
+			;; (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 
 			 		iface

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -242,14 +242,15 @@
 	   (mutex-unlock! *http-mutex*)
 	   #f))
      (begin
        (debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
        ;; set up the http-client here
-       (max-retry-attempts 1)
+       (max-retry-attempts 5)
        ;; consider all requests indempotent
        (retry-request? (lambda (request)
-			 #f))
+			 (thread-sleep! 1)
+			 #t))
        ;; send the data and get the response
        ;; extract the needed info from the http data and 
        ;; process and return it.
        (let* ((send-recieve (lambda ()
 			      (mutex-lock! *http-mutex*)