--- a/ChangeSet.st	Thu Aug 10 12:20:01 2006 +0200
+++ b/ChangeSet.st	Thu Aug 10 17:24:31 2006 +0200
@@ -1020,12 +1020,14 @@
             changesToRemove add:aChange
         ]
     ].
-    changedClasses := changeSelectors := nil.
     changesToRemove notEmpty ifTrue:[
-        self removeAll:changesToRemove
+        changedClasses := changeSelectors := nil.
+        self removeAll:changesToRemove.
+        self changed.
+        Smalltalk changed:#currentChangeSet with:self.
     ].
 
-    "Modified: / 5.11.2001 / 14:29:22 / cg"
+    "Modified: / 10-08-2006 / 17:22:13 / cg"
 !
 
 condenseChangesForExtensionsInPackage:aPackageSymbol
@@ -1060,10 +1062,16 @@
             ]
         ].
     ].
-    self removeAll:changesToRemove
 
-    "Modified: / 5.11.2001 / 14:11:45 / cg"
-    "Created: / 5.11.2001 / 14:21:17 / cg"
+    changesToRemove notEmpty ifTrue:[
+        changedClasses := changeSelectors := nil.
+        self removeAll:changesToRemove.
+        self changed.
+        Smalltalk changed:#currentChangeSet with:self.
+    ].
+
+    "Created: / 05-11-2001 / 14:21:17 / cg"
+    "Modified: / 10-08-2006 / 17:22:46 / cg"
 !
 
 diffSetsAgainst:anotherChangeSet
@@ -2014,5 +2022,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.129 2006-03-20 08:54:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.130 2006-08-10 15:24:31 cg Exp $'
 ! !