anchor.diff:  
   ;;; TABLE PANE
   
  -;; TODO: The table and grid panes should respect the :x-spacing,
  -;; :y-spacing, and :spacing initargs.
  +;;; TODO: The table and grid panes should respect the :x-spacing,
  +;;; :y-spacing, and :spacing initargs.
   
   (defclass table-pane (composite-pane)
     ((array
  
positive.code: 			 (max sx0 (min (- sx1 viewport-width)  (+ vx0 (* delta horizontal))))
  			 (max sy0 (min (- sy1 viewport-height) (+ vy0 (* delta vertical))))))))))
  
  ;; Note that handling this from dispatch-event is evil, and we shouldn't.
  (defmethod dispatch-event :around ((sheet mouse-wheel-scroll-mixin)
                                     (event pointer-button-press-event))
    (if (find-viewport-for-scroll sheet)
  
negative.code: (defmethod compose-space ((pane table-pane) &key width height)
    (declare (ignore width height))
    (with-slots (array x-spacing y-spacing) pane
      ;; ---v our problem is here.
      ;; Which problem? --GB
      (let ((rsrs (loop for i from 0 below (array-dimension array 0) 
                      collect (table-pane-row-space-requirement pane i)))
            (csrs (loop for j from 0 below (array-dimension array 1) 
  