anchor.diff:         ;; now actually layout the children
          (let ((x 0))
            (loop
  -             for child in (reverse (sheet-enabled-children pane))
  +             for child in (reverse (sheet-children pane))
                for major in majors
                for minor in minors
                do
  
positive.code:             (compose-space child)) )))
  
   (defmethod box-layout-mixin/xically-compose-space ((pane box-layout-mixin))
     (let ((n (length (sheet-enabled-children pane))))
       (with-slots (major-spacing) pane
         (loop
             for child in (sheet-enabled-children pane)
             for sr = (xically-content-sr** pane child)
             sum (space-requirement-major sr) into major
             sum (space-requirement-min-major sr) into min-major
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.66 2002-02-28 19:27:08 gilbert Exp $
  
  (in-package :CLIM-INTERNALS)
  
  