--- a/CodeGeneratorTool.st	Thu Oct 22 14:06:06 2009 +0200
+++ b/CodeGeneratorTool.st	Thu Oct 22 14:07:36 2009 +0200
@@ -2809,7 +2809,7 @@
      ^ self class canUseRefactoringSupport
 !
 
-codeForShouldImplementFor:selector inClass:aClass
+codeFor_shouldImplementFor:selector inClass:aClass
     |mthd comment implClass methodBodyStream searcher errorMessageString|
 
     implClass := aClass superclass whichClassImplements:selector.
@@ -2877,7 +2877,7 @@
 
         implClass := aClass whichClassImplements:eachSelector.
         implClass == Object ifFalse:[
-            code := self codeForShouldImplementFor:eachSelector inClass:aClass.
+            code := self codeFor_shouldImplementFor:eachSelector inClass:aClass.
 
             self 
                 compile:code
@@ -2890,9 +2890,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.66 2009-10-22 11:56:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.67 2009-10-22 12:07:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.66 2009-10-22 11:56:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.67 2009-10-22 12:07:36 cg Exp $'
 ! !