anchor.diff:   (defmethod xically-content-sr** ((pane box-layout-mixin) child)
      (let (p)
        (cond ((constraint-slot pane child 'fill-p)
  -            (make-space-requirement
  -             :major 0
  -             :min-major 0
  -             :max-major +fill+
  -             :minor 0
  -             :min-minor 0
  -             :max-minor 0))
  +            (let ((child-space (compose-space child)))
  +              (make-space-requirement
  +               :major     (space-requirement-major child-space)
  +               :min-major (space-requirement-min-major child-space)
  +               :max-major +fill+
  +               :minor     (space-requirement-minor child-space)
  +               :min-minor (space-requirement-min-minor child-space)
  +               :max-minor (space-requirement-max-minor child-space))))
              ((setq p (constraint-slot pane child 'fixed-size))
               (let ((sr (compose-space child)))
                 (make-space-requirement
  
positive.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.93 2002/07/31 11:58:10 adejneka Exp $
  
  (in-package :CLIM-INTERNALS)
  
  
negative.code:                ,@options
                 :contents (list ,@(mapcar (lambda (content)
                                             (cond ((and (consp content)
                                                         (or (realp (first content))
                                                             (member (first content) '(+fill+ :fill))))
                                                    `(list ',(first content)
                                                           ,(second content)))
                                                   (t
  