--- a/ListSelectionBox.st	Fri Nov 01 00:25:54 2002 +0100
+++ b/ListSelectionBox.st	Mon Nov 04 15:56:29 2002 +0100
@@ -304,7 +304,7 @@
                             "/ 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.
+                                selectionList scrollToLine:index "/ makeLineVisible:index.
                             ].
                         ].
                     ].
@@ -424,5 +424,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.53 2002-07-18 09:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.54 2002-11-04 14:56:29 cg Exp $'
 ! !