class: MCVersion
authorClaus Gittinger <cg@exept.de>
Mon, 25 Mar 2013 14:23:40 +0100
changeset 765 03519ebb18d1
parent 764 3eb1773a5ce8
child 766 94bc6e95d8b1
class: MCVersion changed: #fileName
MCVersion.st
--- 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 $'
 ! !