--- a/CodeGeneratorTool.st	Thu Feb 19 13:15:07 2015 +0100
+++ b/CodeGeneratorTool.st	Thu Feb 19 13:16:12 2015 +0100
@@ -863,7 +863,7 @@
 
     aClass allSuperclassesDo:[:eachSuperClass |
         eachSuperClass methodDictionary keysAndValuesDo:[:eachSelector :eachMethod |
-            (eachMethod sends:#subclassResponsibility or:#subclassResponsibility:) ifTrue:[
+            (eachMethod sendsAny:#( #subclassResponsibility #subclassResponsibility: )) ifTrue:[
                 (implementedSelectors includes:eachSelector) ifFalse:[
                     requiredSelectors add:eachSelector.
                 ]
@@ -1790,10 +1790,10 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.110 2015-01-10 06:43:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.111 2015-02-19 12:16:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.110 2015-01-10 06:43:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.111 2015-02-19 12:16:12 cg Exp $'
 ! !