Index: incremental-redisplay.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp,v
retrieving revision 1.48
diff -u -r1.48 incremental-redisplay.lisp
--- incremental-redisplay.lisp	8 May 2005 18:15:44 -0000	1.48
+++ incremental-redisplay.lisp	17 Jun 2005 11:35:00 -0000
@@ -304,8 +304,8 @@
         for (r) in draws
         do (replay r stream))
     (let ((res +nowhere+))
-      (loop for (r) in erase-overlapping do (setf res (region-union res r)))
-      (loop for (r) in move-overlapping do (setf res (region-union res r)))
+      (loop for (r) in erase-overlapping do (setf res (bounding-rectangle (region-union res r))))
+      (loop for (r) in move-overlapping do (setf res (bounding-rectangle (region-union res r))))
       (replay history stream res)) ))
 
 (defclass updating-stream-state (complete-medium-state)
