diff --git a/contrib/swank-repl.lisp b/contrib/swank-repl.lisp
index 5bf629a..deeeb4b 100644
--- a/contrib/swank-repl.lisp
+++ b/contrib/swank-repl.lisp
@@ -193,14 +193,15 @@ This is an optimized way for Lisp to deliver output to Emacs."
   (let ((conn *emacs-connection*))
     (initialize-streams-for-connection conn `(:coding-system ,coding-system))
     (with-struct* (connection. @ conn)
-      (setf (@ env)
-            `((*standard-output* . ,(@ user-output))
-              (*standard-input*  . ,(@ user-input))
-              (*trace-output*    . ,(or (@ trace-output) (@ user-output)))
-              (*error-output*    . ,(@ user-output))
-              (*debug-io*        . ,(@ user-io))
-              (*query-io*        . ,(@ user-io))
-              (*terminal-io*     . ,(@ user-io))))
+      (unless *globally-redirect-io*
+        (setf (@ env)
+              `((*standard-output* . ,(@ user-output))
+                (*standard-input*  . ,(@ user-input))
+                (*trace-output*    . ,(or (@ trace-output) (@ user-output)))
+                (*error-output*    . ,(@ user-output))
+                (*debug-io*        . ,(@ user-io))
+                (*query-io*        . ,(@ user-io))
+                (*terminal-io*     . ,(@ user-io)))))
       (maybe-redirect-global-io conn)
       (add-hook *connection-closed-hook* 'update-redirection-after-close)
       (typecase conn