@@ -275,10 +275,11 @@
 					     ;; attemtped
 					     ;; communication to
 					     ;; servers that have gone
 					     ;; away
 			      (http-transport:client-api-send-receive 0 conninfo cmd params)
+                              ((servermismatch)  (vector #f "Server id mismatch" ))
 			      ((commfail)(vector #f "communications fail"))
 			      ((exn)(vector #f "other fail" (print-call-chain)))))
 		     (else
 		      (debug:print 0 *default-log-port* "ERROR: transport " (remote-transport runremote) " not supported")
 		      (exit))))
@@ -322,11 +323,13 @@
     (mutex-unlock! *rmt-mutex*)
     (if success ;; success only tells us that the transport was
 	;; successful, have to examine the data to see if
 	;; there was a detected issue at the other end
 	(extras-transport-succeded *default-log-port* *rmt-mutex* attemptnum runremote res params rid cmd)
-	(extras-transport-failed *default-log-port* *rmt-mutex* attemptnum runremote cmd rid params)
+	(begin
+           (debug:print-error 0 *default-log-port* " dat=" dat) 
+           (extras-transport-failed *default-log-port* *rmt-mutex* attemptnum runremote cmd rid params))
 	)))
 
 (define (rmt:print-db-stats)
   (let ((fmtstr "~40a~7-d~9-d~20,2-f")) ;; "~20,2-f"
     (debug:print 18 *default-log-port* "DB Stats\n========")