anchor.diff:               for major in majors
                for minor in minors
                do
  -               #+nil (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D~%" child x width height)
  -               (when (box-client-pane child)
  -                 (move-sheet (box-client-pane child)
  +             (when (box-client-pane child)
  +               #+NIL
  +               (format *trace-output* "~&;;   child ~S at 0, ~D ~D x ~D(~D)~%;;       ~S~%"
  +                       (box-client-pane child)
  +                       x width height real-height
  +                       (compose-space (box-client-pane child)))
  +               (layout-child (box-client-pane child)
  +                             (pane-align-x (box-client-pane child))
  +                             (pane-align-y (box-client-pane child))
                                ((lambda (major minor) height width) x 0)
  -                             ((lambda (major minor) width height) x 0))
  -                 (allocate-space (box-client-pane child)
  -                                 width height))
  -               (incf x major)
  -               (incf x major-spacing)))))))
  +                             ((lambda (major minor) width height) x 0)
  +                             ((lambda (major minor) height width) width real-width)
  +                             ((lambda (major minor) height width) real-height height)))
  +             (incf x major)
  +             (incf x major-spacing)))))) )
   
   ;; #+nil
   (defmethod note-sheet-enabled :before ((pane pane))
  
positive.code:    (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))
                                     (box-layout-mixin-clients box)))
                (allot       (mapcar #'ceiling (mapcar #'space-requirement-major content-srs)))
                (wanted      (reduce #'+ allot))
  
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
  