--- a/OptionBox.st	Sat Feb 11 17:51:08 1995 +0100
+++ b/OptionBox.st	Wed Feb 15 11:37:50 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 '!
 
 !OptionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.10 1995-02-06 00:52:53 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.11 1995-02-15 10:37:50 claus Exp $
 "
 !
 
@@ -107,8 +107,8 @@
 numberOfOptions:nOptions
     "set the number of options"
 
-    buttons := Array new:nOptions.
-    actions := Array new:nOptions
+    buttons := (OrderedCollection new:nOptions) grow:nOptions.
+    actions := (OrderedCollection new:nOptions) grow:nOptions
 !
 
 numberOfOptions