--- a/ListView.st	Thu Feb 08 17:24:47 2001 +0100
+++ b/ListView.st	Fri Feb 16 21:29:04 2001 +0100
@@ -1396,10 +1396,14 @@
                     ^ self at:aParameter put:(model at:idx).
                 ].
                 something == #insert: ifTrue:[
-                    ^ self add:(model at:aParameter) beforeIndex:aParameter
+                    list size >= aParameter ifTrue:[
+                        ^ self add:(model at:aParameter) beforeIndex:aParameter
+                    ]
                 ].
                 something == #remove: ifTrue:[
-                    ^ self removeIndex:aParameter
+                    list size >= aParameter ifTrue:[
+                        ^ self removeIndex:aParameter
+                    ]
                 ].
             ].
             ^ self getListFromModel.
@@ -4294,5 +4298,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.248 2000-12-22 14:23:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.249 2001-02-16 20:29:04 cg Exp $'
 ! !