            Long/parseLong
            u/format-date
            (try (catch Exception _)))
-       (.getName f))])
+       (.getName f))
+   (.getCanonicalPath f)])
 
 (defn load-project!
   [path]


(defn read-title
  [f]
  [(.getCanonicalPath f)
   (or (-> (io/file f u/properties-file)
            slurp
            edn/read-string
            :title

    (when-not @u/main-dir
      (reset! u/main-dir (u/get-data-dir)))
    (let [ui-skin (skin "uiskin.json")
          create-button (fn [[display-name path]]
                          (text-button display-name ui-skin :set-name path))
          new-games (->> (for [i (range (count templates))]
                           [(nc-utils/get-string (nth templates i))
                            (nth templates i)])
                         (map create-button))
          saved-games (->> (io/file @u/main-dir)
                           .listFiles
