--- a/Tools__MethodCategoryList.st	Thu Feb 19 13:11:45 2015 +0100
+++ b/Tools__MethodCategoryList.st	Thu Feb 19 13:14:56 2015 +0100
@@ -935,7 +935,6 @@
                             aClass methodDictionary keysAndValuesDo:[:sel :mthd |
                                 |cat mPkg includeIt info|
 
-"/ sel == #metacelloCleanup ifTrue:[self halt].
                                 supportsMethodCategories ifTrue:[
                                     cat := mthd category.
                                 ] ifFalse:[
@@ -1733,7 +1732,7 @@
 "/                                    and:[ mclass allSubclasses contains:[:cls | cls includesSelector:selector ]]]) 
 "/                                ).
 
-                info isSubclassResponsibility:( aMethod sends:#subclassResponsibility or:#subclassResponsibility: ).
+                info isSubclassResponsibility:( aMethod sendsAny:#( #subclassResponsibility #subclassResponsibility: )).
                 info isAnnotated:(aMethod hasAnnotation).
 
                 MethodInfoCacheAccessLock critical:[
@@ -2124,11 +2123,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.108 2015-02-13 11:09:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.109 2015-02-19 12:14:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.108 2015-02-13 11:09:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.109 2015-02-19 12:14:56 cg Exp $'
 ! !