 
 (defn execute [event-fns]
   (doseq [event-fn event-fns :while (not (:stop @state))]
+    (check-for-serious-error)
     (try (event-fn) (catch Throwable e (ReportingUtils/logError e)))
     (await-resume)))
 

        bursts-per-camera-channel (vec (repeat camera-channel-count burst-events))]
    (doall
      (loop [burst-seqs bursts-per-camera-channel i 0]
        (if (and (not (@state :stop))
                 (not (apply = nil burst-seqs))
                 (or (pos? (core getRemainingImageCount))

        [org.micromanager.sequence-generator :only [generate-acq-sequence
                                                    make-property-sequences]])
  (:require [clojure.set])
  (:import [org.micromanager AcqControlDlg MMStudioMainFrame]
           [org.micromanager.api AcquisitionEngine TaggedImageAnalyzer]
           [org.micromanager.acquisition AcquisitionWrapperEngine LiveAcq TaggedImageQueue
                                         ProcessorStack SequenceSettings MMImageCache
