               ;; (I keep running across bugs that have issues with this,
               ;; and it wreaks havoc with my REPL)
               delta-nanos (max 0 scheduled-delay)
-              delta (inc (utils/nanos->millis delta-nanos))
+              delta (if (< delta-nanos 0)
+                      0
+                      (inc (utils/nanos->millis delta-nanos)))
               delta_f (float delta)  ; For printing
               ;; Creating this isn't a huge overhead, but I'm skeptical
               ;; about this approach.

                                next-based-on-eof))
        ;; Lines 293-296
        rtt-resend-time (+ earliest-time rtt-timeout)
        next-based-on-earliest-block-time (if (and (not= 0 earliest-time)
                                                   (> rtt-resend-time
                                                      min-resend-time))

;;; Internal API

;;;; Q: what else is in the reference implementation?
;;;; A: Lots. Scattered around quite a bit now
;;;; 186-654 main
;;;          186-204 boilerplate

