--- a/Tools__Tag.st	Fri Jul 04 12:26:05 2014 +0200
+++ b/Tools__Tag.st	Fri Jul 04 12:27:24 2014 +0200
@@ -446,25 +446,25 @@
         atStart := true.
     ].
     (pat endsWith:$$) ifTrue:[
-        pat := pat copyButLast:1.
+        pat := pat copyButLast.
         atEnd := true.
     ].
     atStart == true ifTrue:[
         atEnd == true ifTrue:[
-            lnr := someText findFirst:[:l| l = pat].
+            lnr := someText findFirst:[:line | line = pat].
         ] ifFalse:[
-            lnr := someText findFirst:[:l| l startsWith:pat].
+            lnr := someText findFirst:[:line | line startsWith:pat].
         ]
     ] ifFalse:[
         atEnd == true ifTrue:[
-            lnr := someText findFirst:[:l| l endsWith:pat].
+            lnr := someText findFirst:[:line | line endsWith:pat].
         ] ifFalse:[
-            lnr := someText findFirst:[:l| l includesString:pat].
+            lnr := someText findFirst:[:line | line includesString:pat].
         ].
     ].
 
     lnr == 0 ifTrue:[
-        lnr := someText findFirst:[:l| l includesString:self label].
+        lnr := someText findFirst:[:line | line includesString:self label].
         lnr == 0 ifTrue:[
             lnr := 1.
         ].
@@ -1434,14 +1434,14 @@
 !Tag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
+    ^ '$Id: Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
 ! !