   "Returns version number from project.clj."
   []
   (let [project-clj (-> (java.io/resource "project.clj")
-                        (slurp)
-                        (read-string))]
+                        slurp
+                        edn/read-string)]
     (if (= (name (nth project-clj 1)) "nightweb-desktop")
       (nth project-clj 2)
       "beta")))

(defn read-pref
  [k]
  (when-let [string (.get prefs (name k) nil)]
    (read-string string)))

(def update? (atom (read-pref :update)))
(def remote? (atom (read-pref :remote)))

(ns nightweb-desktop.utils
  (:require [clojure.edn :as edn]
            [clojure.java.io :as java.io]
            [clojure.xml :as xml]
            [nightweb.constants :as c]
            [nightweb.formats :as f]
