--- 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!