--- a/ProjectDefinition.st	Mon Mar 08 12:06:17 2010 +0100
+++ b/ProjectDefinition.st	Mon Mar 08 12:06:20 2010 +0100
@@ -2638,12 +2638,15 @@
                         collect:[:nm | Smalltalk classNamed:nm]
                         thenSelect:[:cls |  cls notNil and:[cls isLoaded] ].
             classNamesUnloaded := classNames 
-                        select:[:nm | |cls| cls := Smalltalk classNamed:nm. cls isNil or:[cls isLoaded not]].
+                        select:[:nm | 
+                            |cls| 
+                            cls := Smalltalk classNamed:nm. 
+                            cls isNil or:[cls isLoaded not]
+                        ].
 
             classesSorted := Class classesSortedByLoadOrder:classesLoaded.
             classNamesSorted := classesSorted collect:[:cls | cls name].
 
-
             s nextPutAll:'"/
 "/ $' , 'Header' , '$
 "/
@@ -3095,9 +3098,17 @@
 !
 
 generateClassLines:classLineTemplate 
+    "for the init-file: generate class-init-lines for all classes"
+
+    ^ self generateClassLines:classLineTemplate forClasses:(self compiled_classNames_common)
+!
+
+generateClassLines:classLineTemplate forClasses:classNames
+    "for the init-file: generate class-init-lines for a collection of classes"
+
     ^ String 
         streamContents:[:s | 
-            |classNames classesLoaded classNamesUnloaded classNamesSorted putLineForClassName|
+            |classesLoaded classNamesUnloaded classNamesSorted putLineForClassName|
 
             putLineForClassName := [:className | 
                     |newClassLine mappings|
@@ -3106,7 +3117,6 @@
                     newClassLine := self replaceMappings:mappings in:classLineTemplate.
                     s nextPutLine:newClassLine
                 ].
-            classNames := self compiled_classNames_common.
             classesLoaded := classNames collect:[:eachClassName | Smalltalk classNamed:eachClassName]
                                         thenSelect:[:eachClass | eachClass notNil and:[eachClass isLoaded]].
             classNamesUnloaded := classNames 
@@ -3506,6 +3516,18 @@
     "Modified: / 14-09-2006 / 18:46:18 / cg"
 !
 
+generate_definitionClassLine_libInit_dot_cc
+    "for the init-file: generate a single class-init-line for the definition class itself"
+
+    ^ self 
+        generateClassLines:(self classLine_libInit_dot_cc) 
+        forClasses:(Array with:self name)
+
+    "
+     stx_libbasic3 generate_definitionClassNameLines_libInit_dot_cc
+    "
+!
+
 headerFileOutputArg
 "/    "all stx stuff goes to the common include directory.
 "/     Everything else is left locally"
@@ -5341,11 +5363,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.309 2010-03-03 12:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.310 2010-03-08 11:06:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.309 2010-03-03 12:20:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.310 2010-03-08 11:06:20 cg Exp $'
 ! !
 
 ProjectDefinition initialize!