--- a/Tools__StringSearchToolForTextView.st	Tue Apr 08 11:04:01 2008 +0200
+++ b/Tools__StringSearchToolForTextView.st	Tue Apr 08 12:08:27 2008 +0200
@@ -225,7 +225,7 @@
     absentBlock := [self searchNextTextReachEnd].
     (self textView hasSelection and:[includeCurrentSelection]) 
         ifTrue:[
-            startCol := ((self textView selectionStartCol ? 1) - 1) max: 0.
+            startCol := ((self textView selectionStartCol ? 1) - 2) max: 0.
             startLine := (self textView selectionStartLine ? 1).
             self textView searchFwd:searchText ignoreCase:ignoreCase match: match startingAtLine:startLine col:startCol ifAbsent:absentBlock.
         ] ifFalse:[
@@ -269,5 +269,5 @@
 !StringSearchToolForTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.3 2008-04-08 09:03:48 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__StringSearchToolForTextView.st,v 1.4 2008-04-08 10:08:27 fm Exp $'
 ! !