--- a/ProjectDefinition.st	Tue Feb 05 14:49:29 2008 +0100
+++ b/ProjectDefinition.st	Wed Feb 06 11:22:29 2008 +0100
@@ -932,6 +932,9 @@
                 |mclassName mselector|
 
                 mclassName := entry key asSymbol.
+                (mclassName endsWith:' class') ifTrue:[
+                    mclassName := mclassName asString.
+                ].
                 mselector := entry value asSymbol.
 
                 s spaces:8.
@@ -3956,7 +3959,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.173 2008-02-05 10:26:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.174 2008-02-06 10:22:29 cg Exp $'
 ! !
 
 ProjectDefinition initialize!