 (defn- initialize-response
   [state evt val current-state]
   (when-not (= :response evt)
-    (throw (Exception. "Um... responses start with the head?")))
+    (throw (Exception. (str "Um... responses start with the head?\n"
+                            "  Event: " evt "\n"
+                            "  Value: " val))))
 
   (let [[status hdrs body] val
         hdrs (or hdrs {})]

   In this state, any further downstream messages are unexpected
   since pipelining is not (yet?) supported. Also, if the connection
   does not support keep alives, the connection will get into this state."
  [_ _ _]
  (throw (Exception. "Not expecting a message right now")))

(defn- stream-request-body
  [state ^HttpChunk chunk current-state]

            (finalize-channel current-state))))))

(defn- aborted-req
  [_ evt val _]
  (throw (Exception. (str "This request has been aborted.\n"
                          "  Event: " evt "\n"
                          "  Value: " val))))

(defn- body-size
  [body]
