     :as incoming}
    k-v-pair]
   (let [[[start stop] ^ByteBuf buf] k-v-pair]
-    (log/debug (str "Does " start "-" stop " close a hole in "
+    (log/debug (str message-loop-name
+                    ": Does " start "-" stop " close a hole in "
                     gap-buffer " from HWM " receive-bytes "?"))
     ;; For now, this top-level if check is redundant.
     ;; I'd rather be safe and trust the JIT than remove it

     :as incoming} ::specs/incoming
    :keys [::specs/message-loop-name]
    :as state}]
  {:pre [gap-buffer]}
  (assoc state
         ::specs/incoming
         (reduce (fn [{:keys [::specs/receive-bytes]

      ;; Q: Did a previous message overwrite this message block?
      (if (< stop receive-bytes)
        (do
          (log/debug (str message-loop-name
                          ": Dropping previously consolidated block"))
          (let [to-drop (val (first gap-buffer))]
            (try
              (.release to-drop)
              (catch RuntimeException ex
                (log/error ex (str message-loop-name
                                   ": Failed to release"
                                   to-drop)))))
          (update incoming ::specs/gap-buffer pop-map-first))
        ;; Consolidate this message block
        ;; I'm dubious about the logic for bytes-to-skip
