           user (:user cluster)
           addresses (:addresses cluster)
           clients (:clients cluster)
-          task (taskName @tasks)]
+          task (taskName @tasks)
+          log (:log cluster)]
       (when-exit (nil? task)
         (str "No task named " (name taskName)))
       (when-exit (and (empty? addresses)

        [clojure.contrib.def :only [defvar- defvar]]))

(def *enable-color* true)
(defvar- bash-reset "\033[0m")
(defvar- bash-bold "\033[1m")
(defvar- bash-redbold "\033[1;31m")

                       bash-reset
                       (if parallel
                         " in parallel")))
        (binding [*enable-logging* (if (nil? log) true log)]
          (dorun (map-fn #(perform % user cluster task taskName args)
                                 addresses))
          (dorun (map-fn #(perform (:host %) (:user %) cluster task taskName args)
                         clients)))
        (shutdown-agents)))))

(defn begin []
  (do-begin *command-line-args*))