         image-number (if (first-trigger-missing?) (dec image-number) image-number)
         burst-event (nth burst-events image-number)
         camera-channel-name (nth camera-channel-names cam-chan)
+        num-camera-channels (count camera-channel-names)
         event (-> burst-event
-                  (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 num-camera-channels)
+                  (update-in [:channel :name]
+                             super-channel-name
+                             camera-channel-name num-camera-channels)
                   (assoc :camera-channel-index cam-chan))
         time-stamp (burst-time (:tags image) @state)]
+    ;image))
     (annotate-image image event @state time-stamp)))
 
 (defn produce-burst-images

  (def last-acq this)
    (reset! (.state this) {:stop false :pause false :finished false})
    (let [out-queue (LinkedBlockingQueue. 10)
          acq-thread (Thread. #(run-acquisition this settings out-queue cleanup?)
                              "AcquisitionSequence2010 Thread (Clojure)")]
      (reset! (.state this)
              {:stop false

      (get {1 1 , 4 3} n))))

(defn super-channels [simple-channel camera-channel-names]
  (let [n (count camera-channel-names)]
    (if (< 1 n)
      (map #(update-in simple-channel [:name] super-channel-name % n)
           camera-channel-names)
      simple-channel)))

(defn all-super-channels [simple-channels camera-channel-names]
  (flatten (map #(super-channels % camera-channel-names) simple-channels)))
