 
           parent-cb (fn [bs]
                       (swap! log-atom
-                             log2/info
+                             log/info
                              ::client-parent-cb
                              "Forwarding buffer to server")
                       ;; This approach is over-simplified for the sake

            (comment (is (not outcome) "What should we have here?"))))
        (finally
          (swap! log-atom
                 log2/info
                 ::bigger-outbound
                 "Ending test")
          (log2/flush-logs! logger @log-atom)
          (try
            (message/halt! client-io-handle)
            (catch RuntimeException ex

                                                      (message/child-close! @io-handle-atom)
                                                      ;; This is called purely for side-effects.
                                                      ;; The return value does not matter.
                                                      (let [[_ inner-logs] (log/fork logs ::child-done)
                                                            inner-logs (log/info inner-logs
                                                                                 ::echo-child-cb
                                                                                 "Sent EOF after the message block")]
                                                        (log/flush-logs! logger inner-logs))))
                                                  logs))]
                                     (log/warn logs :echo-child-cb "Empty incoming message. Highly suspicious"))
                                   (let [{:keys [::specs/from-child]
                                            :as io-handle} @io-handle-atom
                                           logs (log/warn logs
                                                          ::echo-child-cb
                                                          "Child received what should be EOF. Mark done.")]
                                       (message/child-close! io-handle)
                                       (is (s/valid? ::specs/eof-flag array-o-bytes))
                                       (deliver child-finished array-o-bytes)
                                       logs))
                                 logs (log/flush-logs! logger logs)]
                             (reset! log-atom logs))
                           (catch Exception ex
                             (println "child-cb Failed:" ex)
