--- a/ProjectDefinition.st	Mon Aug 28 19:11:30 2006 +0200
+++ b/ProjectDefinition.st	Mon Aug 28 19:11:32 2006 +0200
@@ -1839,23 +1839,26 @@
 
 !ProjectDefinition class methodsFor:'update description'!
 
-classNamesAndAttributes_code
+classNamesAndAttributes_code_ignoreOldDefinition:ignoreOldDefinition
     ^ String streamContents:[:s |
         s nextPutLine:'classNamesAndAttributes'.
         s nextPutLine:'    ^ #('.
         s tab; nextPutLine:'"/ <className> or (<className> attributes...)'.
         self searchForClasses do:[:eachClass |
-            |attributes specEntry|
+            |attributes oldSpecEntry|
 
             (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
-                specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
-                specEntry isNil ifTrue:[
+                ignoreOldDefinition ifFalse:[
+                    oldSpecEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
+                ].
+                oldSpecEntry isNil ifTrue:[
                     eachClass isLoaded ifFalse:[
                         attributes := #( autoload ).
                     ].
                 ] ifFalse:[
-                    attributes := specEntry copyFrom:2.
+                    attributes := oldSpecEntry copyFrom:2.
                 ].
+                
 
                 s tab.
                 attributes isEmptyOrNil ifTrue:[
@@ -1958,8 +1961,12 @@
 !
 
 forEachMethodsCodeToCompileDo:aTwoArgBlock
+    self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false
+!
+
+forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition
     aTwoArgBlock 
-        value:self classNamesAndAttributes_code
+        value:(self classNamesAndAttributes_code_ignoreOldDefinition:ignoreOldDefinition)
         value:'description - contents'.
 
     aTwoArgBlock 
@@ -2023,7 +2030,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.45 2006-08-26 12:02:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.46 2006-08-28 17:11:32 cg Exp $'
 ! !
 
 ProjectDefinition initialize!