                                                                                   ::echo-child-cb
                                                                                   "Sent EOF after the message block")]
                                                         (log2/flush-logs! logger inner-logs))))
-                                                  logs)
-                                                (log2/warn logs :echo-child-cb "Empty incoming message. Highly suspicious"))]
-                                     (let [{:keys [::specs/from-child]
+                                                  logs))]
+                                     (log2/warn logs :echo-child-cb "Empty incoming message. Highly suspicious"))
+                                   (let [{:keys [::specs/from-child]
                                             :as io-handle} @io-handle-atom
                                            logs (log2/warn logs
                                                            ::echo-child-cb
-                                                           "Child received EOF. Mark done.")]
+                                                           "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))]
                              (log2/flush-logs! logger logs))
                            (catch Exception ex
                              (println "child-cb Failed:" ex)

                       (let [logs (log2/info logs
                                             ::echo-child-cb
                                             "Incoming to child"
                                             {::rcvd array-o-bytes})]
                         (is array-o-bytes "Falsey reached callback")
                         (println "Checked for truthy incoming")
                         (try

            ;; logs parameter.
            ;; The bigger-picture problem is that the problem wasn't
            ;; immediately obvious
            ;; FIXME: Start back with the caller to fix that.
            child-cb (fn [logs array-o-bytes]
                       (println "Top of child-cb")
                       ;; TODO: Add another similar test that throws an
                       ;; exception here, for the sake of hardening the
