--- a/SmalltalkCodeGeneratorTool.st	Sun Feb 05 01:37:45 2017 +0100
+++ b/SmalltalkCodeGeneratorTool.st	Sun Feb 05 01:38:23 2017 +0100
@@ -707,7 +707,7 @@
     (metaClass includesSelector:#new) ifFalse:[
         m := metaClass responseTo:#new.
         (m isNil 
-        or:[ (m sends:#initialize) not 
+        or:[ (m sendsSelector:#initialize) not 
         or:[ 
             (Dialog 
                 confirmWithCancel:('The inherited #new method already seems to invoke #initialize.\Redefine ?' withCRs)
@@ -730,7 +730,7 @@
     self executeCollectedChangesNamed:('Add Initialized Instance Creation to ' , className).
 
     "Created: / 11-10-2001 / 22:18:55 / cg"
-    "Modified: / 30-01-2011 / 00:58:04 / cg"
+    "Modified: / 05-02-2017 / 01:25:06 / cg"
 !
 
 createIsAbstractMethodIn:aClass
@@ -2934,7 +2934,7 @@
 
     "/ include the argument of the subclassResponsibility:-sending method
     self canUseRefactoringSupport ifTrue:[
-        (mthd sends:#subclassResponsibility:) ifTrue:[
+        (mthd sendsSelector:#subclassResponsibility:) ifTrue:[
             searcher := ParseTreeSearcher new.
             searcher
                     matches: 'self subclassResponsibility: `''.*'''
@@ -2955,6 +2955,8 @@
     ].
 
     ^ methodBodyStream contents
+
+    "Modified: / 05-02-2017 / 01:25:01 / cg"
 ! !
 
 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'!