   (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-tick-b))))
+    (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


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

(defn- server-clock-start
  []

   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-b 2)]
    (+ (* b-t defaults/SC-MAX-FLOAT-VAL)
       s-t)))

