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