--- a/Tools__Tag.st	Wed Feb 05 19:56:11 2014 +0100
+++ b/Tools__Tag.st	Wed Feb 05 19:56:13 2014 +0100
@@ -429,7 +429,7 @@
     lnr := 0.
 
 "/        (pat endsWith:'/;"') ifTrue:[
-"/            pat := pat copyWithoutLast:3.
+"/            pat := pat copyButLast:3.
 "/        ].
     (pat startsWith:$^) ifTrue:[
         pat := pat copyFrom:2.
@@ -1410,10 +1410,10 @@
 !Tag class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.9 2014-01-21 18:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.10 2014-02-05 18:56:13 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Tag.st,v 1.9 2014-01-21 18:20:50 cg Exp $'
+    ^ '$Id: Tools__Tag.st,v 1.10 2014-02-05 18:56:13 cg Exp $'
 ! !