--- a/CodeGeneratorTool.st	Mon Aug 20 22:03:57 2012 +0200
+++ b/CodeGeneratorTool.st	Tue Aug 21 12:26:28 2012 +0200
@@ -311,10 +311,12 @@
 !
 
 createVersionMethodFor:aClass
-    "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."
 
     ^ self new createVersionMethodFor:aClass
+
+    "Modified (comment): / 21-08-2012 / 11:55:15 / cg"
 ! !
 
 !CodeGeneratorTool class methodsFor:'code generation-menus'!
@@ -1686,9 +1688,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.98 2012-08-02 12:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.99 2012-08-21 10:26:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.98 2012-08-02 12:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.99 2012-08-21 10:26:28 cg Exp $'
 ! !