--- a/ListView.st	Wed Oct 15 13:28:25 1997 +0200
+++ b/ListView.st	Thu Oct 16 15:20:50 1997 +0200
@@ -562,6 +562,7 @@
 add:aString beforeIndex:index
     "add a line and redisplay"
 
+    list isNil ifTrue:[list := OrderedCollection new].
     list add:aString beforeIndex:index.
     includesNonStrings ifFalse:[
         includesNonStrings := (aString notNil and:[aString isString not]).
@@ -3753,5 +3754,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.142 1997-10-07 14:22:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.143 1997-10-16 13:20:50 ca Exp $'
 ! !