anchor.diff:        (setf (xlib:display-error-handler (clx-port-display port))
           #'clx-error-handler)
   
  -      #+nil
  +      #+nil ;; Uncomment this when debugging CLX backend if asynchronous errors become troublesome..
         (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-force-output))
  +      
       
       (setf (clx-port-screen port) (nth (getf options :screen-id 0)
   				      (xlib:display-roots (clx-port-display port))))
  
positive.code:   (xlib:convert-selection :primary :UTF8_STRING requestor :bounce time))
  
  (defmethod get-selection-from-event ((event clx-selection-notify-event))
    (map 'string #'code-char
         (xlib:get-property (sheet-direct-mirror (event-sheet event))
                            (selection-event-property event)
  
negative.code:         (property  (selection-event-property event))
          (target    (selection-event-target event))
          (time      (event-timestamp event)))
      (when (null property)
        (format *trace-output* "~&* Requestor property is null! *~%"))
      (describe event *trace-output*)
      (finish-output *trace-output*)
      (cond ((member target '(:UTF8_STRING :STRING :TEXT))
             (xlib:change-property requestor property
                                   (utf-8-encode
  