--- a/AbstractSourceCodeManager.st	Mon Aug 20 10:11:25 2018 +0200
+++ b/AbstractSourceCodeManager.st	Tue Aug 28 11:59:43 2018 +0200
@@ -1209,18 +1209,15 @@
 
 compileVersionMethod:methodName of:aClass for:newRevisionString
 
-    |cls mthd code|
+    |cls language mthd code|
 
     cls := aClass theMetaclass.
-
-    self assert: cls programmingLanguage isSmalltalk.
-
-    code :=
-methodName , '
-    ^ ''' , newRevisionString , '''
-'.
-
-    mthd := Compiler 
+    language := cls programmingLanguage.
+    "/ self assert: language isSmalltalk.
+
+    code := language methodSourceForVersionMethodCVS:newRevisionString.
+
+    mthd := language compilerClass 
                 compile:code  
                 forClass:cls
                 inCategory:#documentation
@@ -1232,6 +1229,8 @@
     mthd notNil ifTrue:[
         mthd setPackage:aClass package
     ]
+
+    "Modified: / 28-08-2018 / 11:56:45 / Claus Gittinger"
 !
 
 containerFromSourceInfo:info