                 (:properties channel)))
             default-cam)]
     (set-property chan-cam)
-    (let [n (core getNumberOfComponents)]
+    (let [n (long (core getNumberOfComponents))]
       (set-property default-cam)
       (get {1 1 , 4 3} n))))
 
 (defn make-summary-metadata [settings]
-  (let [depth (int (core getBytesPerPixel))
+  (let [depth (core getBytesPerPixel)
         channels (settings :channels)
-        num-camera-channels (core getNumberOfCameraChannels)
-        simple-channels (if-not (empty? channels) channels [{:name "Default" :color java.awt.Color/WHITE}])
-        super-channels (flatten (for [channel simple-channels] (repeat num-camera-channels channel)))]
+        num-camera-channels (long (core getNumberOfCameraChannels))
+        super-channels (flatten (for [channel channels] (repeat num-camera-channels channel)))]
      (JSONObject. {
       "BitDepth" (core getImageBitDepth)
       "Channels" (count super-channels)

;; generic metadata

(defn convert-settings [^SequenceSettings settings]
  (-> settings
    (data-object-to-map)
    (rekey

    image-tags
    ["Width" "Height" "PixelType"]))  

(defn initialize-display-ranges [window]  
  (do (.setChannelDisplayRange window 0 0 256)
      (.setChannelDisplayRange window 1 0 256)
      (.setChannelDisplayRange window 2 0 256)))

(defn create-image-window [first-image]
  (let [summary {:interval-ms 0.0, :custom-intervals-ms [] :use-autofocus false, :autofocus-skip 0,
                 :relative-slices true, :keep-shutter-open-slices false, :comment "",
