        (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]


(defn ssh-client [host user]
  (let [user (or user (:user @*global-options*))]
    (if (not user)
      (throw (IllegalArgumentException. "user is nil")))
    (str user "@" host)) )


                                 " 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)])
