                            0)
                 camera-channel-name (nth camera-channel-names cam-chan)
                 event (-> (first (burst-seqs cam-chan))
-                           (update-in [:channel-index] make-multicamera-channel cam-chan)
-                           (update-in [:channel :name] super-channel-name camera-channel-name))]
+                          (update-in [:channel-index] make-multicamera-channel cam-chan)
+                          (update-in [:channel :name] super-channel-name camera-channel-name)
+                          (assoc :camera-channel-index cam-chan))]
             (when (zero? i)
               (swap! state assoc
                      :burst-time-offset (- (elapsed-time @state)


(defn collect-snap-image [event out-queue]
  (let [image
        {:pix (core getImage (event :channel-index))
         :tags nil}]
    (select-keys event [:position-index :frame-index
                        :slice-index :channel-index])
    (when out-queue

       "BitDepth" (state :bit-depth)
       "Channel" (get-in event [:channel :name])
       "ChannelIndex" (:channel-index event)
       "CameraChannelIndex" (:camera-channel-index event)
       "Exposure-ms" (:exposure event)
       "Frame" (:frame-index event)
       "FrameIndex" (:frame-index event)
