--- a/SmalltalkCodeGeneratorTool.st	Fri Sep 07 12:37:19 2012 +0100
+++ b/SmalltalkCodeGeneratorTool.st	Fri Sep 07 18:28:09 2012 +0100
@@ -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,13 +2490,13 @@
 !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
-    ^ '$Id: SmalltalkCodeGeneratorTool.st 8022 2012-07-25 09:51:30Z vranyj1 $'
+    ^ '$Id: SmalltalkCodeGeneratorTool.st 8048 2012-09-07 17:28:09Z vranyj1 $'
 ! !