   "This is probably generally applicable"
   [{:keys [::prefix]
     :as state} bs]
+  (throw (RuntimeException. "Obsolete"))
   ;; Q: How much easier would using ByteBuf make this?
   ;; As it is, I feel like this needs its own unit test.
   (log/debug "Trying to extract object number"

   success-message
   error-message
   error-details]
  ;; This actually sends a stream of data.
  ;; So prepend with the byte count
  (let [printed (pr-str response)
        payload (.getBytes printed)
        response-length (count payload)
        ;; 2 bytes for length encoding
        buffer (+ 2 response-length)]
    (b-t/uint16-pack! buffer 0 response-length)
    (b-t/byte-copy! buffer 2 response-length payload)
    (m-t/try-multiple-sends message/child->!
                            prelog
                            5
                            io-handle
                            buffer
                            success-message
                            error-message
                            error-details)))

(s/def ::prefix (s/nilable bytes?))
(s/def ::count nat-int?)
(s/def ::state (s/keys :req [::count
                             ::prefix]))
(s/def ::next-object any?)
(s/fdef extract-next-object-from-stream
        :args (s/cat :state ::state
                     :bs bytes?)

                      (log/error ex "This really shouldn't pass")
                      (is (not ex))))
                  nil))]
        (log/info prelog
                  incoming
                  "triggered a response:"
                  next-message)
        ;; Hmm...I've wound up with a circular dependency
        ;; on the io-handle again.
        ;; Q: Is this a problem with my architecture, or just
        ;; a testing artifact?
        (when next-message
          (swap! client-state update ::count inc)
          (buffer-response! @client-atom
                            prelog
                            next-message
                            "Buffered bytes from child"
                            "Giving up on sending message from child"
                            {}))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Tests

(deftest handshake
  (let [prelog (utils/pre-log "Handshake test")]
