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