--- a/DialogBox.st	Fri Oct 14 00:07:21 2016 +0200
+++ b/DialogBox.st	Fri Oct 14 00:07:52 2016 +0200
@@ -8010,6 +8010,7 @@
     (h := (aButton heightIncludingBorder + (ViewSpacing * 2))) > buttonPanel topInset ifTrue:[
          buttonPanel topInset:h negated
     ].
+    preferredExtent := nil.
     needResize := true.
     ^ aButton
 
@@ -9795,10 +9796,10 @@
     autoAccept := true.
 
     buttonPanel := HorizontalPanelView in:self.
-    buttonPanel 
+    buttonPanel
         origin:(0.0 @ 1.0) corner:(1.0 @ 1.0);
         bottomInset:ViewSpacing; 
-        topInset:((gc font height + ViewSpacing) * 2) negated;
+        topInset:((gc font height + (ViewSpacing*2)) + ViewSpacing) negated;
         borderWidth:0;
         horizontalLayout:#spread.