diff --git a/haskell-interactive-mode.el b/haskell-interactive-mode.el
index c5f281853..e9e7f80e1 100644
--- a/haskell-interactive-mode.el
+++ b/haskell-interactive-mode.el
@@ -519,7 +519,7 @@ FILE-NAME only."
         (with-current-buffer buffer
           (haskell-interactive-mode)
           (haskell-session-assign s))
-        (switch-to-buffer-other-window buffer)
+        (haskell-interactive-switch)
         buffer))))
 
 (defun haskell-process-cabal-live (state buffer)