--- a/CVSVersionInfo.st Wed Apr 17 23:45:28 2013 +0200
+++ b/CVSVersionInfo.st Thu Apr 25 15:10:04 2013 +0200
@@ -76,7 +76,7 @@
nm := s throughAll:',v '.
nm := nm withoutSeparators.
info repositoryPathName:nm.
- info fileName:(nm asFilename baseName copyWithoutLast:2).
+ info fileName:(nm asFilename baseName copyButLast:2).
words := s upToEnd asCollectionOfWords readStream.
words atEnd ifFalse:[
@@ -186,9 +186,10 @@
!CVSVersionInfo class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSVersionInfo.st,v 1.10 2011-11-24 09:56:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSVersionInfo.st,v 1.11 2013-04-25 13:10:04 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSVersionInfo.st,v 1.10 2011-11-24 09:56:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSVersionInfo.st,v 1.11 2013-04-25 13:10:04 stefan Exp $'
! !
+