--- a/SVN__WorkingCopy.st	Fri Feb 10 12:05:50 2012 +0100
+++ b/SVN__WorkingCopy.st	Fri Feb 10 12:06:00 2012 +0100
@@ -323,6 +323,17 @@
     "Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+changeSetForContainer: containerName revision: rev
+    | containerContents |
+
+    containerContents := self cat: containerName revision: rev.
+    ^(ChangeSet fromStream: containerContents readStream)
+        name: containerName , ' (' , rev printString , ')';
+        yourself
+
+    "Created: / 10-02-2012 / 09:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 changeSetForUpdate
     |diffSet classesToRemove|