Index: Backends/CLX/port.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v
retrieving revision 1.114
diff -u -r1.114 port.lisp
--- Backends/CLX/port.lisp	28 Nov 2005 14:21:45 -0000	1.114
+++ Backends/CLX/port.lisp	30 Nov 2005 09:46:04 -0000
@@ -536,7 +536,8 @@
   (xlib:unmap-window (sheet-direct-mirror mirror)) )
 
 (defmethod destroy-port :before ((port clx-port))
-  (xlib:close-display (clx-port-display port)))
+  (handler-case (xlib:close-display (clx-port-display port))
+    (stream-error) () (xlib:close-display (clx-port-display port) :abort t)))
 
 (defmethod port-motion-hints ((port clx-port) (sheet mirrored-sheet-mixin))
   (let ((event-mask (xlib:window-event-mask (sheet-direct-mirror sheet))))