   (binding [state (atom (create-basic-state))]
     (let [event (create-basic-event)]
       (core snapImage)
-      (annotate-image (collect-snap-image event nil) event @state))))
+      (annotate-image (collect-snap-image event nil) event @state nil))))
     
 (defn show-image [display tagged-img focus]
   (let [myTaggedImage (make-TaggedImage tagged-img)

              (swap! state assoc
                     :burst-time-offset (- (elapsed-time @state)
                                           (core-time-from-tags (image :tags)))))
            (.put out-queue (make-TaggedImage (annotate-image image evt @state))))
          (when (core isBufferOverflowed)
            (swap! state assoc :stop true)
            (ReportingUtils/showError "Circular buffer overflowed."))))

      (if on
        (let [event (create-basic-event)
              state (create-basic-state)
              first-image (atom true)
              start-time (jvm-time-ms)]
          (dosync (ref-set live-mode-running true))
          (core startContinuousSequenceAcquisition 0)
          (log "started sequence acquisition")
          (.start (Thread.
                    #(do (while @live-mode-running
                           (let [raw-image {:pix (core getLastImage) :tags nil}
                                 elapsed-time-ms (- (jvm-time-ms) start-time)
                                 img (annotate-image raw-image event state elapsed-time-ms)]
                              (reset-snap-window img)
                              (show-image @snap-window img @first-image)
                              (reset! first-image false)))
