--- a/ListSelectionBox.st	Wed Sep 27 09:40:45 2000 +0200
+++ b/ListSelectionBox.st	Wed Sep 27 09:41:16 2000 +0200
@@ -262,11 +262,13 @@
     enterField immediateAccept:true.
     enterField acceptAction:
                     [:text | |string index|
-                        string := enterField contents.
-                        "/ find the first list-entry, starting with entered text
-                        index := selectionList list findFirst:[:line | line startsWith:string].
-                        index ~~ 0 ifTrue:[
-                            selectionList makeLineVisible:index.
+                        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 ~~ 0 ifTrue:[
+                                selectionList makeLineVisible:index.
+                            ].
                         ].
                     ].
 
@@ -374,5 +376,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.41 2000-09-26 12:53:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.42 2000-09-27 07:41:16 cg Exp $'
 ! !