   (try
     (let [asset-paths (find-asset-paths project)
           parameters (start-parameters project)
-          agent (ssh/ssh-agent {:use-system-ssh-agent false})
+          agent (ssh/ssh-agent {})
           session (ssh/session agent (:host parameters) (session-option parameters))]
       (m/info "* Starting with the parameters:" (assoc parameters :password "***") "\n")
       (ssh/connect session)


(defn session-option [parameters]
  {:username                 (:user parameters)
   :password                 (:password parameters)
   :strict-host-key-checking :no})

(defn remote-test-refresh [project & _]

                 "git reset --hard;"
                 (str "git apply --whitespace=warn " remote-patch-file-name ";")
                 "rm -f " remote-patch-file-name ";")
        result-apply-patch (ssh/ssh session {:cmd cmd :agent-forwarding true})]
    (if (= 0 (:exit result-apply-patch))
      {:step :apply-patch :status :success}
      {:step :apply-patch :status :failed :error (:err result-apply-patch)})))
