--- a/CodeGeneratorTool.st	Wed Oct 07 11:36:01 2009 +0200
+++ b/CodeGeneratorTool.st	Wed Oct 07 14:11:11 2009 +0200
@@ -922,7 +922,7 @@
 
     self startCollectChanges.
 
-    self createVersionMethodFor:metaClass.
+"/    self createVersionMethodFor:metaClass.
     self createCopyrightMethodFor:metaClass.
     self createDocumentationMethodFor:metaClass.
     self createExamplesMethodFor:metaClass.
@@ -2246,11 +2246,14 @@
 !
 
 createVersionMethodFor:aClass
+    <resource: #obsolete>
     "add version method containing RCS template
      but only if not already present and its not a private class."
 
     |code|
 
+    self obsoleteMethodWarning.
+
     aClass isPrivate ifFalse:[
         (aClass includesSelector:#version) ifFalse:[
             "/ ugly; should ask the class for that    
@@ -2770,5 +2773,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.62 2009-09-23 15:13:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.63 2009-10-07 12:11:11 fm Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.63 2009-10-07 12:11:11 fm Exp $'
 ! !