--- a/ChangeSet.st	Wed Jul 10 18:32:03 2019 +0200
+++ b/ChangeSet.st	Fri Jul 12 15:23:31 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -151,26 +149,26 @@
     |changeSet s changeObject|
 
     "/ kludge: could do this much faster...
-    s := ReadWriteStream on:''.
+    s := CharacterWriteStream on:''.
     aClass fileOutOn:s.
-    s reset.
+    s := s contents readStream.
     changeSet := self fromStream:s.
 
     "/ fetch the real package info...
     changeSet do:[:eachChange |
-	eachChange isMethodChange ifTrue:[
-	    changeObject := eachChange changeMethod.
-	    changeObject notNil ifTrue:[
-		eachChange package:changeObject package
-	    ].
-	] ifFalse:[
-	    eachChange isClassChange ifTrue:[
-		changeObject := eachChange changeClass.
-		changeObject notNil ifTrue:[
-		    eachChange package:changeObject package
-		].
-	    ].
-	].
+        eachChange isMethodChange ifTrue:[
+            changeObject := eachChange changeMethod.
+            changeObject notNil ifTrue:[
+                eachChange package:changeObject package
+            ].
+        ] ifFalse:[
+            eachChange isClassChange ifTrue:[
+                changeObject := eachChange changeClass.
+                changeObject notNil ifTrue:[
+                    eachChange package:changeObject package
+                ].
+            ].
+        ].
     ].
 
     ^ changeSet
@@ -214,6 +212,7 @@
     "Created: / 16-02-1998 / 12:19:34 / cg"
     "Modified: / 12-10-2006 / 23:45:14 / cg"
     "Modified (format): / 01-12-2011 / 19:10:22 / cg"
+    "Modified: / 12-07-2019 / 14:02:20 / Stefan Reise"
 !
 
 forExistingClass:aClass withExtensions:withExtensions