--- a/Project.st	Fri Jan 14 11:10:16 2000 +0100
+++ b/Project.st	Fri Jan 14 11:38:35 2000 +0100
@@ -988,14 +988,27 @@
                                                  ].
 !
 
+condenseChangesForClassFilein:aClass
+
+    #TODO.
+    "/ do not remove, if there are still methodChanges for other
+    "/ packages around
+    changedClasses := self changedClasses select:[:cls | |realClass|
+                                                   (realClass := cls) isMeta ifTrue:[
+                                                       realClass := cls soleInstance
+                                                   ].
+                                                   realClass name ~= aClass name
+                                                 ].
+!
+
 rememberChangedClass:aClass
     |realClass|
 
     (realClass := aClass) isMeta ifTrue:[
         realClass := aClass soleInstance
     ].
-    self changedClasses add:realClass
-
+    self changedClasses add:realClass.
+    changedClasses := changedClasses select:[:aClass | aClass isObsolete not].
 
 !
 
@@ -3534,6 +3547,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.142 2000-01-13 18:45:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.143 2000-01-14 10:38:35 ps Exp $'
 ! !
 Project initialize!