anchor.diff:  
         ;; It's not a bug, it's a feature. This requires further thought. -Hefner
         (move-sheet child
  -                  (round (- (if (> (+ horizontal-scroll viewport-width)
  -                                   child-width)
  -                                (- child-width viewport-width)
  -                                horizontal-scroll)))
  -                  (round (- (if (> (+ vertical-scroll viewport-height)
  -                                   child-height)
  -                                (- child-height viewport-height)
  -                                vertical-scroll))))
  +		  (- (if (> (+ horizontal-scroll viewport-width)
  +			    child-width)
  +			 (- child-width viewport-width)
  +			 horizontal-scroll))
  +                  (- (if (> (+ vertical-scroll viewport-height)
  +			    child-height)
  +			 (- child-height viewport-height)
  +			 vertical-scroll)))
         (scroller-pane/update-scroll-bars (sheet-parent pane)))))
   
   ;;; SCROLLER PANE
  
positive.code:                   (t
                     (setf allot
                       (mapcar (lambda (allot q)
                                 (let ((delta (ceiling (if (zerop sum) 0 (/ (* excess q) sum)))))
                                   (decf excess delta)
                                   (decf sum q)
                                   (+ allot delta)))
  
negative.code:      (with-slots (major-spacing) box
         (let* ((content-srs (mapcar #'(lambda (c) (xically-content-sr*** box c major))
                                     (box-layout-mixin-clients box)))
                (allot       (mapcar #'space-requirement-major content-srs))
                (wanted      (reduce #'+ allot))
                (excess      (- major wanted
                                (* (1- (length children)) major-spacing))))
  