            "E, M d yyyy"]))
 
 
-;;; Bound in (main)
-(def *config* nil)
+;;; Set in (main)
+(def config (atom nil))
 
 
 (defn address-to-str [address]

  (let [query (BooleanQuery.)
        all-fields (.parse (doto (MultiFieldQueryParser.
                                  Version/LUCENE_30
                                  (into-array (keys *parse-rules*))
                                  (StandardAnalyzer. Version/LUCENE_30))
                             (.setDefaultOperator QueryParser$Operator/AND))
                           (normalcase querystr))]

;;; The main bit...

(defn -main [& args]
  (reset! config (read (PushbackReader. (reader "config.clj"))))
  (let [{:keys [port indexfile]} @config
        connections (map (fn [b]
                           (require (:backend b))
                           (let [conn (@(ns-resolve (:backend b)
