           (throw (ex-info "Sending failed"
                           {::failed-on frame
                            ::context prelog}))
-          (log/debug prelog (str (count array) "-byte frame sent")))))))
+          (swap! log-atom
+                 log/debug
+                 ::buffer-response!
+                 "frame sent"
+                 {::frame-size (count array)}))))))
 (comment
   ;; Inline test for test-helper.
   ;; This seems like a bad sign.

          ;; These are really hooks for sending the bytes to the encryption
          ;; layer.
          server-parent-cb (fn [bs]
                             (log/info (utils/pre-log "Server's parent callback")
                                       "Sending a" (class bs) "to server's parent")
                             (let [sent (strm/try-put! server->client bs time-out ::timed-out)]
                               (is (not= @sent ::timed-out))))
          server-child-cb (partial mock-server-child
                                   srvr-decode-src)]
      (dfrd/on-realized succeeded?
                        (fn [good]
                          (log/info "----------> Test should have passed <-----------"))
                        (fn [bad]
                          (log/error bad "High-level test failure")
                          (is (not bad))))

      ;; If we use consume-async (which seems preferable), we risk

                                    (conj acc result)))
                                []
                                frames)
          log-atom (log/init)
          decoded (map (partial decode-bytes->child
                                decode-src
                                decode-sink
                                log-atom)
                       binary-frames)]
      (try
        (dorun decoded)
