             (>= 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.

                   [::specs/ack-gap-4->5 ::specs/ack-length-5] ; 30-32
                   [::specs/ack-gap-5->6 ::specs/ack-length-6]])] ; 34-36
    (log/debug (str message-loop-name
                    ": Gaps: " (into [] gaps)
                    "\nState: " state))
    (->
     (reduce (fn [{:keys [::stop-byte]

          ;; The gap-buffer that we are *not* updating is about
          ;; arriving messages that might have been dropped/misordered
          ;; due to UDP issues.
          (log/debug (str message-loop-name
                          ": Pure ACK never updates gap-buffer"))
          state)))))

(s/fdef flag-acked-others!
