Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -276,17 +276,19 @@
 	 (thread-terminate! th2)
 	 (debug:print-info 11 *default-log-port* "got res=" res)
 	 (if (vector? res)
 	     (if (vector-ref res 0)
 		 res
-		 (begin ;; note: this code also called in nmsg-transport - consider consolidating it
-		   (debug:print-error 0 *default-log-port* "error occured at server, info=" (vector-ref res 2))
-		   (debug:print 0 *default-log-port* " client call chain:")
-		   (print-call-chain (current-error-port))
-		   (debug:print 0 *default-log-port* " server call chain:")
-		   (pp (vector-ref res 1) (current-error-port))
-		   (signal (vector-ref res 0))))
+                 (if (debug:debug-mode 11)
+                     (begin ;; note: this code also called in nmsg-transport - consider consolidating it
+                       (debug:print-error 11 *default-log-port* "error occured at server, info=" (vector-ref res 2))
+                       (debug:print 11 *default-log-port* " client call chain:")
+                       (print-call-chain (current-error-port))
+                       (debug:print 11 *default-log-port* " server call chain:")
+                       (pp (vector-ref res 1) (current-error-port))
+                       (signal (vector-ref res 0)))
+                     res))
 	     (signal (make-composite-condition
 		      (make-property-condition 
 		       'timeout
 		       'message "nmsg-transport:client-api-send-receive-raw timed out talking to server")))))))
 

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -66,10 +66,19 @@
     (cond
      ;; give up if more than 15 attempts
      ((> attemptnum 15)
       (debug:print 0 *default-log-port* "ERROR: 15 tries to start/connect to server. Giving up.")
       (exit 1))
+     ;; reset the connection if it has been unused too long
+     ((and *runremote*
+           (remote-conndat *runremote*)
+	   (let ((expire-time (- start-time (remote-server-timeout *runremote*))))
+	     (< (http-transport:server-dat-get-last-access (remote-conndat *runremote*)) expire-time)))
+      (debug:print-info 12 *default-log-port* "rmt:send-receive, case  8")
+      (remote-conndat-set! *runremote* #f)
+      (mutex-unlock! *rmt-mutex*)
+      (rmt:send-receive cmd rid params attemptnum: attemptnum))
      ;; ensure we have a record for our connection for given area
      ((not *runremote*)                     
       (set! *runremote* (make-remote))
       (mutex-unlock! *rmt-mutex*)
       (debug:print-info 12 *default-log-port* "rmt:send-receive, case  1")
@@ -117,17 +126,10 @@
           (begin
             (mutex-unlock! *rmt-mutex*)
 	    (debug:print-info 12 *default-log-port* "rmt:send-receive, case  5.2")
 	    (tasks:start-and-wait-for-server (tasks:open-db) 0 15)
             (rmt:send-receive cmd rid params attemptnum: attemptnum))))
-     ;; reset the connection if it has been unused too long
-     ((and (remote-conndat *runremote*)
-	   (let ((expire-time (- start-time (remote-server-timeout *runremote*))))
-	     (< (http-transport:server-dat-get-last-access (remote-conndat *runremote*)) expire-time)))
-      (debug:print-info 12 *default-log-port* "rmt:send-receive, case  8")
-      (remote-conndat-set! *runremote* #f)
-      (rmt:send-receive cmd rid params attemptnum: attemptnum))
      ;; if not on homehost ensure we have a connection to a live server
      ;; NOTE: we *have* a homehost record by now
      ((and (not (cdr (remote-hh-dat *runremote*)))        ;; are we on a homehost?
            (not (remote-conndat *runremote*)))            ;; and no connection
       (debug:print-info 12 *default-log-port* "rmt:send-receive, case  6  hh-dat: " (remote-hh-dat *runremote*) " conndat: " (remote-conndat *runremote*))