--- a/MCSnapshot.st	Fri May 31 02:05:53 2013 +0200
+++ b/MCSnapshot.st	Fri May 31 02:15:12 2013 +0200
@@ -59,11 +59,11 @@
     "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
+        definitions at: i put: (definitions at:i) 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>"
+    "Modified: / 31-05-2013 / 00:54:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MCSnapshot methodsFor:'initializing'!
@@ -103,14 +103,14 @@
 !MCSnapshot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.8 2013-05-30 23:34:57 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.9 2013-05-31 00:15:12 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.8 2013-05-30 23:34:57 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.9 2013-05-31 00:15:12 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCSnapshot.st,v 1.8 2013-05-30 23:34:57 vrany Exp $'
+    ^ '$Id: MCSnapshot.st,v 1.9 2013-05-31 00:15:12 vrany Exp $'
 ! !