--- a/ClassDescription.st	Thu Sep 24 15:22:09 2015 +0200
+++ b/ClassDescription.st	Thu Sep 24 15:24:01 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1517,7 +1519,7 @@
      (recommended if multiple images operate on a common changes file)"
 
     |streamType changesStream fileName
-     encoding encoder changeFileIsNew|
+     encoding changeFileIsNew|
 
     fileName := ObjectMemory nameForChanges.
 
@@ -1537,19 +1539,18 @@
 
     changeFileIsNew := changesStream fileSize = 0.
     changeFileIsNew ifTrue:[
-        encoder := CharacterEncoder encoderForUTF8.
+        encoding := #utf8.
     ] ifFalse:[
         encoding := CharacterEncoder guessEncodingOfStream:changesStream.
         encoding isNil ifTrue:[
             encoding := #'iso8859-1'.
         ].
-        encoder := CharacterEncoder encoderFor:encoding.
     ].
     changesStream setToEnd.
 
-    changesStream := EncodedStream stream:changesStream encoder:encoder.
+    changesStream := EncodedStream stream:changesStream encoding:encoding.
     changeFileIsNew ifTrue:[
-        changesStream nextPutLine:'"{ Encoding: ' , encoder nameOfEncoding , ' }" !!'.
+        changesStream nextPutLine:'"{ Encoding: ' , encoding , ' }" !!'.
     ].
 
     ^ changesStream