--- a/DataSetBuilder.st	Fri Jan 16 15:10:41 1998 +0100
+++ b/DataSetBuilder.st	Fri Jan 16 15:53:12 1998 +0100
@@ -1439,7 +1439,8 @@
         columns removeIndex:idx.
         self seqList removeIndex:idx.
         self updateColumnView.
-        columns isEmpty ifTrue: [self isColumnSelected value: false]
+        columns isEmpty ifTrue: [self isColumnSelected value: false].
+        hasChanged := true
     ].
 !
 
@@ -2214,6 +2215,12 @@
 
 !DataSetBuilder methodsFor:'startup / release'!
 
+closeRequest
+    "close request
+    "
+    self checkMenuItemModified ifTrue: [super closeRequest]
+!
+
 postBuildWith:builder
 
     super postBuildWith:builder.