--- a/OptionBox.st	Thu May 15 19:24:40 2014 +0200
+++ b/OptionBox.st	Fri May 16 09:12:33 2014 +0200
@@ -142,7 +142,7 @@
 
     |box|
 
-    box := (self basicNew) numberOfOptions:nOptions.
+    box := self new numberOfOptions:nOptions.
     box device:Screen current.
     box initialize.
     box title:titleString.
@@ -677,10 +677,10 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.76 2014-02-18 15:02:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.76 2014-02-18 15:02:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.77 2014-05-16 07:12:33 stefan Exp $'
 ! !