--- a/CharacterEncoder.st	Wed Mar 27 23:16:31 2019 +0100
+++ b/CharacterEncoder.st	Wed Mar 27 23:44:08 2019 +0100
@@ -1013,7 +1013,8 @@
 
     (('iso10646*' match:superSetEncoding) 
     or:[superSetEncoding = 'unicode'
-    or:[superSetEncoding = 'ms-ansi']]) ifTrue:[
+    or:[superSetEncoding = 'ms-ansi'
+    or:[superSetEncoding = 'ms-default']]]) ifTrue:[
         "/ assume that any character is in unicode
         ^ true.
     ].
@@ -1022,10 +1023,12 @@
     ((subSetEncoding = 'iso8859*') or:[subSetEncoding = 'iso8859-*']) ifTrue:[
         ('ascii*' match:superSetEncoding) ifTrue:[^ true].
         ('ms-ansi*' match:superSetEncoding) ifTrue:[^ true].
+        ('ms-default*' match:superSetEncoding) ifTrue:[^ true].
     ].
     (subSetEncoding = 'ascii') ifTrue:[
         ('iso8859*' match:superSetEncoding) ifTrue:[^ true].
         ('ms-ansi*' match:superSetEncoding) ifTrue:[^ true].
+        ('ms-default*' match:superSetEncoding) ifTrue:[^ true].
     ].
 
     "/ TODO: check the charSets mappingTables...