--- a/ListSelectionBox.st	Sat Sep 30 17:52:39 2000 +0200
+++ b/ListSelectionBox.st	Wed Oct 04 20:44:39 2000 +0200
@@ -265,7 +265,7 @@
                         enterField notNil ifTrue:[
                             string := enterField contents.
                             "/ find the first list-entry, starting with entered text
-                            index := selectionList list findFirst:[:line | line string startsWith:string string].
+                            index := (selectionList list ? #()) findFirst:[:line | line string startsWith:string string].
                             index ~~ 0 ifTrue:[
                                 selectionList makeLineVisible:index.
                             ].
@@ -376,5 +376,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.42 2000-09-27 07:41:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.43 2000-10-04 18:44:39 cg Exp $'
 ! !