anchor.diff:               (let ((sum (reduce #'+ (mapcar (lambda (x) (elt x j)) qvector))))
                  (unless (zerop sum)
                    (setf allot
  -                   (mapcar (lambda (allot q)
  -                             (let ((q (elt q j)))
  -                               (let ((delta (ceiling (if (zerop sum) 0 (/ (* excess q) sum)))))
  -                                 (decf excess delta)
  -                                 (decf sum q)
  -                                 (+ allot delta))))
  -                           allot qvector))
  +                       (mapcar (lambda (allot q)
  +                                 (let ((q (elt q j)))
  +                                   (let ((delta (ceiling (if (zerop sum) 0 (/ (* excess q) sum)))))
  +                                     (decf excess delta)
  +                                     (decf sum q)
  +                                     (+ allot delta))))
  +                               allot qvector))
                    #+NIL
                    (format *debug-io* "~&;;   new excess = ~F, allotment = ~S.~%" excess allot)
                    )))
  
positive.code:          (d (text-style-descent (pane-text-style pane) pane))
           (m0 2)
           (h (+ a d m0 m0)))
      (cond ((sheet-children pane)
             (let ((sr2 (compose-space (first (sheet-children pane)))))
               (multiple-value-bind (right top left bottom) (label-pane-margins pane)
                 (make-space-requirement
  
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
  