anchor.diff:                                       (+ allot delta))))
                                  allot qvector))
   		 (when *dump-allocate-space*
  -		   (format *trace-output* "~&;;   new excess = ~F, allotment = ~S.~%" excess allot))
  -                 )))
  +		   (format *trace-output* "~&;;   new excess = ~F, allotment = ~S.~%" excess allot)) )))
              ;;
   	   (when *dump-allocate-space*
   	     (format *trace-output* "~&;;   excess = ~F.~%" excess)
  
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:            sum (space-requirement-max-major sr) into max-major
             maximize (space-requirement-minor sr) into minor
             maximize (space-requirement-min-minor sr) into min-minor
             maximize (space-requirement-max-minor sr) into max-minor
             finally
               (return
                 (space-requirement+*
  