--- a/ListView.st	Fri Feb 16 21:29:04 2001 +0100
+++ b/ListView.st	Wed Mar 21 10:16:05 2001 +0100
@@ -1396,9 +1396,9 @@
                     ^ self at:aParameter put:(model at:idx).
                 ].
                 something == #insert: ifTrue:[
-                    list size >= aParameter ifTrue:[
+                    (list size + 1) >= aParameter ifTrue:[
                         ^ self add:(model at:aParameter) beforeIndex:aParameter
-                    ]
+                    ].
                 ].
                 something == #remove: ifTrue:[
                     list size >= aParameter ifTrue:[
@@ -4298,5 +4298,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.249 2001-02-16 20:29:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.250 2001-03-21 09:16:05 cg Exp $'
 ! !