--- a/CharacterEncoder.st	Wed Mar 07 17:08:34 2018 +0100
+++ b/CharacterEncoder.st	Wed Mar 07 17:12:50 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -14,55 +16,55 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#CharacterEncoder
-        instanceVariableNames:''
-        classVariableNames:'AccessLock CachedEncoders EncoderClassesByName EncodersByName
-                EncodingDetectors Jis7KanjiEscapeSequence
-                Jis7KanjiOldEscapeSequence Jis7RomanEscapeSequence
-                JisISO2022EscapeSequence NullEncoderInstance'
-        poolDictionaries:''
-        category:'Collections-Text-Encodings'
+	instanceVariableNames:''
+	classVariableNames:'AccessLock CachedEncoders EncoderClassesByName EncodersByName
+		EncodingDetectors Jis7KanjiEscapeSequence
+		Jis7KanjiOldEscapeSequence Jis7RomanEscapeSequence
+		JisISO2022EscapeSequence NullEncoderInstance'
+	poolDictionaries:''
+	category:'Collections-Text-Encodings'
 !
 
 CharacterEncoder subclass:#CompoundEncoder
-        instanceVariableNames:'decoder encoder'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:'decoder encoder'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 CharacterEncoder subclass:#NullEncoder
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 CharacterEncoder subclass:#InverseEncoder
-        instanceVariableNames:'decoder readAhead'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:'decoder readAhead'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 CharacterEncoder::NullEncoder subclass:#DefaultEncoder
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 CharacterEncoder subclass:#OtherEncoding
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 CharacterEncoder subclass:#TwoStepEncoder
-        instanceVariableNames:'encoder1 encoder2'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:CharacterEncoder
+	instanceVariableNames:'encoder1 encoder2'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:CharacterEncoder
 !
 
 !CharacterEncoder class methodsFor:'documentation'!
@@ -739,6 +741,8 @@
             decodesToDict at:eachEncodingAlias put:className ifPresent:[self halt:'conflicting alias'].    
         ].
     ].
+    "/ flush
+    "/ EncodersByName := Dictionary new.
 
     "
      self initializeEncoderClassesByName
@@ -901,7 +905,7 @@
     "
      self encodeString:(self encodeString:'hello' into:#ebcdic) from:#ebcdic into:#ascii    
      self encodeString:(self encodeString:'hello' into:#ebcdic) from:#ebcdic into:#unicode    
-     self encodeString:(self encodeString:'Äh ... hello' into:#ebcdic) from:#ebcdic into:#utf8    
+     self encodeString:(self encodeString:'Äh ... hello' into:#ebcdic) from:#ebcdic into:#utf8    
     "
 
     "Modified (comment): / 17-01-2018 / 15:49:40 / stefan"