               {:file       file
                :subsystem? (subsystem-module? file)}))
           {}
-          (glob/glob (str (.getAbsolutePath root-dir)
+          (glob/glob (str (.getAbsolutePath (root-dir))
                           "/modules/*/target/*-module"))))
 
 (defn immutant-subsystems []

       (map first)))

(defmacro with-assembly-root [assembly-root & body]
  `(binding [root-dir  (-> ~assembly-root .getCanonicalFile .getParentFile .getParentFile)
             build-dir (io/file (.getCanonicalFile ~assembly-root) "target/stage")]
     ~@body))

(defn attr= [attr val loc]

               (System/getenv "M2_REPO")
               (str (System/getenv "HOME") "/.m2/repository")))

(def ^:dynamic assembly-dir nil)
(def root-dir (memoize #(-> assembly-dir .getParentFile .getParentFile)))
(def build-dir (memoize #(io/file assembly-dir "target/stage")))
(def immutant-dir (memoize #(io/file (build-dir) "immutant")))
(def jboss-dir (memoize #(io/file (immutant-dir) "jboss")))
(def versions
  (memoize
    #(assoc (extract-versions (io/file (root-dir) "pom.xml") version-paths)
       :jboss (System/getProperty "version.jbossas"))))

(defn jboss-zip-file []
  (str m2-repo "/org/jboss/as/jboss-as-dist/"
