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:                 for tmp-width = width then (decf tmp-width new-width)
                  for new-width = (/ tmp-width l)
                  for x = 0 then (+ x new-width)
                  do (move-sheet child x y)                  
                    (allocate-space child (round new-width) (round new-height))))))
  
  ;;; SPACING PANE
  
  
negative.code:                    (let ((n (length qs)))
                       (setf allot
                         (mapcar (lambda (allot q)
                                   (let ((delta (/ excess n)))
                                     (decf n)
                                     (decf excess delta)
                                     (decf sum q)
  