    See server-clock-uptime and server-clock-time for functions that
    return time in milliseconds."
   []
-  (let [[b-t s-t] (control-bus-get-range server-clock-tick-b 2)]
+  (let [[b-t s-t] (control-bus-get-range server-clock-b 2)]
     (+ (* b-t defaults/SC-MAX-FLOAT-VAL)
        s-t)))
 


(defn- server-clock-reset-tick-b
  []
  (control-bus-set-range! server-clock-tick-b [0 0]))

(defn- server-clock-start
  []

  (server-clock-reset-tick-b)
  (let [start-t (+ (System/currentTimeMillis) 500)]
    (reset! server-clock-start-time start-t)
    (at start-t (__internal-wall-clock__ [:head (foundation-timing-group)] server-clock-b))))

(defn server-clock-n-ticks
  "Returns the number of internal ticks since the server clock was
