                                                          (.write out (:value m))
                                                          (.toByteArray out)))
                                  (let [baos (ByteArrayOutputStream. (* 100 1024 1024))
-                                       writer (transit/writer baos :json)]
+                                       writer (transit/writer baos :msgpack)]
                                    (.write baos (byte-array 1 (byte 1)))
                                    (transit/write writer m)
                                    (send! channel (.toByteArray baos) #_(str " " (pr-str m))))))


                                 1
                                 (let [bais (ByteArrayInputStream. blob)
                                       reader (transit/reader bais :json)
                                       m (transit/read reader)]
                                   (debug "client received transit blob from:"
                                          url (take 10 (map byte blob)))

                                                        (.write out (:value m))
                                                        (.toByteArray out)))
                                   (let [baos (ByteArrayOutputStream. (* 100 1024 1024))
                                         writer (transit/writer baos :msgpack)]
                                     (.write baos (byte-array 1 (byte 1)))
                                     (transit/write writer m)
                                     (cli/send ws :byte (.toByteArray baos)))
