--- a/ListSelectionBox.st	Sun May 26 13:36:58 1996 +0200
+++ b/ListSelectionBox.st	Sun May 26 15:22:17 1996 +0200
@@ -141,7 +141,9 @@
     "in addition to showing the initial text, also select it in the list"
 
     super initialText:someString.
-    selectionList selectElement:someString.
+    selectionList setSelectElement:someString.
+
+    "Modified: 26.5.1996 / 15:03:37 / cg"
 !
 
 list:aList
@@ -331,5 +333,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.30 1996-05-18 15:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.31 1996-05-26 13:22:17 cg Exp $'
 ! !