            (last absolute-slices))))
   
 (defn pop-burst-image []
-  (while (and (core isSequenceRunning) (zero? (core getRemainingImageCount)))
+  (while (and (. mmc isSequenceRunning) (zero? (. mmc getRemainingImageCount)))
     (Thread/sleep 5))
   (let [md (Metadata.)
         pix (core popNextImageMD md)

        (set-stage-position z-drive z)))
    #(do (wait-for-pending-devices)
         (expose event)
         (collect event out-queue))))

(defn execute [event-fns]
  (doseq [event-fn event-fns :while (not (:stop @state))]

      (.put out-queue (make-TaggedImage (annotate-image image event-data @state))))
   (if (core isBufferOverflowed)
      (do (swap! state assoc :stop true)
          (ReportingUtils/showError "Circular buffer overflowed."))))
  (while (and (not (@state :stop)) (. mmc isSequenceRunning))
    (Thread/sleep 5)))

(defn collect-snap-image [event out-queue]
  (let [image
