@@ -90,11 +90,11 @@
   ;; (send-message pubsock 
   (case (server:get-transport)
     ((rpc)  (db:obj->string (vector success/fail query-sig result)))
     ((http) (db:obj->string (vector success/fail query-sig result)))
     ((zmq)
-     (let ((pub-socket (vector-ref *runremote* 1)))
+     (let ((pub-socket (safe-vector-ref *runremote* 1)))
        (send-message pub-socket return-addr send-more: #t)
        (send-message pub-socket (db:obj->string (vector success/fail query-sig result)))))
     ((fs)   result)
     (else 
      (debug:print 0 "ERROR: unrecognised transport type: " *transport-type*)