             ;; Actually, should probably add an optional client-supplied
             ;; error handler for situations like this
             (assoc state
-                   ::log/state
+                   ::log2/state
                    (log2/warn log-state
                               ::trigger-from-parent
                               "Incoming message too large"

    :keys [::specs/message-loop-name]
    :as state}]
  {:pre [callback]}
  (let [prelog (utils/pre-log message-loop-name)]
    (log/info prelog
              "trigger-from-child"
              "\nSent stream address:"
              strm-hwm)
    (deliver accepted? true)
    (let [state' (callback state)]
      ;; TODO: check whether we can do output now.

  ;; But (at least in theory) it could also trigger
  ;; output to-child.
  ;; So leave it be for now.

  ;; I keep thinking that I need to check data arriving from
  ;; the child, but the main point to this logic branch is
  ;; to resend an outbound block that hasn't been ACK'd yet.
  (trigger-output io-handle (update state
                                    ::log2/state
                                    #(log2/debug %
                                                 ::trigger-from-timer
                                                 "I/O triggered by timer"
                                                 {::specs/message-loop-name message-loop-name}))))

(defn condensed-choose-next-scheduled-time
  [{{:keys [::specs/n-sec-per-block
