--- a/ModalBox.st	Wed Feb 05 13:55:32 2020 +0100
+++ b/ModalBox.st	Thu Feb 06 12:05:09 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -810,11 +808,7 @@
     ].
     self origin:(aPoint - (dx @ dy)).
     self makeFullyVisible.
-    [
-        self openModal
-    ] ensure:[
-        self destroy.
-    ]    
+    self openModal
 
     "
      |b|
@@ -825,7 +819,7 @@
     "
 
     "Modified: / 21-01-2011 / 13:58:29 / cg"
-    "Modified: / 05-02-2020 / 13:41:12 / Stefan Vogel"
+    "Modified: / 06-02-2020 / 12:04:27 / Stefan Vogel"
 !
 
 showAtCenter