--- a/DoWhatIMeanSupport.st	Sat Feb 04 22:52:17 2017 +0100
+++ b/DoWhatIMeanSupport.st	Sun Feb 05 01:36:42 2017 +0100
@@ -5880,7 +5880,7 @@
                 ].
                 "/ if that method sends one of new/basicNew/new:/basicNew:, assume it returns an instance of itself
                 mthd notNil ifTrue:[
-                    ( mthd sendsAny:#( #'new' #'basicNew' #'new:' #'basicNew:' )) ifTrue:[
+                    ( mthd sendsAnySelector:#( #'new' #'basicNew' #'new:' #'basicNew:' )) ifTrue:[
                         setOfTypes add:receiverClass theNonMetaclass.
                         ^ setOfTypes
                     ].
@@ -5959,6 +5959,8 @@
     ].
     
     ^ setOfTypes
+
+    "Modified: / 05-02-2017 / 01:27:47 / cg"
 !
 
 classOfNode:aNode