--- a/DoWhatIMeanSupport.st	Wed May 03 16:29:15 2017 +0200
+++ b/DoWhatIMeanSupport.st	Fri May 05 17:25:01 2017 +0200
@@ -3345,7 +3345,7 @@
                         collect:[:eachImplementor |
                             |parseTree|
                             parseTree := eachImplementor parseTree.
-                            (parseTree notNil and:[parseTree arguments size > 0])
+                            (parseTree notNil and:[parseTree arguments size >= argIdx])
                                 ifFalse:nil
                                 ifTrue:[ (parseTree arguments at:argIdx) name] ]
                         thenSelect:[:a | a notNil].
@@ -3747,7 +3747,7 @@
 
     "Created: / 10-11-2006 / 13:16:33 / cg"
     "Modified: / 16-02-2010 / 10:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-05-2016 / 18:45:07 / cg"
+    "Modified: / 05-05-2017 / 17:20:35 / cg"
 !
 
 editActionToInsert:aString