                   geiser-impl--implementation)
              (geiser-repl--read-impl
               "Scheme implementation: "))))
-  (geiser-repl--start-repl impl t))
+  (geiser-repl--start-repl impl t host port))
 
 (make-variable-buffer-local
  (defvar geiser-repl--last-scm-buffer nil))

              "Start Geiser for scheme implementation: "))))
   (geiser-repl--start-repl impl))

(defun geiser-connect (impl)
  "Start a new Geiser REPL connected to a remote Scheme process."
  (interactive
   (list (or (geiser-repl--only-impl-p)

  "Switch to running Geiser REPL and try to enter a given module."
  (interactive)
  (let* ((module (or module
                     (geiser-completion--read-module
                      "Switch to module (default top-level): ")))
         (cmd (and module
                   (geiser-repl--enter-cmd geiser-impl--implementation
                                           module))))
