 
                                  1
                                  (let [bais (ByteArrayInputStream. blob)
-                                       reader (transit/reader bais :msgpack)
+                                       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)))


                                                   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)))
