--- 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 $'
! !