      :as outgoing} ::specs/outgoing
     :as state}]
   ;; Really just for timing info
-  (log/debug (str message-loop-name ": top of pre-calculate ofter-send"))
+  (log/debug (str message-loop-name ": top of pre-calculate after-send"))
   (assert next-block-queue
           (str message-loop-name
                ": No next-block-queue to tell us what to send\nAvailable:\n"

                    ")\nfrom\n"
                    un-sent-blocks
                    "\nto\n"
                    un-ackd-blocks))
    (-> state
        ;; Since I'm having issues with this, it seems worth mentioning that
        ;; this is a sorted-set (by specs/time)
        (update-in [::specs/outgoing ::specs/un-ackd-blocks] conj block-to-move)
        (update-in [::specs/outgoing ::specs/un-sent-blocks] pop))))

(s/fdef pre-calculate-state-after-send
        :args (s/cat :state ::specs/state)

              (str message-loop-name
                   ": Missing ::transmissions under "
                   next-block-queue)))
    (let [next-message-id (let [n' (inc current-message-id)]
                            ;; Stupid unsigned math
                            ;; Actually, this seems even more problematic
