--- a/DialogBox.st	Wed Oct 21 15:50:45 1998 +0200
+++ b/DialogBox.st	Wed Oct 21 17:20:17 1998 +0200
@@ -1382,7 +1382,7 @@
 
     |box answer|
 
-    box := OptionBox title:aString numberOfOptions:3. 
+    box := OptionBox title:aString numberOfOptions:buttonLabels size. 
     box buttonTitles:buttonLabels
              actions:(buttonValues collect:[:v | [answer := v]]).
 
@@ -1404,7 +1404,7 @@
     "
 
     "Created: / 18.10.1996 / 14:50:51 / cg"
-    "Modified: / 21.10.1998 / 15:48:33 / cg"
+    "Modified: / 21.10.1998 / 17:14:14 / cg"
 ! !
 
 !DialogBox class methodsFor:'defaults'!
@@ -5820,6 +5820,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.122 1998-10-21 13:50:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.123 1998-10-21 15:20:17 cg Exp $'
 ! !
 DialogBox initialize!