--- a/ListSelectionBox.st	Fri Nov 06 15:27:52 2009 +0100
+++ b/ListSelectionBox.st	Sat Nov 07 11:43:55 2009 +0100
@@ -313,7 +313,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 scrollToLine:index "/ makeLineVisible:index.
                             ].
@@ -439,5 +439,9 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.58 2008-10-26 20:11:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.59 2009-11-07 10:43:55 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.59 2009-11-07 10:43:55 cg Exp $'
 ! !