--- a/mercurial/HGRevisionInfo.st	Tue Dec 04 11:32:49 2012 +0000
+++ b/mercurial/HGRevisionInfo.st	Tue Dec 04 12:05:27 2012 +0000
@@ -139,17 +139,19 @@
 !
 
 fileName
-    | cls |
+    | cls fn |
 
     className isNil ifTrue:[ ^ nil ].
     cls := Smalltalk at: className.
-    ^cls notNil ifTrue:[
-        className , '.' , (cls programmingLanguage sourceFileSuffix)
+    cls notNil ifTrue:[
+        fn := className , '.' , (cls programmingLanguage sourceFileSuffix)
     ] ifFalse:[
-        className , '.st'
+        fn := className , '.st'
     ].
+    (fn includes: $:) ifTrue:[fn replaceAll:$: with:$_].
+    ^fn.
 
-    "Modified: / 30-11-2012 / 22:20:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2012 / 12:03:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 repositoryPathName