              (may-update-source-project-desc options)
              (command target-projects))))
     (catch Exception e
-      (m/info "An error occurs with the input string: " search-project-string e))))
+      (m/info "An error occurs with the input string: " search-project-string (.getMessage e)))))
 
 (defn cli-options [profiles]
   [["-a" "--interactive" "activate interactive mode"]

       (cli/parse-opts args)))

(defn sync [project-desc & args]
  (let [{:keys [options arguments summary errors]} (parse-args project-desc args)]
    (cond
      (seq errors) (m/abort (str/join " " errors))
      (not= 1 (count arguments)) (m/abort (usage summary))
      :else (execute-program (first arguments) project-desc options c/SYNC-COMMANDS PARENT-FOLDER))
    (m/exit)))
            [leiningen.leinsync.utils :as u]))

(def PARENT-FOLDER "../")
(def ALL-PROJECTS ".*")

(defn find-command [options commands]
  (->> options
