--- a/ChangeSet.st	Tue Jul 31 16:24:36 2012 +0200
+++ b/ChangeSet.st	Tue Jul 31 16:42:45 2012 +0200
@@ -598,7 +598,12 @@
     (reader := aReader) isNil ifTrue:[
         reader := ChangeFileReader new.
     ].
-    size := aStream size.
+
+    (aStream isKindOf: EncodedStream) ifTrue:[
+        size := aStream stream size.
+    ] ifFalse:[
+        size := aStream size.
+    ].
 
     reader changeSet:aChangeSet.
     reader changeAction:aBlock.
@@ -688,13 +693,13 @@
 
     "Created: / 16-02-1998 / 12:19:34 / cg"
     "Modified: / 14-12-1999 / 15:23:16 / cg"
-    "Modified: / 02-04-2012 / 19:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-07-2012 / 15:37:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSet class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.194 2012-07-31 14:24:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.195 2012-07-31 14:42:45 vrany Exp $'
 ! !
 
 !ChangeSet class methodsFor:'queries'!
@@ -4041,7 +4046,7 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.194 2012-07-31 14:24:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.195 2012-07-31 14:42:45 vrany Exp $'
 !
 
 version_SVN