diff --git a/clx/display.lisp b/clx/display.lisp
index 45c5d7310a83cd1dd6d361c33f7e79f47611b162..c9e1ab5e45acef0467f1fb13dad947523ac9b6c6 100644
--- a/clx/display.lisp
+++ b/clx/display.lisp
@@ -19,7 +19,7 @@
 ;;;
 
 #+cmu
-(ext:file-comment "$Id: display.lisp,v 1.15 2009/07/13 13:54:35 rtoy Rel $")
+(ext:file-comment "$Id: display.lisp,v 1.16 2010/11/16 19:13:55 rtoy Exp $")
 
 (in-package :xlib)
 
@@ -117,7 +117,9 @@
 		 (read-xauth-entry stream)
 	       (unless family (return))
 	       (when (and (eql family protocol)
-			  (equal host-address address)
+			  (or (equal host-address address)
+			      (and (eql family :local)
+				   (equal address "localhost")))
 			  (= number display)
 			  (let ((pos1 (position name *known-authorizations*
 						:test #'string=)))