anchor.diff:     (declare (ignorable width height))
      (let ((children (reverse (sheet-enabled-children box))))
        (with-slots (major-spacing) box
  -       (let* ((content-srs (mapcar #'(lambda (c) (xically-content-sr** box c))
  +       (let* ((content-srs (mapcar #'(lambda (c) (xically-content-sr*** box c major))
                                      (box-layout-mixin-clients box)))
                 (allot       (mapcar #'ceiling (mapcar #'space-requirement-major content-srs)))
                 (wanted      (reduce #'+ allot))
  
positive.code: 
           (let ((qvector
                  (mapcar
                   (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))))
             ;;
             (when *dump-allocate-space*
               (format *trace-output* "~&;;   old allotment = ~S.~%" allot)
               (format *trace-output* "~&;;   qvector 0 = ~S.~%" (mapcar #'(lambda (x) (elt x 0)) qvector))
               (format *trace-output* "~&;;   qvector 1 = ~S.~%" (mapcar #'(lambda (x) (elt x 1)) qvector))
               (format *trace-output* "~&;;   qvector 2 = ~S.~%" (mapcar #'(lambda (x) (elt x 2)) qvector)))
  
negative.code:      (values majors
               (mapcar (lambda (x) x minor) minors))))
  
    (defmethod box-layout-mixin/xically-allocate-space ((pane box-layout-mixin) real-width real-height)
     (with-slots (major-spacing) pane
       (multiple-value-bind (majors minors)
           (box-layout-mixin/xically-allocate-space-aux* pane real-width real-height)
         ;; now actually layout the children
         (let ((x 0))
           (loop
  