--- a/EditTextView.st	Sat May 07 15:48:54 2016 +0200
+++ b/EditTextView.st	Sat May 07 15:49:09 2016 +0200
@@ -7711,11 +7711,11 @@
         searchBackwardFor:pattern
         ignoreCase:ign
         startingAtLine:startLine col:startCol
-        ifFound:[:line :col |
+        ifFound:[:line :col :endColOrNil |
             self cursorMovementAllowed ifTrue:[
                 self cursorLine:line col:col.
             ].
-            self showMatch:pattern isMatch:false atLine:line col:col.
+            self showMatch:pattern isMatch:false atLine:line col:col endCol:endColOrNil.
 "/            self makeLineVisible:cursorLine
             typeOfSelection := #search]
         ifAbsent:aBlock
@@ -7755,11 +7755,11 @@
         ignoreCase:ign
         match: match
         startingAtLine:startLine col:startCol
-        ifFound:[:line :col |
+        ifFound:[:line :col :endColOrNil|
             self cursorMovementAllowed ifTrue:[
                 self cursorLine:line col:col.
             ].
-            self showMatch:pattern isMatch:match atLine:line col:col.
+            self showMatch:pattern isMatch:match atLine:line col:col endCol:endColOrNil.
 "/            self makeLineVisible:cursorLine
             typeOfSelection := #search
         ]
@@ -7836,8 +7836,8 @@
     "Modified: / 07-05-2011 / 17:25:59 / cg"
 !
 
-showMatch:pattern isMatch:isMatch atLine:line col:col
-    super showMatch:pattern isMatch:isMatch atLine:line col:col.
+showMatch:pattern isMatch:isMatch atLine:line col:col endCol:encColOrNil
+    super showMatch:pattern isMatch:isMatch atLine:line col:col endCol:encColOrNil.
     typeOfSelection := #search.
 !