--- a/DialogBox.st	Sat Feb 02 01:23:18 2013 +0100
+++ b/DialogBox.st	Fri Feb 08 21:30:32 2013 +0100
@@ -5810,8 +5810,11 @@
 !DialogBox class methodsFor:'private'!
 
 showAndThenDestroyBox:aBox
-    self showBox:aBox.
-    aBox destroy
+    [
+        self showBox:aBox.
+    ] ensure:[
+        aBox destroy
+    ]
 !
 
 showBox:aBox
@@ -9771,11 +9774,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.330 2013-01-17 10:49:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.331 2013-02-08 20:30:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.330 2013-01-17 10:49:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.331 2013-02-08 20:30:32 cg Exp $'
 ! !