   (is incoming)
   (is (or (keyword? incoming)
           (< 0 (count incoming))))
-  (let [prelog (utils/pre-log "Handshake Client: child callback")
+  (let [prelog (utils/pre-log "Handshake Client: child process trigger")
         client-state @client-state-atom]
     (log/info prelog
               (str "Client State: "

                                           "Buffered bytes from child"
                                           "Giving up on sending message from child"
                                           {}))
                       (<= 5 n)))])
      (log/error prelog "No bytes decoded. Shouldn't have gotten here"))))

(defn mock-client-child

                                     (log/error ex "This really shouldn't pass")
                                     (is (not ex))))
                                 nil))]
                       (log/info prelog2
                                 incoming
                                 "from\n"
                                 prelog
                                 "triggered a response:"
                                 next-message)
                       (swap! client-state-atom update ::count inc)
                       ;; Hmm...I've wound up with a circular dependency
                       ;; on the io-handle again.
                       ;; Q: Is this a problem with my architecture, or just
