DoWhatIMeanSupport.st
changeset 5322 407a341d0c83
parent 5312 a16f68b2aba1
child 5323 be6a1f522092
child 5324 555436a71f8d
--- a/DoWhatIMeanSupport.st	Mon Nov 07 15:00:47 2016 +0100
+++ b/DoWhatIMeanSupport.st	Tue Nov 08 20:18:03 2016 +0100
@@ -4604,7 +4604,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)).