--- a/MCSnapshot.st	Wed May 29 13:47:50 2013 +0200
+++ b/MCSnapshot.st	Wed May 29 13:47:57 2013 +0200
@@ -53,6 +53,19 @@
     "Modified: / 26-10-2010 / 23:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!MCSnapshot methodsFor:'copying'!
+
+postCopy
+    "Do half-shallow copy of definitions to allow for their transformation"
+    definitions := definitions copy.
+    1 to: definitions size do:[:i|
+        definitions at: i put: definitions copy
+    ]
+
+    "Created: / 29-05-2013 / 01:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-05-2013 / 12:36:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MCSnapshot methodsFor:'initializing'!
 
 initializeWithDefinitions: aCollection
@@ -78,14 +91,14 @@
 !MCSnapshot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.6 2013-03-21 17:25:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.7 2013-05-29 11:47:57 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.6 2013-03-21 17:25:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.7 2013-05-29 11:47:57 vrany Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCSnapshot.st 22 2010-10-27 12:44:00Z vranyj1 §'
+    ^ '$Id: MCSnapshot.st,v 1.7 2013-05-29 11:47:57 vrany Exp $'
 ! !