                    (or (pos? (core getRemainingImageCount))
                        (and (core isSequenceRunning)
                             (not (@state :circular-buffer-overflow)))))
-          (let [image (pop-burst-image)
+          (let [image (pop-burst-image (* 10 (:exposure event)))
                 cam-chan (if-let [cam-chan-str (get-in image [:tags camera-index])]
                            (Long/parseLong cam-chan-str)
                            0)

    (swap! state assoc-in [:last-stage-positions (core getFocusDevice)]
           (last absolute-slices))))
  
(defn pop-burst-image []
  (while (and (. mmc isSequenceRunning) (zero? (. mmc getRemainingImageCount)))
    (Thread/sleep 5))
  (let [md (Metadata.)
        pix (core popNextImageMD md)
        tags (parse-core-metadata md)]

(defn execute [event-fns]
  (doseq [event-fn event-fns :while (not (:stop @state))]
    (check-for-serious-error)
    (event-fn)
    (await-resume)))

(defn run-acquisition [this settings out-queue]
