diff --git a/clx/dependent.lisp b/clx/dependent.lisp
index 25e79222ed540cb14efaabea17f4447dfa971ed3..aa80fe78e1feaa7647645382ea2e868d4492529a 100644
--- a/clx/dependent.lisp
+++ b/clx/dependent.lisp
@@ -18,7 +18,7 @@
 ;;; express or implied warranty.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.15 2003/07/20 15:55:23 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.16 2005/06/17 13:06:18 rtoy Exp $")
 
 (in-package :xlib)
 
@@ -640,7 +640,7 @@
   (ecase protocol
     ;; establish a TCP connection to the X11 server, which is
     ;; listening on port 6000 + display-number
-    ((or :tcp nil)
+    ((:internet :tcp nil)
      (let ((fd (ext:connect-to-inet-socket host (+ *x-tcp-port* display))))
        (unless (plusp fd)
          (error 'connection-failure