Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -60,11 +60,11 @@
 			 (loop)))))))
 
     ;; The heavy lifting
     ;;
     (let loop ()
-      (let* ((rawmsg (receive-message zmq-socket))
+      (let* ((rawmsg (receive-message* zmq-socket))
 	     (params (db:string->obj rawmsg)) ;; (with-input-from-string rawmsg (lambda ()(deserialize))))
 	     (res    #f))
 	(debug:print-info 12 "server=> received params=" params)
 	(set! res (cdb:cached-access params))
 	(debug:print-info 12 "server=> processed res=" res)