--- a/TextView.st	Fri Jul 04 12:28:43 2014 +0200
+++ b/TextView.st	Fri Jul 04 12:29:07 2014 +0200
@@ -4284,7 +4284,7 @@
 
     isMatch ifTrue: [
         (realPattern startsWith:$*) ifTrue:[
-            realPattern := realPattern copyFrom:2
+            realPattern := realPattern copyButFirst
         ].
         (realPattern endsWith:$*) ifTrue:[
             realPattern := realPattern copyButLast
@@ -4895,11 +4895,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.379 2014-07-04 10:28:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.380 2014-07-04 10:29:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.379 2014-07-04 10:28:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.380 2014-07-04 10:29:07 cg Exp $'
 ! !