--- a/MCVersion.st Tue Jul 24 17:34:22 2012 +0200
+++ b/MCVersion.st Thu Jul 26 01:37:36 2012 +0200
@@ -44,7 +44,15 @@
!
fileName
- ^ info name, '.', self writerClass extension
+ |rawName legalName|
+
+ rawName := info name.
+ rawName := rawName copyReplaceAll:$/ with:$_.
+ rawName := rawName copyReplaceAll:$: with:$_.
+ legalName := rawName asFilename makeLegalFilename name.
+ ^ legalName, '.', self writerClass extension
+
+ "Modified: / 24-07-2012 / 16:30:13 / cg"
!
info
@@ -222,5 +230,5 @@
!MCVersion class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.2 2011-12-02 15:10:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersion.st,v 1.3 2012-07-25 23:37:36 cg Exp $'
! !