Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -220,11 +220,11 @@
   (mutex-lock! *http-mutex*)
   (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 30))
+(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
 			 (begin
 			   (debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
 			   (exit 1))))
@@ -232,20 +232,24 @@
     (handle-exceptions
      exn
      (if (> numretries 0)
 	 (begin
 	   (mutex-unlock! *http-mutex*)
-	   (thread-sleep! 10)
-	   (http-transport:client-api-send-receive run-id serverdat cmd params (- numretries 1)))
-	 #f)
+	   (thread-sleep! 2)
+	   (close-all-connections!)
+	   (debug:print 0 "WARNING: Failed to communicate with server, trying again, numretries left: " numretries)
+	   (http-transport:client-api-send-receive run-id serverdat cmd params numretries: (- numretries 1)))
+	 (begin
+	   (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 5)
+       (max-retry-attempts 1)
        ;; consider all requests indempotent
        (retry-request? (lambda (request)
-			 #t))
+			 #f))
        ;; 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*)

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -62,11 +62,11 @@
 	  (rmt:send-receive cmd run-id params)))))
 
 (define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
   (let* ((run-id   (if run-id run-id 0))
 	 (jparams         (db:obj->string params)) ;; (rmt:dat->json-str params))
-	 (res (http-transport:client-api-send-receive run-id connection-info cmd jparams numretries: 3)))
+	 (res (http-transport:client-api-send-receive run-id connection-info cmd jparams)))
     (if res
 	(db:string->obj res) ;; (rmt:json-str->dat res)
 	;; this one does NOT keep trying
 	res)))