 (defn create-image-storage-listener []
   (reify ImageStorageListener
     (imageStorageFinished [_ path]
-      (println "image storage:" path)
+     ; (println "image storage:" path)
       (.put pending-data-sets [path ""]))))
 
 (defn refresh-collection []

      (.addWindowListener
        (proxy [WindowAdapter] []
          (windowClosing [e]
            (println frame)
            (save-data-and-settings
              (get-last-collection-name)
                (get-current-data-and-settings))

                  (let [location (.take pending-locations)]
                    (if-not (= location pending-locations)
                      (do (doseq [data-set (find-data-sets location)]
                           ; (println "data-set:" data-set)
                            (.put pending-data-sets [data-set location]))
                          (recur))
                    nil))
