--- a/MCStXSnapshotPostReadTransformation.st	Tue May 04 22:11:43 2021 +0100
+++ b/MCStXSnapshotPostReadTransformation.st	Mon Sep 13 15:51:06 2021 +0100
@@ -41,7 +41,7 @@
 !MCStXSnapshotPostReadTransformation methodsFor:'visiting'!
 
 visitMethodDefinition: definition
-    | source |
+    | source klassMap |
 
     source := definition source asStringWithNativeLineEndings.  "/ Make sure source has native line endings
     source := source tabsToSpaces.                              "/ Make sure there are tabs and spaces used for indentation
@@ -50,8 +50,12 @@
 
     definition source: source.
 
+    "/ This is actually rubbish - we need distinct exporter / importer!!!!!!
+    klassMap := original options porter klassMap.
+    definition className: (klassMap keyAtValue: definition className ifAbsent: [ definition className ]).
+
     "Created: / 24-04-2015 / 16:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 04-05-2021 / 11:24:59 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 13-09-2021 / 15:49:11 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !MCStXSnapshotPostReadTransformation class methodsFor:'documentation'!
@@ -62,5 +66,10 @@
 
 version_CVS
     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPostReadTransformation.st,v 1.1 2013-05-29 11:47:15 vrany Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !