anchor.diff:                :host (xlib:display-host (slot-value object 'display))
                 :display-id (xlib:display-display (slot-value object 'display))))))
   
  -(defun clx-error-handler (display error-name &key &allow-other-keys)
  -  (declare (ignore display))
  -  (format *error-output* "Received clx-error in ~a: ~a~%"
  -          (clim-sys:current-process) error-name))
  +(defun clx-error-handler (display error-name &rest args &key major &allow-other-keys)
  +  (unless (and (eql major 42)  ; 42 is SetInputFocus, we ignore match-errors from that
  +               (eq error-name 'xlib:match-error))
  +    (format *error-output* "Received CLX ~A in process ~W~%"
  +            error-name (clim-sys:process-name (clim-sys:current-process)))
  +    (apply #'xlib:default-error-handler display error-name args)))
   
   (defmethod initialize-clx ((port clx-port))
     (let ((options (cdr (port-server-path port))))
       (setf (clx-port-display port)
   	  (xlib:open-display (getf options :host "") :display (getf options :display-id 0)))
       (progn
  -      #+nil
         (setf (xlib:display-error-handler (clx-port-display port))
           #'clx-error-handler)
  -    
  +
         #+nil
         (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-force-output))
       
  
positive.code: (defmethod climi::set-port-keyboard-focus (focus (port clx-port))
    (let ((mirror (sheet-mirror focus)))
      (when mirror
        (safely-set-input-focus (clx-port-display port) mirror :parent nil))))
  
negative.code: ;; notify events come from the window manager and state the correct
  ;; size and position, while genuine configure events only state the
  ;; correct size.
  
  (defun event-handler (&rest event-slots
                        &key display window event-key code state mode time
  