                               (with-super super
                                 (try
                                   (when (> (count in-buffer) 100)
-                                    (error "incoming buffer for " url
-                                           " too full:" (count in-buffer))
-                                    (.close ws))
-                                  (debug "received byte message")
+                                    (.close ws)
+                                    (throw (ex-info
+                                            (str "incoming buffer for " url
+                                                 " too full:" (count in-buffer))
+                                            {:url url
+                                             :count (count in-buffer)})))
+                                  (debug "received byte message, buffer count:" (count in-buffer))
                                   (with-open [bais (ByteArrayInputStream. data)]
                                     (let [reader
                                           (transit/reader bais :json

                                           first
                                           second
                                           read-string)
                                :max-body (* 512 1024 1024)}))
    true))



                                                     host (:remote-addr request)]
                                                 (debug "received byte message")
                                                 (when (> (count in-buffer) 100)
                                                   (close channel)
                                                   (throw (ex-info
                                                           (str "incoming buffer for " (:remote-addr request)
                                                                " too full:" (count in-buffer))
                                                           {:url url
                                                            :count (count in-buffer)}))) 
                                                 (try
                                                   (with-open [bais (ByteArrayInputStream. blob)]
                                                     (let [reader
