   (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."))))

(defn collect-snap-image [event out-queue]
  (let [image
         {:pix (core getImage)
          :tags nil}]
    (do (log "collect-snap-image: "
               (select-keys event [:position-index :frame-index
                                   :slice-index :channel-index]))
      (when out-queue
          (.put out-queue
                (make-TaggedImage (annotate-image image event @state (elapsed-time @state))))))
    image))

(defn return-config []
