           (assoc-in state
                     [::specs/outgoing ::specs/next-block-queue]
                     ::specs/un-sent-blocks))
-        (do
-          ;; Be explicit about this
-          ;; TODO: Avoid extra hoops. Make the caller smarter/less complex.
-          ;; Just set the cursor to nil here.
-          nil)))))
+        ;; Leave it as-is
+        state))))
 
 (s/fdef pick-next-block-to-send
         :args (s/cat :state ::specs/state)

                    ": Does it make sense to try to send any of our "
                    block-count
                    " unsent blocks?"))
    (when (< 0 block-count)
      (if (ok-to-send-new? state)
        ;; XXX: if any Nagle-type processing is desired, do it here (--DJB)
        ;; Consolidating smaller blocks *would* be a good idea -- JRG


(s/fdef check-for-new-block-to-send
        :args (s/cat :state ::specs/state)
        :ret ::specs/state)
(defn check-for-new-block-to-send
  "Q: Is there a new block ready to send?

