   (reset! browser (create-browser))
   (MMImageCache/addImageStorageListener (create-image-storage-listener))
   (.setModel (:table @browser) (create-browser-table-model tags))
-  (load-data-and-settings (load-last-collection))
+  (let [collection-name (get-last-collection-name)]
+    (apply-data-and-settings collection-name (load-data-and-settings collection-name)))
   (.show (@browser :frame))
   browser)
 

  (when-let [col-vector (.. table getColumnModel getColumns)]
    (enumeration-seq col-vector)))

(defn set-filter [table text]
  (let [sorter (.getRowSorter table)
        column-indices

                         prompt-msg))
           :else collection-name)))))

(defn create-new-collection []
  (let [collection-name (user-specifies-collection-name)]
    (when collection-name
      (swap! collections assoc collection-name
        (.getAbsolutePath (File. (str collection-name ".mmdb.txt"))))
        (save-collection-map)
        (apply-data-and-settings collection-name (fresh-data-and-settings)))))

(defn create-image-storage-listener []
  (reify ImageStorageListener
