               (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))))
+            (.put out-queue (make-TaggedImage (annotate-image image evt @state
+                                                              (burst-time (:tags image) @state)))))
           (when (core isBufferOverflowed)
             (swap! state assoc :stop true)
             (ReportingUtils/showError "Circular buffer overflowed."))))

       "ZPositionUm" (get-in state [:last-stage-positions (state :default-z-drive)])
      })))
   
(defn annotate-image [img event state]
  {:pix (:pix img)
   :tags 
   (merge
     (generate-metadata event state)
     (:tags img)
     {"ElapsedTime-ms" (burst-time (:tags img) state)}
     )}) ;; include any existing metadata

(defn make-TaggedImage [annotated-img]

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