anchor.diff:  
   (defmethod allocate-space ((pane spacing-pane) width height)
     (with-slots (border-width) pane
  -    (let ((child (first (sheet-children pane))))
  +    (let ((child (first (sheet-children pane)))
  +	  (new-width  (- width border-width border-width))
  +	  (new-height (- height border-width border-width)))
         (layout-child child (pane-align-x pane) (pane-align-y pane)
                       border-width border-width
  -                    (- width border-width border-width)
  -                    (- height border-width border-width)))))
  +		    new-width new-height))))
   
   ;;; OUTLINED PANE
   
  
positive.code:               (wanted      (reduce #'+ allot))
                (excess      (- major wanted
                                (* (1- (length children)) major-spacing))))
            (when *dump-allocate-space*
  	    (format *trace-output* "~&;; ~S ~S~%"
  		    'box-layout-mixin/xically-allocate-space-aux* box)
  	    (format *trace-output* "~&;;   major = ~D, wanted = ~D, excess = ~D, allot = ~D.~%"
                     major wanted excess allot))
  
           (let ((qvector
  
negative.code: ; timer-event convenience
  
  (defmethod schedule-timer-event ((pane pane) token delay)
    (warn "Are you sure you want to use schedule-timer-event? It probably doesn't work.")
    (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
  
  