                 mean (/ passed intervals)]
             (rhythm/metro-bpm metronome (double (/ 60000 mean))))))
       ;; This tap was isolated, but may start a new series.
-      (reset! buffer (conj (ring-buffer max-tempo-tap-interval) timestamp))))
+      (reset! buffer (conj (ring-buffer max-tempo-taps) timestamp))))
   nil)
 
 (defn create-tempo-tap-handler
   "Returns a function which implements a simple tempo-tap algorithm on
   the supplied metronome."
   [metronome]
-  (let [buffer (atom (ring-buffer max-tempo-tap-interval))]
+  (let [buffer (atom (ring-buffer max-tempo-taps))]
     (fn [] (tap-handler buffer metronome))))
 
 (defonce

      mechanism ever offers that), and :status, which is a
      human-oriented summmary of the status."))))

(defn- sync-handler
  "Called whenever a MIDI message is received for a synced metronome.
  If it is a clock pulse, update the ring buffer in which we are

                             intervals (dec (count @timestamps))
                             mean (/ passed intervals)]
                         (alter means conj mean)
                         (when (>= (count @means) min-clock-intervals)
                           (let [num-means (count @means)
                                 mean-mean (/ (apply + @means) num-means)
                                 dev (std-dev @means num-means mean-mean)
                                 implied (bpm-to-interval (rhythm/metro-bpm metronome))
                                 adjustment (math/abs (- implied mean-mean))]
                             (when (> adjustment (max abs-tolerance (* dev-tolerance dev)))
                               (timbre/info "dev" dev "mean-mean" (float mean-mean) "adjustment" adjustment)
                               (rhythm/metro-bpm metronome (interval-to-bpm mean-mean))))))))
     (:start :stop) (do (ref-set timestamps (ring-buffer max-clock-intervals)) ; Clock is being reset
                        (ref-set means (ring-buffer max-clock-intervals)))
     :control-change (when (and (some? @traktor-info) (< (:note msg) 5))  ; Traktor beat phase update
