               (intero-localize-path (intero-buffer-file-name)))))
       (let ((process
              (get-buffer-process
-              (apply #'make-comint-in-buffer "intero" (current-buffer) "stack" nil "ghci"
+              (apply #'make-comint-in-buffer "intero" (current-buffer) intero-stack-executable nil "ghci"
                      (append arguments
                              (list "--verbosity" "silent")
                              (list "--ghci-options"

                    (setq intero-hoogle-port port)
                    (start-process "hoogle"
                                   buffer
                                   "stack"
                                   "hoogle"
                                   "server"
                                   "--no-setup"

        (setq intero-ghc-version
              (with-temp-buffer
                (cl-case (save-excursion
                           (intero-call-process intero-stack-executable
                                                nil (current-buffer) t "ghc" "--" "--numeric-version"))
                  (0
                   (buffer-substring (line-beginning-position) (line-end-position)))
                  (1 nil)))))))
