--- a/SmalltalkLanguage.st	Thu Jan 27 18:32:38 2011 +0100
+++ b/SmalltalkLanguage.st	Fri Jan 28 09:40:43 2011 +0100
@@ -41,6 +41,12 @@
 
 !SmalltalkLanguage methodsFor:'accessing - classes'!
 
+codeGeneratorToolClass 
+    "Answers a class that can nerate smalltalk code"
+
+    ^ CodeGeneratorTool
+!
+
 compilerClass
     "Answer a class suitable for compiling a source code in 'my' language"
 
@@ -186,11 +192,11 @@
 !SmalltalkLanguage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.12 2009-11-12 13:53:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.13 2011-01-28 08:40:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.12 2009-11-12 13:53:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.13 2011-01-28 08:40:43 cg Exp $'
 !
 
 version_SVN