--- a/MCVersion.st Mon Mar 25 13:48:36 2013 +0100
+++ b/MCVersion.st Mon Mar 25 14:23:40 2013 +0100
@@ -52,7 +52,7 @@
rawName := info name.
cookedName := rawName copy replaceAny:'/:' with:$_.
- legalName := rawName asFilename makeLegalFilename name.
+ legalName := cookedName asFilename makeLegalFilename name.
^ legalName, '.', self writerClass extension
"Modified: / 24-07-2012 / 16:30:13 / cg"
@@ -237,10 +237,10 @@
!MCVersion class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.7 2013-03-25 12:48:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.8 2013-03-25 13:23:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.7 2013-03-25 12:48:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.8 2013-03-25 13:23:40 cg Exp $'
! !