anchor.diff:  
            (let ((qvector
                   (mapcar
  -                  (lambda (c &aux p)
  -                    (cond
  -                      ((constraint-slot box c 'fill-p)
  -                       (vector 1 0 0))
  -                      ((setq p (constraint-slot box c 'proportion))
  -                       (vector 0 p 0))
  -                      (t
  -                       (vector 0 0
  -                               (abs (- (if (> excess 0)
  -                                           (space-requirement-max-major
  -                                                 (xically-content-sr** box c))
  -                                           (space-requirement-min-major
  -                                                 (xically-content-sr** box c)))
  -                                    (space-requirement-major
  -                                          (xically-content-sr** box c))))))))
  -                  children)))
  +                 (lambda (c &aux p)
  +                   (cond
  +                     ((box-client-fillp c)
  +                      (vector 1 0 0))
  +                     ((setq p (box-client-proportion c))
  +                      (vector 0 p 0))
  +                     (t
  +                      (vector 0 0
  +                              (abs (- (if (> excess 0)
  +                                          (space-requirement-max-major
  +                                           (xically-content-sr** box c))
  +                                          (space-requirement-min-major
  +                                           (xically-content-sr** box c)))
  +                                      (space-requirement-major
  +                                       (xically-content-sr** box c))))))))
  +                 (box-layout-mixin-clients box))))
              ;;
              #+NIL
              (progn
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.103 2002/10/31 12:58:14 brian Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code: 
  ;;; LABEL PANE
  
  (defclass label-pane (single-child-composite-pane  permanent-medium-sheet-output-mixin)
    ((label :type string :initarg :label :accessor label-pane-label)
     (alignment :type (member :bottom :top)
                :initform :top
  