--- a/DoWhatIMeanSupport.st	Mon Jan 18 20:20:23 2016 +0100
+++ b/DoWhatIMeanSupport.st	Wed Jan 20 02:10:58 2016 +0100
@@ -1394,12 +1394,12 @@
 
             possible := classOfReceiver selectors.
             superClass := classOfReceiver superclass.
-            [superClass notNil and:[(possible size + superClass selectors size) < 50]] whileTrue:[
+            [superClass notNil "and:[(possible size + superClass selectors size) < 500]"] whileTrue:[
                 possible := possible,superClass selectors.
                 superClass := superClass superclass.
             ].
             possible := possible copy sort.
-            choice := self askUserForCompletion:('Message to "%1"' bindWith:node name) for:codeView from:possible.
+            choice := self askUserForCompletion:('Message to "%1"' bindWith:node formattedCode) for:codeView from:possible.
             choice isNil ifTrue:[
                 Screen current beep.
                 ^ self