--- a/TextView.st	Tue Apr 22 17:43:19 2008 +0200
+++ b/TextView.st	Tue Apr 22 17:43:57 2008 +0200
@@ -1292,10 +1292,10 @@
         "/ see what is to the left of that character ...
         clickCol > 1 ifTrue:[
             ch := self characterAtLine:clickLine col:clickCol-1.
-            ('([{<|' includes:ch) ifTrue:[
+            ('([{<' includes:ch) ifTrue:[
                 matchCol := clickCol - 1
             ] ifFalse:[
-                ('"''' includes:ch) ifTrue:[
+                ('"''|' includes:ch) ifTrue:[
                     scanCol := clickCol - 1.
                     fwdScan := true.
                     scanCh := ch.    
@@ -1305,11 +1305,11 @@
         fwdSelect := true.
         clickCol < (self listAt:clickLine) size ifTrue:[
             ch := self characterAtLine:clickLine col:clickCol+1.
-            (')]}>|' includes:ch) ifTrue:[
+            (')]}>' includes:ch) ifTrue:[
                 matchCol := clickCol + 1.
                 fwdSelect := false.
             ] ifFalse:[
-                ('"''' includes:ch) ifTrue:[
+                ('"''|' includes:ch) ifTrue:[
                     scanCol := clickCol + 1.
                     fwdScan := false.
                     scanCh := ch.    
@@ -4070,7 +4070,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.286 2008-04-22 15:43:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.287 2008-04-22 15:43:57 cg Exp $'
 ! !
 
 TextView initialize!