anchor.diff:                :equalize-column-widths equalize-column-widths)
       (multiple-value-bind (cursor-old-x cursor-old-y)
   	(stream-cursor-position stream)
  -      (let ((*table-suppress-update* t))
  -	(with-output-recording-options (stream :record t :draw nil)
  -	  (funcall continuation stream)
  -	  (force-output stream))
  -        (setf (stream-cursor-position stream)
  -              (values cursor-old-x cursor-old-y))
  -	(with-output-recording-options (stream :record nil :draw nil)
  -	  (adjust-table-cells table stream)
  -	  (when multiple-columns (adjust-multiple-columns table stream))
  -	  (setq *table-suppress-update* nil)
  -	  (tree-recompute-extent table)))
  +      (with-output-recording-options (stream :record t :draw nil)
  +        (funcall continuation stream)
  +        (force-output stream))
  +      (setf (stream-cursor-position stream)
  +            (values cursor-old-x cursor-old-y))
  +      (with-output-recording-options (stream :record nil :draw nil)
  +        (adjust-table-cells table stream)
  +        (when multiple-columns (adjust-multiple-columns table stream))
  +        (tree-recompute-extent table))
         (replay table stream)
         (if move-cursor
   	  (setf (stream-cursor-position stream)
  
positive.code: 
  (in-package :clim-internals)
  
  (defvar *table-suppress-update* nil
    "Used to control whether changes to table cells propagate upwards.")
  
  ;;; Cell formatting
  
  ;;; STANDARD-CELL-OUTPUT-RECORD class
  
negative.code: 		for x = cx then (+ x w x-spacing) 
  		for w across widthen do
  		(adjust-cell* cell x y w h ascent))))))))
  
  (defmethod adjust-multiple-columns ((table standard-table-output-record) stream)
    (with-slots (widths heights rows
  