   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)
+        frames    (if (buffer-live? buf)
+                    (buffer-data buf)
+                    [])
+        step      (/ (:size buf) width)
         y-scale   (- height (* 2 Y-PADDING))
         [y-a y-b] @y-arrays]
 

  (dosync (ref-set scopes-running?* false)))

(defn- start-bus-synth
  [bus buf]
  (bus->buf :target @scope-group* bus buf))

(defn- scope-bus
  "Set a bus to view in the scope."
  [s]
  (let [buf (buffer SCOPE-BUF-SIZE)
        bus-synth (start-bus-synth (:num s) buf)]
    (assoc s
      :size SCOPE-BUF-SIZE
      :bus-synth bus-synth

(defn- scope-bus-freq
  [s]
  (let [buf (buffer SCOPE-BUF-SIZE)
        bus-synth (start-bus-freq-synth (:thing s) buf)]
    (assoc s
      :size SCOPE-BUF-SIZE
      :bus-synth bus-synth
