anchor.diff:                                 :shape shape
                                  :inner-record inner-record
                                  :drawing-options drawing-options)))
  -    (%prepare-bordered-output-record border drawing-options)))
  +    (%prepare-bordered-output-record border)))
   
   ;;; This should have been exported by the CLIM package, otherwise you
   ;;; can't apply a computed list of drawing options.
  
positive.code:       (if (and (member state '(:highlight :unhighlight))
                 (or highlight-background highlight-outline))
            (flet ((redraw (new-drawing-options)
                     (clear-output-record record)
                     (%prepare-bordered-output-record record new-drawing-options)
                     ;; Great, this again..
                     (queue-repaint stream
                        (make-instance 'window-repaint-event
  
negative.code:                                    (or background
                                         (getf drawing-options :ink)
                                         +background-ink+)))
                               highlight-background
                               background)
                           :outline-ink
                           (or (and (eql t highlight-outline)
                                    (highlight-shade
                                     (or outline-ink
                                         (getf drawing-options :ink)
                                         +foreground-ink+)))
                               highlight-outline
                               outline-ink)
                           drawing-options))))
                (:unhighlight (redraw (original-drawing-options record)))))
            (call-next-method)))))
  
  (defmacro define-default-highlighting-method (shape)
  