anchor.diff:  
   (defmethod compose-space ((pane viewport-pane) &key width height)
     (declare (ignorable width height))
  -  ; I _think_ this is right, it certainly shouldn't be the requirements of the child.
  -  (make-space-requirement))
  +  ;; I _think_ this is right, it certainly shouldn't be the
  +  ;; requirements of the child, apart from the max sizes. If the child
  +  ;; does not want to go bigger than a specific size, we should not
  +  ;; force it to do so.
  +  (let ((child-sr (compose-space (first (sheet-children pane)))))
  +    (if child-sr
  +        (make-space-requirement :max-width (space-requirement-max-width child-sr)
  +                                :max-height (space-requirement-max-height child-sr))
  +        (make-space-requirement))))
   
   (defmethod allocate-space ((pane viewport-pane) width height)
     (with-slots (hscrollbar vscrollbar) (sheet-parent pane)
  
positive.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+*
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.184 2007-08-21 21:45:49 thenriksen Exp $
  
  (in-package :clim-internals)
  
  