--- a/MCSnapshot.st	Thu Mar 08 00:48:02 2018 +0100
+++ b/MCSnapshot.st	Thu Mar 08 00:48:11 2018 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#MCSnapshot
 	instanceVariableNames:'definitions'
 	classVariableNames:''
@@ -51,9 +55,11 @@
 !MCSnapshot methodsFor:'converting'!
 
 asChangeSet
+    |changes|
 
-    ^(ChangeSet withAll:
-        (self definitions collect:[:def|def asChange]))
+    changes := ChangeSet new.
+    self definitions do:[:def|def addChangesTo:changes].
+    ^ changes
 
     "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>"
@@ -109,14 +115,14 @@
 !MCSnapshot class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.10 2013-08-12 00:59:30 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.10 2013-08-12 00:59:30 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: MCSnapshot.st,v 1.10 2013-08-12 00:59:30 vrany Exp $'
+    ^ '$Id$'
 ! !