   (ensure-internal-server!)
   (dosync
    (when-not @scopes-running?*
-     (at-at/every (/ 1000 FPS) update-scopes scope-pool :desc "Scope refresh fn")
+     (at-at/every (/ 1000 FPS) #'update-scopes scope-pool :desc "Scope refresh fn")
      (ref-set scopes-running?* true))))
 
 (defn- reset-data-arrays

  will cause the crash to happen sooner. Need to remove this limitation
  when scsynth-jna is fixed."
  [s]
  (let [{:keys [buf size width height panel y-arrays x-array panel]} s
        frames    (if @(:update? s) (buffer-data buf) @(:frames s))
        step      (/ (buffer-size buf) width)
        y-scale   (- height (* 2 Y-PADDING))
        [y-a y-b] @y-arrays]


(defn- scope-buf
  "Set a buffer to view in the scope."
  [s]
  (let [buf (:thing s)]
    (assoc s
      :size (:size buf)
      :buf  buf)))

(defn scope-close
  "Close a given scope. Copes with the case where the server has crashed
