         (util/info "Writing %s and %s...\n" (.getName xmlfile) (.getName propfile))
         (pod/with-call-worker
           (boot.pom/spit-pom! ~(.getPath xmlfile) ~(.getPath propfile) ~opts))
-        (-> fileset (core/add-resource tgt) core/commit!))))))
+        (-> fs (core/add-resource tgt) core/commit!))))))
 
 (core/deftask sift
   "Transform the fileset, matching paths against regexes.

                                        ~destroy
                                        ~context-create
                                        ~context-destroy)))]
    (core/with-pre-wrap fileset
      (assert (and (symbol? serve) (namespace serve))
              (format "serve function must be namespaced symbol (%s)" serve))
      @webxml
      (-> fileset (core/add-resource tgt) core/commit!))))

(core/deftask aot
  "Perform AOT compilation of Clojure namespaces."

                     (core/add-cached-resource
                       xs (digest/md5 jar) (partial pod/unpack-jar jar)
                       :include include :exclude exclude :mergers merge))]
    (core/with-pre-wrap [fs]
      (when (seq jars)
        (util/info "Adding uberjar entries...\n"))
      (core/commit! (reduce reducer fs jars)))))

(core/deftask web
  "Create project web.xml file.
