--- a/HTMLDocGenerator.st	Thu Jul 13 16:25:15 2017 +0200
+++ b/HTMLDocGenerator.st	Sun Jul 16 11:51:03 2017 +0200
@@ -1812,7 +1812,7 @@
     "/ (otherwise, I'll say that this method is both
     "/  a subres and and obsolete method ...)
 
-    isSubres := aMethod sendsAnySelector:#( #'subclassResponsibility' #'subclassResponsibility:' ).
+    isSubres := aMethod isSubclassResponsibility.
 
     isObsolete := aMethod isObsolete.
     "/ the above checks for the obsolete-resource flag;
@@ -2018,7 +2018,7 @@
     "
 
     "Created: / 22-04-1996 / 20:03:30 / cg"
-    "Modified: / 05-02-2017 / 01:34:30 / cg"
+    "Modified: / 16-07-2017 / 11:28:18 / cg"
 !
 
 printOutHTMLProtocolOf:aClass on:aStream