        (join " " content)))
 
 (defn-  log-with-tag [host tag & content]
-  (if (and *enable-logging* (not (blank? (join " " content))))
+  (when (and *enable-logging* (not (blank? (join " " content))))
     (println (gen-log host tag content))))
 
 (defn  ^:dynamic  exec [host user cmdcol]

                                   item))
                               item))
                           body)]
    (if (not (vector? arguments))
      (throw (IllegalArgumentException. "Task must have arguments vector")))
    (if *debug*
      (prn name "new-body:" new-body))
    `(swap! tasks
            assoc

                                 " just needs "
                                 task-arg-count
                                 " arguments")))
               (binding [*enable-logging* (or log true)
                         *debug* debug]
                 (when *enable-logging*
                   (println  (str bash-bold
                                  "Performing "
                                  (name cluster-name)
                                  bash-reset
                                  (when parallel
                                    " in parallel"))))
                 (let [map-fn (if parallel pmap map)
                       a (doall (map-fn (fn [addr] [addr (perform addr user cluster task task-name task-args)])
