@@ -1264,12 +1264,17 @@
        (debug:print-info 11 "zdat=" zdat)
        (let* ((res  #f)
 	      (rawdat      (http-transport:client-send-receive serverdat zdat))
 	      (tmp         #f))
 	 (debug:print-info 11 "Sent " zdat ", received " rawdat)
-	 (set! tmp (db:string->obj rawdat))
-	 (vector-ref tmp 2))))
+	 (if rawdat
+	     (begin
+	       (set! tmp (db:string->obj rawdat))
+	       (vector-ref tmp 2))
+	     (begin
+	       (debug:print 0 "ERROR: Communication with the server failed. Exiting if possible")
+	       (exit 1))))))
     ((zmq)
      (handle-exceptions
       exn
       (begin
 	(debug:print-info 0 "cdb:client-call timeout or error. Trying again in 5 seconds")