anchor.diff:                  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))))))
  +                do (move-sheet child x y)
  +		  (allocate-space child new-width new-height)))))
   
   ;;; SPACING PANE
   
  
positive.code: 	     (format *trace-output* "~&;;   new allotment = ~S.~%" allot))
  
             (values allot
                     (mapcar #'ceiling (mapcar #'space-requirement-minor content-srs))) )))))
  
   (defmethod box-layout-mixin/xically-allocate-space-aux* :around ((box rack-layout-mixin) width height)
     (declare (ignorable width height))
  
negative.code:                    (let ((n (length qs)))
                       (setf allot
                         (mapcar (lambda (allot q)
                                   (let ((delta (/ excess n)))
                                     (decf n)
                                     (decf excess delta)
                                     (decf sum q)
  