--- a/CodeGeneratorTool.st	Fri Aug 19 02:31:46 2011 +0200
+++ b/CodeGeneratorTool.st	Fri Aug 19 02:32:02 2011 +0200
@@ -1097,7 +1097,7 @@
     self startCollectChanges.
 
     metaClass := aClass theMetaclass.
-    className := aClass theNonMetaClass name.
+    className := aClass theNonMetaclass name.
 
     (metaClass includesSelector:#applicationRegistryPath) ifFalse:[
         txt := self codeFor_standAloneApplicationRegistryPath.
@@ -1672,6 +1672,10 @@
 
 !CodeGeneratorTool class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.95 2011-08-19 00:32:02 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.94 2011-08-19 00:24:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.95 2011-08-19 00:32:02 cg Exp $'
 ! !