--- a/DoWhatIMeanSupport.st	Thu Jan 30 12:50:29 2020 +0100
+++ b/DoWhatIMeanSupport.st	Fri Jan 31 22:02:22 2020 +0100
@@ -4931,11 +4931,12 @@
     (aClass isMeta) ifTrue:[
         noNilChecks := noBecome := true.
         "/ remove messages which are only defined in Object and non-meta classes.
-        selectors := selectors reject:
-            [:sel |
-                (Object implements:sel)
-                and:[ (Smalltalk allImplementorsOf:sel) conform:[:impl | impl isMeta not]]
-            ].
+        "/ this was a bad idea (annoying suppression of subclassResponsibility et. al)
+"/        selectors := selectors reject:
+"/            [:sel |
+"/                (Object implements:sel)
+"/                and:[ (Smalltalk allImplementorsOf:sel) conform:[:impl | impl isMeta not]]
+"/            ].
     ].
 
     aClass isVariable ifFalse:[