DoWhatIMeanSupport.st
branchjv
changeset 5323 be6a1f522092
parent 5317 d11b5e202b4a
parent 5322 407a341d0c83
child 5327 111c6aed371e
--- a/DoWhatIMeanSupport.st	Tue Nov 08 07:11:19 2016 +0100
+++ b/DoWhatIMeanSupport.st	Wed Nov 09 07:03:34 2016 +0100
@@ -4603,7 +4603,7 @@
     "/ or the method's selector pattern node.
     checkedNode := node.
     [checkedNode notNil] whileTrue:[
-        (characterPositionOfCursor <= (checkedNode stop ? source size)) ifTrue:[
+        (characterPositionOfCursor <= ((checkedNode stop ? source size)+1)) ifTrue:[
             "/ Transcript show:'T: '; showCR:node.
             "/ Transcript showCR:('Inside a ',(checkedNode className)).
             "/ self information:('Inside a ',(checkedNode className)).