     (setq intero-project-root
           (with-temp-buffer
             (cl-case (save-excursion
-                       (intero-call-process "stack" nil
+                       (intero-call-process intero-stack-executable nil
                                             (current-buffer)
                                             nil
                                             "path"

        (setq intero-extensions
              (split-string
               (shell-command-to-string
                "stack exec --verbosity silent -- ghc --supported-extensions"))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Auto actions

                      (when intero-debug
                        (message "Intero arguments: %s" (combine-and-quote-strings arguments)))
                      (message "Booting up intero ...")
                      (apply #'start-file-process "stack" buffer intero-stack-executable
                             arguments))))
      (set-process-query-on-exit-flag process nil)
      (process-send-string process ":set -fobject-code\n")
