--- a/Class.st	Fri Dec 11 13:41:23 2009 +0100
+++ b/Class.st	Fri Dec 11 17:50:15 2009 +0100
@@ -4578,7 +4578,7 @@
     stream := self sourceStreamFor:source.
     stream notNil ifTrue:[
         "/ see if its utf8 encoded...
-        stream := ChangeSet decodedStreamFor:stream.
+        stream := EncodedStream decodedStreamFor:stream.
     ].
     ^ stream.
 !
@@ -5022,9 +5022,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.563 2009-12-11 16:50:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.562 2009-11-06 19:32:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.563 2009-12-11 16:50:15 cg Exp $'
 ! !