--- a/extensions.st	Thu Aug 02 22:06:10 2012 +0200
+++ b/extensions.st	Fri Aug 03 12:22:32 2012 +0200
@@ -1847,8 +1847,28 @@
     "Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ChangeSet methodsFor:'utilities'!
+
+condenseChangesForRemoved
+    "remove all changes which has been removed (marked for removal
+     by aChange removed: true)"
+
+    |changesToRemove|
+
+    changesToRemove := self select:[:aChange | 
+        aChange isCompositeChange ifTrue:
+            [aChange condenseChangesForRemoved].        
+        aChange removed
+    ].
+
+    self condenseChanges:changesToRemove
+
+    "Created: / 05-11-2001 / 14:21:17 / cg"
+    "Modified: / 12-10-2006 / 16:51:27 / cg"
+! !
+
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.78 2012-07-26 17:34:23 cg Exp $'
-! !
\ No newline at end of file
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.79 2012-08-03 10:22:32 vrany Exp $'
+! !