                                 last-block-time
                                 (- now recent)))
         default-next (+ recent (utils/seconds->nanos 60))  ; by default, wait 1 minute
-        _ (log/debug (cl-format nil
-                                "~a: Default +1 minute: ~:d from ~:d"
-                                message-loop-name
+        _ (log/debug prelog
+                     (cl-format nil
+                                "Default +1 minute: ~:d from ~:d"
                                 default-next
                                 recent))
         ;; Lines 286-289
-        _ (log/debug (str message-loop-name ": Scheduling based on want-ping value '" want-ping "'"))
+        _ (log/debug prelog (str "Scheduling based on want-ping value '" want-ping "'"))
         next-based-on-ping (if want-ping
                              ;; Go with the assumption that this matches wantping 1 in the original
                              ;; I think the point there is for the

         {:keys [::specs/next-action]
          :as flow-control} ::specs/flow-control
         :as state} @state-atom
        pre-log (pre-log state-wrapper)
        now (System/nanoTime)]
    (assert recent)
    (log/debug pre-log
               (cl-format nil
                          "Top of scheduler at ~:d"
                          now))

  ;; and get an ACK in the past, that would be awesome.
  ;; TODO: Be smarter about the timeout.
  (let [now (System/nanoTime)
        ;; TODO: Switch to the alt version using cond->
        ;; But first, see whether the performance diffence
        ;; goes away if I just eliminate all the logging
        min-resend-time (+ last-block-time n-sec-per-block)
        prelog (utils/pre-log message-loop-name)
        _ (log/debug prelog
                     (cl-format nil
                                (str "Minimum send time: ~:d\n"
                                     "which is ~:d nanoseconds\n"
