--- a/DataSetBuilder.st	Mon Feb 02 20:19:04 1998 +0100
+++ b/DataSetBuilder.st	Mon Feb 02 23:11:35 1998 +0100
@@ -2060,9 +2060,12 @@
         self clipboard: (columns at: idx).
         columns removeIndex:idx.
         self seqList removeIndex:idx.
+        columns size > 0 ifTrue: [self selectedColumnModel value: ((idx - 1) max: 1)].
+        self updateInputFields.
         self updateColumnView.
         columns isEmpty ifTrue: [self isColumnSelected value: false].
-        hasChanged := true
+        self cancel.
+        isModified := hasChanged := true.
     ]
 !