anchor.diff:    (flet ((compute (val default)
   	   (if (eq val :compute) default val)))
       (if (or (eq (pane-user-width pane) :compute)
  -	    (eq (pane-user-height pane) :compute))
  +            (eq (pane-user-height pane) :compute))  
   	(progn
   	  (with-output-recording-options (pane :record t :draw nil)
   	    ;; multiple-value-letf anyone?
  
positive.code: 	    (stream-output-history pane)
  	    ;; Should we now get rid of the output history?
              ;; Why should we? --GB 2003-03-16
  	    (reset-output-history pane)
  	    (let ((width (- x2 x1))
  		  (height (- y2 y1)))
                ;; I don't want this letf here --GB 2003-01-23
  
negative.code:       ;; XXX: We cannot use `scroll-extent', because McCLIM ignores it
        ;; unless the scrollee happens to be drawing. Very weird, should
        ;; be fixed.
  
        ;; 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))))
        (scroller-pane/update-scroll-bars (sheet-parent pane))
        #+NIL
        (scroll-extent child
                       (if (> (+ horizontal-scroll viewport-width)
                              child-width)
                           (max 0 (- child-width viewport-width))
                           horizontal-scroll)
                       (if (> (+ vertical-scroll viewport-height)
                              child-height)
                           (max 0 (- child-height viewport-height))
                           vertical-scroll)))))
  
  ;;;;
  ;;;; SCROLLER PANE
  