;; Replace fuel-listener--connect-process with:

(defun fuel-listener--connect-process (port)
  (with-current-buffer (fuel-listener--buffer)
    (let ((process (get-buffer-process (current-buffer))))
      (when (not process)
        (message "Connecting to remote listener ...")
        (make-comint-in-buffer "fuel listener" (current-buffer)
                               (cons "localhost" port))
        (fuel-listener--wait-for-prompt 10000)
        (fuel-con--setup-connection (current-buffer))))))