--- a/CodeGeneratorTool.st	Tue Mar 23 15:13:46 2004 +0100
+++ b/CodeGeneratorTool.st	Wed Mar 24 11:25:04 2004 +0100
@@ -713,7 +713,7 @@
         ].
     ].
 
-    self executeCollectedChangesNamed:('Add Application Code' , aClass nonMetaclass name).
+    self executeCollectedChangesNamed:('Add Application Code' , aClass theNonMetaclass name).
 
     "Modified: / 1.2.1998 / 16:10:03 / cg"
 !
@@ -1621,5 +1621,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.26 2004-03-19 15:48:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.27 2004-03-24 10:25:04 cg Exp $'
 ! !