--- a/ChangeSet.st	Thu Mar 16 15:51:21 2006 +0100
+++ b/ChangeSet.st	Mon Mar 20 09:54:26 2006 +0100
@@ -829,6 +829,14 @@
     "Modified: / 14.11.2001 / 13:36:58 / cg"
 !
 
+flushChangedClassesCache
+    changedClasses := changeSelectors := nil
+
+    "
+     ChangeSet current flushChangedClassesCache
+    "
+!
+
 rememberChangedClass:aClass
     changedClasses notNil ifTrue:[
         changedClasses add:aClass
@@ -2006,5 +2014,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.128 2006-03-16 14:51:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.129 2006-03-20 08:54:26 cg Exp $'
 ! !