--- a/ProgrammingLanguage.st	Tue Aug 28 11:33:07 2018 +0200
+++ b/ProgrammingLanguage.st	Tue Aug 28 11:59:07 2018 +0200
@@ -558,6 +558,15 @@
 
 !ProgrammingLanguage methodsFor:'utilities - source code'!
 
+methodSourceForVersionMethodCVS:versionString
+    |generatorClass|
+
+    (generatorClass := self codeGeneratorClass) isNil ifTrue:[^ nil].
+    ^ generatorClass methodSourceForVersionMethodCVS:versionString
+
+    "Created: / 28-08-2018 / 11:52:41 / Claus Gittinger"
+!
+
 methodTemplate
     "return a method definition template string (or nil)"