--- a/CharacterEncoder.st	Tue Oct 09 12:41:31 2018 +0200
+++ b/CharacterEncoder.st	Tue Oct 09 12:45:45 2018 +0200
@@ -736,7 +736,7 @@
         "/ Therefore, we remember their names here.
         decodesToDict := EncoderClassesByName at:decodesTo ifAbsentPut:[Dictionary new].
         encodesTo do:[:eachEncodingAlias |
-            decodesToDict at:eachEncodingAlias put:className ifPresent:[self halt:'conflicting alias'].    
+            decodesToDict at:eachEncodingAlias put:className ifPresent:[:classAlready | self halt:'conflicting alias'].    
         ].
     ].
     "/ flush
@@ -749,7 +749,7 @@
     "Modified (format): / 23-01-2013 / 09:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-02-2017 / 16:17:43 / stefan"
     "Modified: / 12-11-2017 / 13:05:38 / cg"
-    "Modified: / 17-09-2018 / 14:36:38 / Claus Gittinger"
+    "Modified: / 08-10-2018 / 08:59:01 / Claus Gittinger"
 ! !
 
 !CharacterEncoder class methodsFor:'constants'!