--- a/Project.st	Fri Nov 16 11:51:54 2001 +0100
+++ b/Project.st	Fri Nov 16 13:21:45 2001 +0100
@@ -1211,9 +1211,10 @@
 
     realClass := aClass theNonMetaclass.
     self changedClasses add:realClass.
-    changedClasses := changedClasses select:[:aClass | aClass isObsolete not].
-
-    "Modified: / 5.11.2001 / 16:46:31 / cg"
+    changedClasses := changedClasses 
+                        select:[:aClass | aClass theNonMetaclass isObsolete not].
+
+    "Modified: / 16.11.2001 / 13:18:16 / cg"
 !
 
 rememberOverwrittenMethod:newMethod from:oldMethod
@@ -3972,6 +3973,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.177 2001-11-12 18:22:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.178 2001-11-16 12:21:45 cg Exp $'
 ! !
 Project initialize!