Index: Backends/CLX/port.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v
retrieving revision 1.112
diff -u -r1.112 port.lisp
--- Backends/CLX/port.lisp	16 Jun 2005 09:27:49 -0000	1.112
+++ Backends/CLX/port.lisp	20 Jul 2005 21:04:20 -0000
@@ -167,7 +167,7 @@
 
 (defun parse-clx-server-path (path)
   (pop path)
-  (let* ((name (get-environment-variable "DISPLAY"))
+  (let* ((name (or (get-environment-variable "DISPLAY") "localhost:0.0"))
 	 ;; this code courtesy telent-clx.
          (slash-i (or (position #\/ name) -1))
          (colon-i (position #\: name :start (1+ slash-i)))