 
 (defn -main
   ([& [task & args]]
-     (let [task (or (aliases task) task "help")
+     (let [task (or (@aliases task) task "help")
            args (if (@no-project-needed task)
                   args
                   (conj args (read-project)))

       (binding [*compile-path* compile-path]
         ;; TODO: can we catch only task-level arity problems here?
         ;; compare args and (:arglists (meta (resolve-task task)))?
         ;; TODO: wrap tasks in run-task using alter-var-root
         (let [value (run-task task args)]
           (when (integer? value)
             (System/exit value))))))

                                  :root root#))))
     (def ~(symbol (name project-name)) project)))

(defn abort [msg]
  (println msg)
  (System/exit 1))
