--- a/MCSnapshot.st	Sat Aug 20 13:42:40 2011 +0200
+++ b/MCSnapshot.st	Sat Aug 20 13:42:47 2011 +0200
@@ -32,10 +32,21 @@
 	^ definitions asArray hash
 ! !
 
+!MCSnapshot methodsFor:'converting'!
+
+asChangeSet
+
+    ^(ChangeSet withAll:
+        (self definitions collect:[:def|def asChange]))
+
+    "Created: / 13-10-2010 / 17:18:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-10-2010 / 23:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MCSnapshot methodsFor:'initializing'!
 
 initializeWithDefinitions: aCollection
-	definitions _ aCollection.
+	definitions := aCollection.
 ! !
 
 !MCSnapshot methodsFor:'loading'!
@@ -57,5 +68,13 @@
 !MCSnapshot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.1 2006-11-22 13:20:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.2 2011-08-20 11:42:47 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.2 2011-08-20 11:42:47 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCSnapshot.st 22 2010-10-27 12:44:00Z vranyj1 §'
 ! !