--- a/ListModelView.st	Fri Sep 13 01:11:39 2002 +0200
+++ b/ListModelView.st	Mon Sep 16 11:38:57 2002 +0200
@@ -827,7 +827,11 @@
         yAbs == (startOfLinesY at:stop) ifTrue:[
             stop := (stop - 1) max:start
         ].
-    ].    
+    ].
+    stop < start ifTrue:[
+        "/ oops, list changed during redraw
+        ^ self invalidate
+    ].
 
     savClip := clipRect.
     self clippingRectangle:(Rectangle left:x top:y width:w height:h).
@@ -842,10 +846,6 @@
                             ].
 
     self clippingRectangle:savClip.
-
-
-
-
 ! !
 
 !ListModelView methodsFor:'event handling'!
@@ -1616,6 +1616,6 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.56 2002-08-22 16:53:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.57 2002-09-16 09:38:57 ca Exp $'
 ! !
 ListModelView initialize!