--- a/SmalltalkCodeGeneratorTool.st	Tue Aug 21 12:26:28 2012 +0200
+++ b/SmalltalkCodeGeneratorTool.st	Tue Aug 21 12:28:31 2012 +0200
@@ -1882,8 +1882,8 @@
 
 createVersionMethodFor:aClass
     <resource: #obsolete>
-    "add version method containing RCS template
-     but only if not already present and its not a private class."
+    "add a version method containing RCS template
+     but only if not already present and it's not a private class."
 
     |code|
 
@@ -1891,18 +1891,15 @@
 
     aClass isPrivate ifFalse:[
         (aClass includesSelector:#version) ifFalse:[
-            "/ ugly; should ask the class for that    
-            aClass isJavaScriptClass ifTrue:[
-                code:= ('function version() {\    return ("$' , 'Header$");\}') withCRs
-            ] ifFalse:[
-                code:= ('version\    ^ ''$' , 'Header$''') withCRs
-            ].
+            code := aClass programmingLanguage versionMethodTemplateForCVS.
             self 
                 compile:code
                 forClass:aClass 
                 inCategory:#documentation.
         ]
     ].
+
+    "Modified (comment): / 21-08-2012 / 11:54:57 / cg"
 ! !
 
 !SmalltalkCodeGeneratorTool methodsFor:'code templates'!
@@ -2493,11 +2490,11 @@
 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.15 2012-07-20 18:13:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.16 2012-08-21 10:28:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.15 2012-07-20 18:13:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.16 2012-08-21 10:28:31 cg Exp $'
 !
 
 version_SVN