--- a/TextView.st	Thu Apr 25 15:10:53 2013 +0200
+++ b/TextView.st	Thu Apr 25 15:11:43 2013 +0200
@@ -4231,16 +4231,16 @@
     realPattern := pattern.
 
     isMatch ifTrue: [
-	(realPattern startsWith:$*) ifTrue:[
-	    realPattern := realPattern copyFrom:2
-	].
-	(realPattern endsWith:$*) ifTrue:[
-	    realPattern := realPattern copyWithoutLast:1
-	].
+        (realPattern startsWith:$*) ifTrue:[
+            realPattern := realPattern copyFrom:2
+        ].
+        (realPattern endsWith:$*) ifTrue:[
+            realPattern := realPattern copyButLast:1
+        ].
     ].
 
     self selectFromLine:line col:col
-		 toLine:line col:(col + realPattern size - 1).
+                 toLine:line col:(col + realPattern size - 1).
     self makeLineVisible:line
 !
 
@@ -4830,11 +4830,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.349 2013-04-03 19:43:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.350 2013-04-25 13:11:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.349 2013-04-03 19:43:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.350 2013-04-25 13:11:43 stefan Exp $'
 ! !