Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -81,11 +81,11 @@
   (mutex-lock! *db-multi-sync-mutex*)
   (let ((expire-time (- (current-seconds) (server:get-timeout) 10))) ;; don't forget the 10 second margin
     (for-each 
      (lambda (run-id)
        (let ((connection (hash-table-ref/default *runremote* run-id #f)))
-         (if (and connection 
+         (if (and (vector? connection)
         	  (< (http-transport:server-dat-get-last-access connection) expire-time))
              (begin
                (debug:print-info 0 "Discarding connection to server for run-id " run-id ", too long between accesses")
                ;; SHOULD CLOSE THE CONNECTION HERE
 	       (case *transport-type*
@@ -106,13 +106,13 @@
 				  ((commfail)(vector #f "communications fail"))))
 			  ((nmsg)(condition-case
 				  (nmsg-transport:client-api-send-receive run-id connection-info cmd params)
 				  ((timeout)(vector #f "timeout talking to server"))))
 			  (else  (exit))))
-	       (success (if (and dat (vector? dat)) (vector-ref dat 0) #f))
-	       (res     (if (and dat (vector? dat)) (vector-ref dat 1) #f)))
-	  (http-transport:server-dat-update-last-access connection-info)
+	       (success (if (vector? dat) (vector-ref dat 0) #f))
+	       (res     (if (vector? dat) (vector-ref dat 1) #f)))
+	  (if (vector? connection-info)(http-transport:server-dat-update-last-access connection-info))
 	  (if success
 	      (begin
 		;; (mutex-unlock! *send-receive-mutex*)
 		(case *transport-type* 
 		  ((http) res) ;; (db:string->obj res))