--- a/DataSetBuilder.st	Wed May 13 22:24:26 1998 +0200
+++ b/DataSetBuilder.st	Wed May 13 23:51:23 1998 +0200
@@ -2271,6 +2271,17 @@
 
 !DataSetBuilder methodsFor:'startup / release'!
 
+openModal
+    "sets the modalOpened flag, so later, 
+     there is no need to ask for saving into a class"
+
+    modalOpened := true.
+
+    super openModal
+
+
+!
+
 openModalOnResourceSpec: aListSpec
     "sets the modalOpened flag, so later, 
      there is no need to ask for saving into a class"