         (map remove-location
           (remove nil?
             (for [location-row selected-rows]
-              (do (println (.getValueAt location-model location-row 0))
-                  (.getValueAt location-model location-row 0))))))
-      (.fireTableDataChanged location-model))))
+              (.getValueAt location-model location-row 0))))))
+      (.fireTableDataChanged location-model)))
     
 (defn clear-history []
   (remove-location ""))

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

(defn refresh-collection []

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