--- a/DialogBox.st	Wed Nov 11 22:27:09 2009 +0100
+++ b/DialogBox.st	Thu Nov 12 14:25:13 2009 +0100
@@ -4733,6 +4733,9 @@
     windowTitle notNil ifTrue:[
         box label:windowTitle.
     ].
+    box width < 250 ifTrue:[
+        box width:250.
+    ].
 
     self showBox:box.
 
@@ -8997,11 +9000,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.292 2009-11-09 09:18:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.293 2009-11-12 13:25:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.292 2009-11-09 09:18:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.293 2009-11-12 13:25:13 cg Exp $'
 ! !
 
 DialogBox initialize!