             (>= receive-written receive-bytes))
       ;; 440: sets maxblocklen=1024
       ;; Q: Why was it ever 512?
-      ;; Guess: for initial Message part of Initiate packet
-      (let [state' (assoc-in state [::specs/outcoming ::specs/max-block-length] K/k-1)]
+      ;; Guess: for initial Message part of Initiate packet, although
+      ;; that limit's higher.
+      (let [state' (assoc-in state [::specs/outgoing ::specs/max-block-length] K/k-1)]
         (log/debug (str message-loop-name ": Handling incoming message, if it's comprehensible"))
         ;; Move on to line 444
+        ;; It seems as though this should forward the incoming message
+        ;; along to the child. But it's really just setting up the
+        ;; state to do that.
         (handle-comprehensible-message! state'))
       (do
         ;; Nothing to do.

          ;; The gap-buffer that we are *not* updating is about
          ;; arriving messages that might have been dropped/misordered
          ;; due to UDP issues.
          (log/debug "Discarding a pure ACK")
          state)))))

(s/fdef flag-acked-others!

                     :packet ::specs/packet)
        :ret ::start-stop-details)
(defn calculate-start-stop-bytes
  "Extract start/stop ACK addresses (lines 562-574)"
  [{{:keys [::specs/receive-bytes
            ::specs/receive-written]
     :as incoming} ::specs/incoming
    :keys [::specs/message-loop-name]
    :as state}
   {^ByteBuf incoming-buf ::specs/buf
    D ::specs/size-and-flags
    start-byte ::specs/start-byte
