                                    {}
                                    {:module (str (-> webapp-edn-c :module :name))})
                                  {}))
-              app-id (name (-> (boot/get-env) :gae :app-id))
-              version (str/replace (-> (boot/get-env) :gae :version) "." "-")
-              version (str "r-" (subs version 0 (.lastIndexOf version "-SNAPSHOT")))
+              app-id (name (-> (boot/get-env) :gae :app :id))
+              ;; version (str/replace (-> (boot/get-env) :gae :module :version) "." "-")
+              ;; version (str "r-" (subs version 0 (.lastIndexOf version "-SNAPSHOT")))
               module (-> (boot/get-env) :gae :module :name)
               ;; module (if (:module gae-forms)
               ;;          (str (:module gae-forms) "-" version)

    (comp (install-sdk)
          (libs :verbose verbose)
          (appstats :verbose verbose)
          (builtin/javac)
          (if prod identity (reloader :keep keep :service service :verbose verbose))
          (filters :keep keep :verbose verbose)
          (servlets :keep keep :verbose verbose)

   k keep bool str "keep intermediate .clj files"
   m module MODULE str "module dirpath"
   v verbose bool "Print trace messages."]
  ;; boolean hasUppercase = !password.equals(password.toLowerCase());
  (let [tmp-dir (boot/tmp-dir!)
        prev-pre (atom nil)
        dir (if dir dir web-inf-dir)
        version (str/replace (-> (boot/get-env) :gae :module :version) "." "-")]
    (if (not= version  (.toLowerCase version))
      (throw (Exception. (str "Upper-case not allowed in GAE version string: " version))))
    (boot/with-pre-wrap fileset
      (let [webapp-edn-files (->> (boot/fileset-diff @prev-pre fileset)
                                  boot/input-files
