diff --git a/sources/MCCS b/sources/MCCS
index f4524019..fd674a01 100644
--- a/sources/MCCS
+++ b/sources/MCCS
@@ -1,18 +1,18 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-(FILECREATED "26-Feb-2026 12:57:11" {WMEDLEY}<sources>MCCS.;168 61634  
+(FILECREATED "11-Mar-2026 11:58:53" {WMEDLEY}<sources>MCCS.;199 23312  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MCCSMAPPAIRS)
+      :CHANGES-TO (FNS KANJICHARSETP CHINESECHARSETP)
 
-      :PREVIOUS-DATE "20-Feb-2026 09:21:16" {WMEDLEY}<sources>MCCS.;167)
+      :PREVIOUS-DATE " 9-Mar-2026 22:08:30" {WMEDLEY}<sources>MCCS.;198)
 
 
 (PRETTYCOMPRINT MCCSCOMS)
 
 (RPAQQ MCCSCOMS
-       [
+       (
         (* ;; "Stringlet number encoding common to MCCS and XCCS")
 
         (FNS \MCCSINCCODE \MCCSPEEKCCODE \MCCSOUTCHAR \MCCSBACKCCODE \MCCSFORMATBYTESTREAM 
@@ -37,30 +37,7 @@
 
         (FNS MTOXCODE XTOMCODE XTOMSTRING MTOXSTRING)
         (FNS MTOX$CODE X$TOMCODE)
-        (FNS KANJICHARSETP CHINESECHARSETP)
-        (COMS                                                (* ; " Mapping to MCCS")
-              (VARS ALTOTEXT2MCCS SYMBOLTOMCCS SIGMATOMCCS HIPPOTOMCCS CYRILLICTOMCCS MATHTOMCCS 
-                    PALATINOTOMCCS)
-              (FNS MCCSCODEMAPARRAY)
-              (GLOBALVARS ALTOTOMCCSARRAY SYMBOLTOMCCSARRAY HIPPOTOMCCSARRAY CYRILLICTOMCCSARRAY 
-                     MATHTOMCCSARRAY SIGMATOMCCSARRAY PALATINOTOMCCSARRAY)
-              (INITVARS (ALTOTOMCCSARRAY (MCCSCODEMAPARRAY 'MCCS))
-                     (SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS))
-                     (HIPPOTOMCCSARRAY (MCCSCODEMAPARRAY HIPPOTOMCCS))
-                     (CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS))
-                     (MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS))
-                     (SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS))
-                     (PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS)))
-              (FNS MCCSMAPFN MCCSMAPPAIRS XCCS.CS0.UNDEFINED XCCSUNDEFINEDPAIRS)
-              (COMS 
-                    (* ;; 
-             "Mappings into MCCS: needed for hardcopy and Tedit coercion, e.g. \TEDIT.MCCS.TRANSLATE")
-
-                    (FNS GACHATOMCODE SYMBOLTOMCODE SIGMATOMCODE ATOMCODE MATHTOMCODE HIPPOTOMCODE 
-                         CYRILLICTOMCODE PALATINOTOMCODE))
-              (COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING)
-                    (EXPORT (GLOBALVARS *SYSTEM-EXTERNALFORMAT*))
-                    (INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8])
+        (FNS KANJICHARSETP CHINESECHARSETP)))
 
 
 
@@ -470,1125 +447,34 @@
 (DEFINEQ
 
 (KANJICHARSETP
-  [LAMBDA (CHARSET)                                          (* ; "Edited 13-Jun-2025 16:33 by rmk")
+  [LAMBDA (CHARSET)                                          (* ; "Edited 11-Mar-2026 11:58 by rmk")
+                                                             (* ; "Edited 13-Jun-2025 16:33 by rmk")
 
     (* ;; "Returns CHARSET if it is a charset with MCCS Kanji characters")
 
-    (AND (<= 48 CHARSET 118)
+    (AND (<= (CONSTANT (CHARSET.DECODE "60"))
+             CHARSET
+             (CONSTANT (CHARSET.DECODE "166")))
          CHARSET])
 
 (CHINESECHARSETP
-  [LAMBDA (CHARSET)                                          (* ; "Edited 18-Jun-2025 23:09 by rmk")
+  [LAMBDA (CHARSET)                                          (* ; "Edited 11-Mar-2026 11:58 by rmk")
+                                                             (* ; "Edited 18-Jun-2025 23:09 by rmk")
                                                              (* ; "Edited 13-Jun-2025 16:33 by rmk")
 
     (* ;; "Returns CHARSET if it is a charset with MCCS Chinese characters")
 
-    (AND (<= 161 CHARSET 212)
+    (AND (<= (CONSTANT (CHARSET.DECODE "241"))
+             CHARSET
+             (CONSTANT (CHARSET.DECODE "324")))
          CHARSET])
 )
-
-
-
-(* ; " Mapping to MCCS")
-
-
-(RPAQQ ALTOTEXT2MCCS
-       (
-        (* ;; "From bravo doc")
-
-        (↑N "356,055" MINUS)
-        (↑V "357,44" ENDASH)
-        (↑S EMDASH)
-        (↑O EMQUAD)
-        (↑X "356,055" MINUS)
-        (↑Y FIGURESPACE ENQUAD)
-        
-        (* ;; "Fom current Helvetica/Timesroman fonts")
-
-        ("0,1" "0,317" HACHEK)
-        ("0,3" "361,255" DIARESIS)
-        ("0,4" "0,310" CCEDILLA)
-        ("0,5" "0,301" GRAVE)
-        ("0,6" "360,41" ff)
-        ("0,7" "0,271" LSQ)
-        ("0,10" "0,241" SPANISHEXCL)
-        ("0,13" "0,302" ACUTE)
-        ("0,20" "0,304" TILDE)
-        ("0,21" "360,42" ffi)
-        ("0,22" "360,43" ffl)
-        ("0,24" "360,44" fi)
-        ("0,25" "360,45" fl)
-        ("0,26" "357,44" ENDASH)
-        ("0,27" "0,306" BREVE)
-        ("0,34" ENQUAD)
-        ("0,36" "0,304" TILDE)
-        ("0,140" "0,251")
-        ("0,200" "361,47" A-umlaut)
-        ("0,201" "361,124" O-umlaut)
-        ("0,202" "361,47" A-ring)
-        ("0,233" "357,44" ENDASH)
-        ("0,234" EMDASH)
-        ("0,240" "361,247" a-umlaut)
-        ("0,241" "361,324" o-umlaut)
-        ("0,242" "361,250" a-ring)
-        ("0,243" "361,345" u-umlaut)
-        ("0,254" Circumflex)
-        ("0,260" "0,242" CENTS)
-        ("0,261" "0,243" POUND)
-        ("0,265" "41,172" STAR)
-        ("0,266" "0,247" SECTION)
-        ("0,267" "357,146" BULLET)
-        ("0,270" "357,60" DAGGER)
-        ("0,271" "357,061" DOUBLEDAGGER)
-        ("0,272" "0,266" PARAGRAPH)
-        ("0,274" "0,261" PLUSMINUS)
-        ("0,275" "0,241" SPANISHEXCL)
-        ("0,276" "0,277" SPANISHQUES)
-        ("0,277" Lowline)))
-
-(RPAQQ SYMBOLTOMCCS
-       (("0,1" Null)
-        ("0,2" "0,264")
-        ("0,3" "41,142")
-        ("0,4" Null)
-        ("0,5" "41,176")
-        ("0,6" "0,261")
-        (Bell "357,175")
-        (Backspace "357,142")
-        (Tab "357,143")
-        (Linefeed "357,144")
-        ("0,13" "357,145")
-        (Page Null)
-        (Newline "0,270")
-        ("0,16" Null)
-        ("0,17" Null)
-        ("0,20" "357,160")
-        ("0,21" "357,162")
-        ("0,22" "357,131")
-        ("0,23" "357,130")
-        ("0,24" "41,145")
-        ("0,25" "41,146")
-        ("0,26" Null)
-        ("0,27" Null)
-        ("0,30" "356,176")
-        ("0,31" "357,171")
-        ("0,32" "357,133")
-        (Escape "357,132")
-        ("0,34" "41,142")
-        ("0,35" "357,163")
-        ("0,36" Null)
-        (Tenexeol Null)
-        (Space Null)
-        ("0,41" "0,256")
-        ("0,42" Circumflex)
-        ("0,43" "0,257")
-        (Dollar "357,122")
-        ("0,45" "357,102")
-        ("0,46" "357,103")
-        ("0,47" "357,167")
-        ("0,50" "357,115")
-        ("0,51" "357,117")
-        ("0,52" Null)
-        ("0,53" Null)
-        ("0,54" "357,116")
-        ("0,55" Null)
-        ("0,56" Null)
-        ("0,57" Null)
-        (Zero Null)
-        (One INFINITY)
-        (Two "357,112")
-        (Three "357,113")
-        (Four "357,141")
-        (Five Null)
-        (Six "357,154")
-        (Seven Lowline)
-        (Eight "357,265")
-        (Nine "357,264")
-        ("0,72" "357,152")
-        ("0,73" "357,247")
-        ("0,74" Null)
-        ("0,75" Null)
-        ("0,76" Null)
-        ("0,77" "0,57")
-        ("0,100" Null)
-        ("0,133" "357,127")
-        ("0,134" "357,126")
-        ("0,135" Null)
-        (Uparrow "357,266")
-        (Leftarrow "357,267")
-        ("0,140" "357,66")
-        ("0,141" "357,67")
-        ("0,142" "357,262")
-        ("0,143" "357,263")
-        ("0,144" "357,260")
-        ("0,145" "357,261")
-        ("0,146" "0,173")
-        ("0,147" "0,175")
-        ("0,150" "357,62")
-        ("0,151" "357,63")
-        ("0,152" "356,174")
-        ("0,153" "41,102")
-        ("0,154" "357,73")
-        ("0,155" "357,72")
-        ("0,156" "42,44")
-        ("0,157" "42,46")
-        ("0,160" "357,174")
-        ("0,161" "41,142")
-        ("0,162" Null)
-        ("0,163" "357,165")
-        ("0,164" Null)
-        ("0,165" Null)
-        ("0,166" Null)
-        ("0,167" Null)
-        ("0,170" "0,247")
-        ("0,171" "357,60")
-        ("0,172" "357,61")
-        ("0,173" "0,266")
-        ("0,174" "0,100")
-        ("0,175" "0,323")
-        ("0,176" "0,243")
-        (Rubout Dollar)
-        ("0,200" Null)
-        ("0,201" Null)
-        ("0,202" Null)
-        ("0,203" Null)
-        ("0,204" Null)
-        ("0,205" Null)
-        ("0,206" Null)
-        ("0,207" Null)
-        ("0,210" Null)
-        ("0,211" Null)
-        ("0,212" Null)
-        ("0,213" Null)
-        ("0,214" Null)
-        ("0,215" Null)
-        ("0,216" Null)
-        ("0,217" Null)
-        ("0,220" Null)
-        ("0,221" Null)
-        ("0,222" Null)
-        ("0,223" Null)
-        ("0,224" Null)
-        ("0,225" Null)
-        ("0,226" Null)
-        ("0,227" Null)
-        ("0,230" Null)
-        ("0,231" Null)
-        ("0,232" Null)
-        ("0,233" Null)
-        ("0,234" Null)
-        ("0,235" Null)
-        ("0,236" Null)
-        ("0,237" Null)
-        ("0,240" Null)
-        ("0,241" Null)
-        ("0,242" Null)
-        ("0,243" Null)
-        (Currency Null)
-        ("0,245" Null)
-        ("0,246" Null)
-        ("0,247" Null)
-        ("0,250" Null)
-        ("0,251" Null)
-        (LEFT-DOUBLEQUOTE Null)
-        ("0,253" Null)
-        (Lowline Null)
-        (Circumflex Null)
-        ("0,256" Null)
-        ("0,257" Null)
-        ("0,260" Null)
-        ("0,261" Null)
-        ("0,262" Null)
-        ("0,263" Null)
-        ("0,264" Null)
-        ("0,265" Null)
-        ("0,266" Null)
-        ("0,267" Null)
-        ("0,270" Null)
-        ("0,271" Null)
-        (RIGHT-DOUBLEQUOTE Null)
-        ("0,273" Null)
-        ("0,274" Null)
-        ("0,275" Null)
-        ("0,276" Null)
-        ("0,277" Null)
-        ("0,300" Null)
-        ("0,301" Null)
-        ("0,302" Null)
-        ("0,303" Null)
-        ("0,304" Null)
-        ("0,305" Null)
-        ("0,306" Null)
-        ("0,307" Null)
-        ("0,310" Null)
-        ("0,311" Null)
-        ("0,312" Null)
-        ("0,313" Null)
-        ("0,314" Null)
-        ("0,315" Null)
-        ("0,316" Null)
-        ("0,317" Null)
-        ("0,320" Null)
-        ("0,321" Null)
-        ("0,322" Null)
-        ("0,323" Null)
-        ("0,324" Null)
-        ("0,325" Null)
-        ("0,326" Null)
-        ("0,327" Null)
-        ("0,330" Null)
-        ("0,331" Null)
-        ("0,332" Null)
-        ("0,333" Null)
-        ("0,334" Null)
-        ("0,335" Null)
-        ("0,336" Null)
-        ("0,337" Null)
-        ("0,340" Null)
-        ("0,341" Null)
-        ("0,342" Null)
-        ("0,343" Null)
-        ("0,344" Null)
-        ("0,345" Null)
-        ("0,346" Null)
-        ("0,347" Null)
-        ("0,350" Null)
-        ("0,351" Null)
-        ("0,352" Null)
-        ("0,353" Null)
-        ("0,354" Null)
-        ("0,355" Null)
-        ("0,356" Null)
-        ("0,357" Null)
-        ("0,360" Null)
-        ("0,361" Null)
-        ("0,362" Null)
-        ("0,363" Null)
-        ("0,364" Null)
-        ("0,365" Null)
-        ("0,366" Null)
-        ("0,367" Null)
-        ("0,370" Null)
-        ("0,371" Null)
-        ("0,372" Null)
-        ("0,373" Null)
-        ("0,374" Null)
-        ("0,375" Null)
-        ("0,376" Null)
-        ("0,377" Null)))
-
-(RPAQQ SIGMATOMCCS
-       (("0,101" "0,101" low squaredot not in XCCS)
-        ("0,103" "357,166" contourintegral)
-        ("0,111" "357,126" intersection)
-        ("0,114" "357,266" and)
-        ("0,115" "357,172" Summation)
-        ("0,120" "357,173" Product)
-        ("0,122" "357,174" radical)
-        ("0,123" "357,165" integral)
-        ("0,125" "357,127" union)
-        ("0,126" "357,267" or)))
-
-(RPAQQ HIPPOTOMCCS
-       (("0,16" "356,55")
-        ("0,17" EMQUAD)
-        ("0,23" EMDASH)
-        ("0,26" "357,44")
-        ("0,30" "356,55")
-        ("0,31" ENQUAD)
-        ("0,101" "Greek,101")
-        ("0,102" "Greek,102")
-        ("0,103" "Greek,121")
-        ("0,104" "Greek,105")
-        ("0,105" "Greek,106")
-        ("0,106" "Greek,132")
-        ("0,107" "Greek,104")
-        ("0,110" "Greek,112")
-        ("0,111" "Greek,114")
-        ("0,113" "Greek,115")
-        ("0,114" "Greek,116")
-        ("0,115" "Greek,117")
-        ("0,116" "Greek,120")
-        ("0,117" "Greek,122")
-        ("0,120" "Greek,123")
-        ("0,121" "Greek,113")
-        ("0,122" "Greek,125")
-        ("0,123" "Greek,126")
-        ("0,124" "Greek,130")
-        ("0,125" "Greek,131")
-        ("0,127" "Greek,135")
-        ("0,130" "Greek,133")
-        ("0,131" "Greek,134")
-        ("0,132" "Greek,111")
-        (Uparrow Circumflex)
-        (Leftarrow Lowline)
-        ("0,141" "Greek,141")
-        ("0,142" "Greek,142")
-        ("0,143" "Greek,161")
-        ("0,144" "Greek,145")
-        ("0,145" "Greek,146")
-        ("0,146" "Greek,172")
-        ("0,147" "Greek,144")
-        ("0,150" "Greek,152")
-        ("0,151" "Greek,154")
-        ("0,153" "Greek,155")
-        ("0,154" "Greek,156")
-        ("0,155" "Greek,157")
-        ("0,156" "Greek,160")
-        ("0,157" "Greek,162")
-        ("0,160" "Greek,163")
-        ("0,161" "Greek,153")
-        ("0,162" "Greek,165")
-        ("0,163" "Greek,166")
-        ("0,164" "Greek,170")
-        ("0,165" "Greek,171")
-        ("0,167" "Greek,175")
-        ("0,170" "Greek,173")
-        ("0,171" "Greek,174")
-        ("0,172" "Greek,151")
-        ("0,233" "357,44")
-        ("0,234" EMDASH)
-        ("0,267" "357,146")))
-
-(RPAQQ CYRILLICTOMCCS
-       ((Dollar "Cyrillic,47")
-        ("0,52" "Cyrillic,71")
-        ("0,55" "41,76")
-        (Two "Cyrillic,157")
-        (Four "Cyrillic,127")
-        (Six "Cyrillic,150")
-        (Eight "Cyrillic,151")
-        ("0,74" "0,253")
-        ("0,76" "0,273")
-        ("0,100" "Cyrillic,77")
-        ("0,101" "Cyrillic,41")
-        ("0,102" "Cyrillic,42")
-        ("0,103" "Cyrillic,76")
-        ("0,104" "Cyrillic,45")
-        ("0,105" "Cyrillic,46")
-        ("0,106" "Cyrillic,66")
-        ("0,107" "Cyrillic,44")
-        ("0,110" "Cyrillic,101")
-        ("0,111" "Cyrillic,52")
-        ("0,112" "Cyrillic,53")
-        ("0,113" "Cyrillic,54")
-        ("0,114" "Cyrillic,55")
-        ("0,115" "Cyrillic,56")
-        ("0,116" "Cyrillic,57")
-        ("0,117" "Cyrillic,60")
-        ("0,120" "Cyrillic,61")
-        ("0,121" "Cyrillic,67")
-        ("0,122" "Cyrillic,62")
-        ("0,123" "Cyrillic,63")
-        ("0,124" "Cyrillic,64")
-        ("0,125" "Cyrillic,65")
-        ("0,126" "Cyrillic,43")
-        ("0,127" "Cyrillic,50")
-        ("0,130" "Cyrillic,75")
-        ("0,131" "Cyrillic,100")
-        ("0,132" "Cyrillic,51")
-        ("0,133" "Cyrillic,152")
-        ("0,134" "Cyrillic,0")
-        ("0,135" "Cyrillic,153")
-        (Uparrow "Cyrillic,74")
-        (Leftarrow "Cyrillic,154")
-        ("0,140" "Cyrillic,0")
-        ("0,141" "Cyrillic,121")
-        ("0,142" "Cyrillic,122")
-        ("0,143" "Cyrillic,176")
-        ("0,144" "Cyrillic,125")
-        ("0,145" "Cyrillic,126")
-        ("0,146" "Cyrillic,146")
-        ("0,147" "Cyrillic,124")
-        ("0,150" "Cyrillic,161")
-        ("0,151" "Cyrillic,132")
-        ("0,152" "Cyrillic,133")
-        ("0,153" "Cyrillic,134")
-        ("0,154" "Cyrillic,135")
-        ("0,155" "Cyrillic,136")
-        ("0,156" "Cyrillic,137")
-        ("0,157" "Cyrillic,140")
-        ("0,160" "Cyrillic,141")
-        ("0,161" "Cyrillic,147")
-        ("0,162" "Cyrillic,142")
-        ("0,163" "Cyrillic,143")
-        ("0,164" "Cyrillic,144")
-        ("0,165" "Cyrillic,145")
-        ("0,166" "Cyrillic,123")
-        ("0,167" "Cyrillic,130")
-        ("0,170" "Cyrillic,155")
-        ("0,171" "Cyrillic,160")
-        ("0,172" "Cyrillic,131")
-        ("0,173" "Cyrillic,72")
-        ("0,174" "Cyrillic,0")
-        ("0,175" "Cyrillic,73")
-        ("0,176" "Cyrillic,70")
-        (Rubout "Cyrillic,0")
-        ("0,217" "Cyrillic,156")
-        ("0,233" "357,44")
-        ("0,234" EMDASH)
-        ("0,267" "357,146")))
-
-(RPAQQ MATHTOMCCS
-       (("0,1" "357,173")
-        ("0,2" "357,62")
-        ("0,3" "357,63")
-        ("0,4" Null)
-        ("0,5" "0,243")
-        ("0,6" "357,165")
-        (Bell "357,166")
-        (Backspace Null)
-        (Tab Null)
-        (Linefeed Null)
-        ("0,13" "0,266")
-        (Page Null)
-        (Newline Null)
-        ("0,16" Null)
-        ("0,17" "357,146")
-        ("0,20" Null)
-        ("0,21" Null)
-        ("0,22" Null)
-        ("0,23" "357,172")
-        ("0,24" Null)
-        ("0,25" Null)
-        ("0,26" "357,157")
-        ("0,27" Null)
-        ("0,30" Null)
-        ("0,31" Null)
-        ("0,32" Null)
-        (Escape Null)
-        ("0,34" Null)
-        ("0,35" Null)
-        ("0,36" Null)
-        (Tenexeol Null)
-        ("0,41" "357,60")
-        ("0,42" "357,147")
-        ("0,43" INFINITY)
-        (Dollar "0,242")
-        ("0,45" "0,270")
-        ("0,46" "357,266")
-        ("0,47" "357,163")
-        ("0,50" "0,302")
-        ("0,51" "357,174")
-        ("0,52" "0,307")
-        ("0,53" "0,261")
-        ("0,54" "357,114")
-        ("0,55" "357,175")
-        ("0,56" "41,150")
-        ("0,57" "357,145")
-        (Zero "357,147")
-        (One "42,42")
-        (Two "42,44")
-        (Three "41,176")
-        (Four "357,142")
-        (Five "357,143")
-        (Six "357,144")
-        (Seven "357,154")
-        (Eight "41,172")
-        (Nine "0,307")
-        ("0,72" "0,247")
-        ("0,73" Null)
-        ("0,74" "41,145")
-        ("0,75" "41,142")
-        ("0,76" "41,146")
-        ("0,77" "0,277")
-        ("0,100" "357,100")
-        ("0,101" "357,265")
-        ("0,102" "357,112")
-        ("0,103" "357,254")
-        ("0,104" "357,271")
-        ("0,105" "357,264")
-        ("0,106" "357,61")
-        ("0,107" "357,133")
-        ("0,110" "357,137")
-        ("0,111" "357,131")
-        ("0,112" "357,132")
-        ("0,113" "357,136")
-        ("0,114" "357,130")
-        ("0,115" "360,275")
-        ("0,116" "357,113")
-        ("0,117" "357,141")
-        ("0,120" "357,161")
-        ("0,121" "357,121")
-        ("0,122" "357,256")
-        ("0,123" "357,171")
-        ("0,124" "357,160")
-        ("0,125" "357,127")
-        ("0,126" "357,267")
-        ("0,127" "357,162")
-        ("0,130" "0,264")
-        ("0,131" "360,272")
-        ("0,132" "357,270")
-        ("0,133" Null)
-        ("0,134" Null)
-        ("0,135" Null)
-        (Uparrow "0,257")
-        (Leftarrow "0,256")
-        ("0,140" Null)
-        ("0,141" "357,247")
-        ("0,142" "357,123")
-        ("0,143" "0,323")
-        ("0,144" "357,272")
-        ("0,145" "357,167")
-        ("0,146" "357,122")
-        ("0,147" "357,117")
-        ("0,150" "357,150")
-        ("0,151" "357,260")
-        ("0,152" "357,261")
-        ("0,153" "357,262")
-        ("0,154" "357,263")
-        ("0,155" "357,110")
-        ("0,156" "357,152")
-        ("0,157" "357,147")
-        ("0,160" "357,66")
-        ("0,161" "357,70")
-        ("0,162" "0,322")
-        ("0,163" "357,76")
-        ("0,164" "357,74")
-        ("0,165" "357,77")
-        ("0,166" "357,75")
-        ("0,167" "357,102")
-        ("0,170" "357,103")
-        ("0,171" "357,126")
-        ("0,172" "357,67")
-        ("0,173" "0,274")
-        ("0,174" "0,275")
-        ("0,175" "0,276")
-        ("0,176" "357,120")
-        (Rubout Null)
-        ("0,200" Null)
-        ("0,201" Null)
-        ("0,202" Null)
-        ("0,203" Null)
-        ("0,204" Null)
-        ("0,205" Null)
-        ("0,206" Null)
-        ("0,207" Null)
-        ("0,210" Null)
-        ("0,211" Null)
-        ("0,212" Null)
-        ("0,213" Null)
-        ("0,214" Null)
-        ("0,215" Null)
-        ("0,216" Null)
-        ("0,217" Null)
-        ("0,220" Null)
-        ("0,221" Null)
-        ("0,222" Null)
-        ("0,223" Null)
-        ("0,224" Null)
-        ("0,225" Null)
-        ("0,226" Null)
-        ("0,227" Null)
-        ("0,230" Null)
-        ("0,231" Null)
-        ("0,232" Null)
-        ("0,233" Null)
-        ("0,234" Null)
-        ("0,235" Null)
-        ("0,236" Null)
-        ("0,237" Null)
-        ("0,240" Null)
-        ("0,241" Null)
-        ("0,242" Null)
-        ("0,243" Null)
-        (Currency Null)
-        ("0,245" Null)
-        ("0,246" Null)
-        ("0,247" Null)
-        ("0,250" Null)
-        ("0,251" Null)
-        (LEFT-DOUBLEQUOTE Null)
-        ("0,253" Null)
-        (Lowline Null)
-        (Circumflex Null)
-        ("0,256" Null)
-        ("0,257" Null)
-        ("0,260" Null)
-        ("0,261" Null)
-        ("0,262" Null)
-        ("0,263" Null)
-        ("0,264" Null)
-        ("0,265" Null)
-        ("0,266" Null)
-        ("0,267" Null)
-        ("0,270" Null)
-        ("0,271" Null)
-        (RIGHT-DOUBLEQUOTE Null)
-        ("0,273" Null)
-        ("0,274" Null)
-        ("0,275" Null)
-        ("0,276" Null)
-        ("0,277" Null)
-        ("0,300" Null)
-        ("0,301" Null)
-        ("0,302" Null)
-        ("0,303" Null)
-        ("0,304" Null)
-        ("0,305" Null)
-        ("0,306" Null)
-        ("0,307" Null)
-        ("0,310" Null)
-        ("0,311" Null)
-        ("0,312" Null)
-        ("0,313" Null)
-        ("0,314" Null)
-        ("0,315" Null)
-        ("0,316" Null)
-        ("0,317" Null)
-        ("0,320" Null)
-        ("0,321" Null)
-        ("0,322" Null)
-        ("0,323" Null)
-        ("0,324" Null)
-        ("0,325" Null)
-        ("0,326" Null)
-        ("0,327" Null)
-        ("0,330" Null)
-        ("0,331" Null)
-        ("0,332" Null)
-        ("0,333" Null)
-        ("0,334" Null)
-        ("0,335" Null)
-        ("0,336" Null)
-        ("0,337" Null)
-        ("0,340" Null)
-        ("0,341" Null)
-        ("0,342" Null)
-        ("0,343" Null)
-        ("0,344" Null)
-        ("0,345" Null)
-        ("0,346" Null)
-        ("0,347" Null)
-        ("0,350" Null)
-        ("0,351" Null)
-        ("0,352" Null)
-        ("0,353" Null)
-        ("0,354" Null)
-        ("0,355" Null)
-        ("0,356" Null)
-        ("0,357" Null)
-        ("0,360" Null)
-        ("0,361" Null)
-        ("0,362" Null)
-        ("0,363" Null)
-        ("0,364" Null)
-        ("0,365" Null)
-        ("0,366" Null)
-        ("0,367" Null)
-        ("0,370" Null)
-        ("0,371" Null)
-        ("0,372" Null)
-        ("0,373" Null)
-        ("0,374" Null)
-        ("0,375" Null)
-        ("0,376" Null)
-        ("0,377" Null)))
-
-(RPAQQ PALATINOTOMCCS
-       (("0,32" "361,353")
-        ("0,34" "361,260")
-        ("0,35" "361,277")
-        ("0,36" "361,304")
-        ("0,37" "361,153")
-        ("0,136" "0,255")
-        ("0,137" "0,254")
-        (NIL "0,240")
-        ("0,200" "361,047")
-        ("0,201" "361,124")
-        ("0,202" "361,043")
-        ("0,203" "361,077")
-        ("0,204" "361,114")
-        ("0,205" "361,120")
-        ("0,206" "361,121")
-        ("0,207" "361,117")
-        ("0,210" "361,122")
-        ("0,211" "361,134")
-        ("0,212" "361,140")
-        ("0,213" "361,141")
-        ("0,214" "361,145")
-        ("0,215" "361,137")
-        ("0,216" "361,155")
-        ("0,217" "361,160")
-        ("0,220" "361,142")
-        ("0,221" "361,241")
-        ("0,222" "361,243")
-        ("0,223" "361,276")
-        ("0,224" "361,250")
-        ("0,225" "361,320")
-        ("0,226" "361,321")
-        ("0,227" "361,322")
-        ("0,230" "361,322")
-        ("0,231" "361,334")
-        ("0,232" "361,244")
-        ("0,233" "361,341")
-        ("0,234" "361,261")
-        ("0,235" "361,337")
-        ("0,236" "361,262")
-        ("0,237" "361,255")
-        ("0,240" "361,247")
-        ("0,244" "0,057")
-                                                             (* ; "Slash, but should be fraction")
-        ("0,246" "357,243")
-        ("0,250" "0,244")
-        ("0,254" "357,052")
-        ("0,255" "357,053")
-        ("0,256" "360,004")
-        ("0,257" "360,005")
-        ("0,261" EMDASH)
-        ("0,262" "357,060")
-        ("0,263" "357,061")
-        ("0,267" "357,146")
-        ("0,270" "43,262")
-        ("0,271" "357,050")
-        ("0,274" "41,104")
-        ("0,275" "357,101")
-        ("0,311" "357,153")
-        ("0,314" "361,314")
-        ("0,321" "375,261")
-        ("0,324" "361,324")
-        ("0,325" "375,362")
-        ("0,326" "375,363")
-        ("0,327" "0,274")
-        ("0,330" "0,275")
-        ("0,331" "0,264")
-        ("0,332" "0,270")
-        ("0,333" "357,152")
-        ("0,334" "361,265")
-        ("0,335" "0,261")
-        ("0,336" "361,042")
-        ("0,337" "357,044")
-        ("0,340" "361,340")
-        ("0,344" "361,041")
-        ("0,345" "361,345")
-        ("0,346" "361,050")
-        ("0,347" "361,044")
-        ("0,355" "361,355")
-        ("0,356" "361,055")
-        ("0,357" "361,061")
-        ("0,360" "361,360")
-        ("0,362" "361,062")
-        ("0,364" "361,065")
-        ("0,366" "361,060")
-        ("0,367" "361,277")
-        ("0,375" "361,100")
-        ("0,376" "361,104")))
-(DEFINEQ
-
-(MCCSCODEMAPARRAY
-  [LAMBDA (MAP INVERT)                                       (* ; "Edited  5-Feb-2026 11:02 by rmk")
-                                                             (* ; "Edited  2-Feb-2026 23:11 by rmk")
-                                                             (* ; "Edited  6-Sep-2025 18:26 by rmk")
-                                                             (* ; "Edited 31-Aug-2025 16:15 by rmk")
-                                                             (* ; "Edited  7-Aug-2025 08:55 by rmk")
-                                                             (* ; "Edited  2-Jun-2025 11:45 by rmk")
-                                                             (* ; "Edited  1-Jun-2025 07:26 by rmk")
-                                                             (* ; "Edited 24-May-2025 12:22 by rmk")
-                                                             (* ; "Edited 21-Dec-2024 18:57 by rmk")
-
-    (* ;; "Atom cases for loadup")
-
-    (SELECTQ MAP
-        (XCCS (SETQ MAP (APPEND MTOXCODEMAP ALTOTEXT2MCCS)))
-        (MCCS (SETQ MAP ALTOTEXT2MCCS))
-        NIL)
-    (LET ((ARRAY (ARRAY (ADD1 \MAXTHINCHAR)
-                        'WORD 0 0))
-          HARRAY)
-         (for I from 0 to \MAXTHINCHAR do (SETA ARRAY I I))  (* ; "Default")
-         [for PAIR FROMCODE in MAP when (LISTP PAIR) unless (EQ '* (CAR PAIR))
-            when (SETQ FROMCODE (OR (CHARCODEP (CAR PAIR))
-                                    (CHARCODE.DECODE (CAR PAIR)
-                                           T))) do (SETA ARRAY FROMCODE (OR (CHARCODEP (CADR PAIR))
-                                                                            (CHARCODE.DECODE
-                                                                             (CADR PAIR]
-         (CL:WHEN INVERT
-             (SETQ HARRAY (HASHARRAY 20))
-             (for I from 0 to \MAXTHINCHAR do (PUTHASH I I HARRAY))
-             (for PAIR FROMCODE in MAP when (LISTP PAIR) unless (EQ '* (CAR PAIR))
-                do (PUTHASH (OR (CHARCODEP (CADR PAIR))
-                                (CHARCODE.DECODE (CADR PAIR)))
-                          (OR (CHARCODEP (CAR PAIR))
-                              (CHARCODE.DECODE (CAR PAIR)))
-                          HARRAY)))
-         (CL:IF HARRAY
-             (LIST ARRAY HARRAY)
-             ARRAY)])
-)
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS ALTOTOMCCSARRAY SYMBOLTOMCCSARRAY HIPPOTOMCCSARRAY CYRILLICTOMCCSARRAY MATHTOMCCSARRAY 
-       SIGMATOMCCSARRAY PALATINOTOMCCSARRAY)
-)
-
-(RPAQ? ALTOTOMCCSARRAY (MCCSCODEMAPARRAY 'MCCS))
-
-(RPAQ? SYMBOLTOMCCSARRAY (MCCSCODEMAPARRAY SYMBOLTOMCCS))
-
-(RPAQ? HIPPOTOMCCSARRAY (MCCSCODEMAPARRAY HIPPOTOMCCS))
-
-(RPAQ? CYRILLICTOMCCSARRAY (MCCSCODEMAPARRAY CYRILLICTOMCCS))
-
-(RPAQ? MATHTOMCCSARRAY (MCCSCODEMAPARRAY MATHTOMCCS))
-
-(RPAQ? SIGMATOMCCSARRAY (MCCSCODEMAPARRAY SIGMATOMCCS))
-
-(RPAQ? PALATINOTOMCCSARRAY (MCCSCODEMAPARRAY PALATINOTOMCCS))
-(DEFINEQ
-
-(MCCSMAPFN
-  [LAMBDA (FROMENCODING)                                     (* ; "Edited  5-Oct-2025 19:56 by rmk")
-                                                             (* ; "Edited  6-Sep-2025 12:40 by rmk")
-                                                             (* ; "Edited  4-Sep-2025 08:06 by rmk")
-                                                             (* ; "Edited 24-May-2025 10:55 by rmk")
-
-    (* ;; "Returns the function that maps a FROMENCODING code to the corresponding MCCS code")
-
-    (CL:WHEN (LISTP FROMENCODING)
-
-        (* ;; "Assume it's a FONTSPEC")
-
-        (SETQ FROMENCODING (fetch (FONTSPEC FSFAMILY) of FROMENCODING)))
-    (if (MEMB FROMENCODING NSFONTFAMILIES)
-        then (SETQ FROMENCODING 'XCCS$)
-      elseif (MEMB FROMENCODING ALTOFONTFAMILIES)
-        then (SETQ FROMENCODING 'ALTOTEXT))
-    (SELECTQ FROMENCODING
-        (XCCS$ (FUNCTION X$TOMCODE))
-        (ALTOTEXT (FUNCTION ATOMCODE))
-        (SYMBOL (FUNCTION SYMBOLTOMCODE))
-        (SIGMA (FUNCTION SIGMATOMCODE))
-        (MATH (FUNCTION MATHTOMCODE))
-        (HIPPO (FUNCTION HIPPOTOMCODE))
-        (CYRILLIC (FUNCTION CYRILLICTOMCODE))
-        (XCCS (FUNCTION XTOMCODE))
-        (GACHA (FUNCTION GACHATOMCODE))
-        (PALATINO (FUNCTION PALATINOTOMCODE))
-        (MCCS NIL)
-        NIL])
-
-(MCCSMAPPAIRS
-  [LAMBDA (FROMENCODING NONIDENTITY)                         (* ; "Edited 26-Feb-2026 12:56 by rmk")
-                                                             (* ; "Edited  7-Oct-2025 14:47 by rmk")
-                                                             (* ; "Edited  6-Oct-2025 09:47 by rmk")
-                                                             (* ; "Edited 20-Sep-2025 09:45 by rmk")
-                                                             (* ; "Edited  6-Sep-2025 16:43 by rmk")
-                                                             (* ; "Edited 31-Aug-2025 16:16 by rmk")
-
-    (* ;; "Returns the pairs for MOVEFONTCHARS to use to move charset-0 glyphs into their MCCS positions.  For example, the Leftarrow and Lowline glyphs switch positions in an XCCS$ font.  Returns NIL (= nothing to do) if there is no function.")
-
-    (LET (PAIRS KEEPCS0)
-         [SETQ PAIRS (SELECTQ FROMENCODING
-                         (GACHA                              (* ; "ctrl and upper are slugged")
-                                [APPEND (XCCSUNDEFINEDPAIRS)
-                                       '(((Uparrow TERMINAL)
-                                          Circumflex)
-                                         (↑X Lowline])
-                         (ALTOTEXT (APPEND (XCCSUNDEFINEDPAIRS)
-                                          ALTOTEXT2MCCS))
-                         (XCCS$ '((Uparrow Circumflex)
-                                  (Leftarrow Lowline)
-                                  (Lowline Leftarrow)
-                                  (Circumflex Uparrow)))
-                         (UNICODE *UNICODETOMCCS*)
-                         (PALATINO (APPEND (XCCS.CS0.UNDEFINED)
-                                          PALATINOTOMCCS))
-                         (PROGN (SETQ KEEPCS0 T)
-                                (for C M FN from 0 to \MAXTHINCHAR first (CL:UNLESS (SETQ FN
-                                                                                     (MCCSMAPFN
-                                                                                      FROMENCODING))
-                                                                                (RETURN))
-                                   when (SETQ M (APPLY* FN C NONIDENTITY))
-                                   collect (LIST C M]
-         (CL:WHEN (LISTP PAIRS)
-
-             (* ;; "Weed out interspersed comments, convert to charcodes")
-
-             [SETQ PAIRS (for P in PAIRS when (LISTP P) unless (EQ '* (CAR P))
-                            collect (LIST (if (LISTP (CAR P))
-                                              then 
-                                                   (* ;; 
-                                    "Allows for the (Uparrow TERMINAL) case above, for MOVEFONTCHARS")
-
-                                                   (CONS (CL:IF (CHARCODEP (CAAR P))
-                                                             (CAAR P)
-                                                             (CHARCODE.DECODE (CAAR P)))
-                                                         (CDAR P))
-                                            elseif (CHARCODEP (CAR P))
-                                              then (CAR P)
-                                            else (CHARCODE.DECODE (CAR P)))
-                                          (CL:IF (CHARCODEP (CADR P))
-                                              (CADR P)
-                                              (CHARCODE.DECODE (CADR P)))]
-
-             (* ;; "Any character that is moved gets replaced by a slug.  It may then be coerced from another font.  But families like SYMBOL, HIPPO etc. want to preserve CS0 even if they copy their glyphs also to somewhere else.")
-
-             [SETQ PAIRS (APPEND PAIRS (for P in PAIRS when (CAR P)
-                                          unless [OR (AND KEEPCS0 (ILEQ (CAR P)
-                                                                        \MAXTHINCHAR))
-                                                     (AND (LISTP (CAR P))
-                                                          (LITATOM (CADAR P)))
-                                                     (thereis X in PAIRS
-                                                        suchthat (EQ (CADR X)
-                                                                     (CAR P]
-                                          collect (LIST NIL (CAR P])
-         PAIRS])
-
-(XCCS.CS0.UNDEFINED
-  [LAMBDA NIL                                                (* ; "Edited  5-Oct-2025 22:44 by rmk")
-
-    (* ;; "Maps slugs to all undefined/reserved characters in XCCS")
-
-    (APPEND (for I from 0 to (SUB1 (CHARCODE SPACE)) collect (LIST NIL I))
-           (for I from (CHARCODE "0,#NULL") to (SUB1 (CHARCODE "0,#SPACE"))
-              collect (LIST NIL I))
-           (for I in (CHARCODE ("0,177" "0,246" "0,250" "0,300" "0,351" "0,326" "0,327" "0,330" 
-                                      "0,331" "0,332" "0,333" "0,377")) collect (LIST NIL I])
-
-(XCCSUNDEFINEDPAIRS
-  [LAMBDA NIL                                                (* ; "Edited  5-Oct-2025 22:39 by rmk")
-                                                             (* ; "Edited  2-Sep-2025 13:14 by rmk")
-    (APPEND (XCCS.CS0.UNDEFINED)
-           (for I from 128 to \MAXTHINCHAR collect (LIST NIL I])
-)
-
-
-
-(* ;; "Mappings into MCCS: needed for hardcopy and Tedit coercion, e.g. \TEDIT.MCCS.TRANSLATE")
-
-(DEFINEQ
-
-(GACHATOMCODE
-  [LAMBDA (GCODE)                                            (* ; "Edited  7-Sep-2025 22:38 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 23:23 by rmk")
-                                                             (* ; "Edited 30-Aug-2025 21:58 by rmk")
-
-    (* ;; "Gacha did not have a code for circumflex, so there is nothing to map")
-
-    (CL:IF (EQ GCODE (CHARCODE ↑X))
-        (CHARCODE Lowline)
-        GCODE)])
-
-(SYMBOLTOMCODE
-  [LAMBDA (SCODE)                                            (* ; "Edited  7-Sep-2025 22:39 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 10:21 by rmk")
-                                                             (* ; "Edited  7-Aug-2025 09:37 by rmk")
-                                                             (* ; "Edited  1-Jun-2025 07:02 by rmk")
-    (OR (CL:WHEN (ILEQ SCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT SYMBOLTOMCCSARRAY SCODE)))
-                 (CL:UNLESS (EQ MCODE SCODE)
-                        MCODE)))
-        SCODE])
-
-(SIGMATOMCODE
-  [LAMBDA (SCODE)                                            (* ; "Edited  7-Sep-2025 22:39 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 10:21 by rmk")
-                                                             (* ; "Edited  1-Jun-2025 07:02 by rmk")
-                                                             (* ; "Edited 24-May-2025 10:54 by rmk")
-    (OR (CL:WHEN (ILEQ SCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT SIGMATOMCCSARRAY SCODE)))
-                 (CL:UNLESS (EQ MCODE SCODE)
-                        MCODE)))
-        SCODE])
-
-(ATOMCODE
-  [LAMBDA (ACODE)                                            (* ; "Edited  7-Sep-2025 22:39 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 10:21 by rmk")
-                                                             (* ; "Edited 24-May-2025 09:41 by rmk")
-    (OR (CL:WHEN (ILEQ ACODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT ALTOTOMCCSARRAY ACODE)))
-                 (CL:UNLESS (EQ MCODE ACODE)
-                        MCODE)))
-        ACODE])
-
-(MATHTOMCODE
-  [LAMBDA (MATHCODE)                                         (* ; "Edited  7-Sep-2025 22:39 by rmk")
-                                                             (* ; "Edited  4-Sep-2025 08:18 by rmk")
-                                                             (* ; "Edited  1-Jun-2025 07:02 by rmk")
-                                                             (* ; "Edited 24-May-2025 10:58 by rmk")
-    (OR (CL:WHEN (ILEQ MATHCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT MATHTOMCCSARRAY MATHCODE)))
-                 (CL:UNLESS (EQ MCODE MATHCODE)
-                        MCODE)))
-        MATHCODE])
-
-(HIPPOTOMCODE
-  [LAMBDA (HCODE)                                            (* ; "Edited  7-Sep-2025 22:40 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 10:22 by rmk")
-                                                             (* ; "Edited 24-May-2025 09:40 by rmk")
-    (OR (CL:WHEN (ILEQ HCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT HIPPOTOMCCSARRAY HCODE)))
-                 (CL:UNLESS (EQ MCODE HCODE)
-                        MCODE)))
-        HCODE])
-
-(CYRILLICTOMCODE
-  [LAMBDA (CCODE)                                            (* ; "Edited  7-Sep-2025 22:40 by rmk")
-                                                             (* ; "Edited 24-May-2025 09:38 by rmk")
-    (OR (CL:WHEN (ILEQ CCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT CYRILLICTOMCCSARRAY CCODE)))
-                 (CL:UNLESS (EQ MCODE CCODE)
-                        MCODE)))
-        CCODE])
-
-(PALATINOTOMCODE
-  [LAMBDA (PCODE)                                            (* ; "Edited  5-Oct-2025 20:08 by rmk")
-                                                             (* ; "Edited  7-Sep-2025 22:39 by rmk")
-                                                             (* ; "Edited  3-Sep-2025 10:21 by rmk")
-                                                             (* ; "Edited  7-Aug-2025 09:37 by rmk")
-                                                             (* ; "Edited  1-Jun-2025 07:02 by rmk")
-    (OR (CL:WHEN (ILEQ PCODE \MAXTHINCHAR)
-            (LET ((MCODE (ELT PALATINOTOMCCSARRAY PCODE)))
-                 (CL:UNLESS (EQ MCODE PCODE)
-                        MCODE)))
-        PCODE])
-)
-(DEFINEQ
-
-(SYSTEM-EXTERNALFORMAT
-  [LAMBDA NIL                                                (* ; "Edited  6-Feb-2026 11:29 by rmk")
-                                                             (* ; "Edited 31-Jan-2026 18:51 by rmk")
-                                                             (* ; "Edited 10-Oct-2022 11:55 by lmm")
-                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")
-
-    (* ;; "Returns the name, sets the global.  For now, UTF-8 or through, could be something else.")
-
-    (fetch (EXTERNALFORMAT NAME) of (SETQ *SYSTEM-EXTERNALFORMAT*
-                                     (FIND-FORMAT (FOR X IN '("LC_CTYPE" "LC_ALL" "LANG")
-                                                     WHEN (STRPOS ".UTF-8" (UNIX-GETENV X))
-                                                     DO (RETURN :UTF-8) FINALLY (RETURN :THROUGH])
-
-(MTOSYSSTRING
-  [LAMBDA (MSTRING)                                          (* ; "Edited  6-Feb-2026 00:20 by rmk")
-    (MCCSTOFORMATBYTES *SYSTEM-EXTERNALFORMAT* (MKSTRING MSTRING])
-
-(SYSTOMSTRING
-  [LAMBDA (SYSTRING)                                         (* ; "Edited  5-Feb-2026 23:36 by rmk")
-
-    (* ;; "SYSSTRING is presumably shared with Unix, guarantee a copy on the way out")
-
-    (CONCAT (FORMATBYTESTOMCCS *SYSTEM-EXTERNALFORMAT* SYSTRING])
-)
-(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS *SYSTEM-EXTERNALFORMAT*)
-)
-
-(* "END EXPORTED DEFINITIONS")
-
-
-(RPAQ? *SYSTEM-EXTERNALFORMAT* :UTF-8)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3103 14674 (\MCCSINCCODE 3113 . 6201) (\MCCSPEEKCCODE 6203 . 9090) (\MCCSOUTCHAR 9092
- . 11191) (\MCCSBACKCCODE 11193 . 12737) (\MCCSFORMATBYTESTREAM 12739 . 13469) (\MCCSCHARSETFN 13471
- . 14672)) (14675 17126 (\CREATE.MCCS.EXTERNALFORMAT 14685 . 15555) (\CREATE.XCCS.EXTERNALFORMAT 15557
- . 17124)) (17127 18104 (\MCCS.24BITENCODING.ERROR 17137 . 18102)) (19480 22122 (MTOXCODE 19490 . 
-20287) (XTOMCODE 20289 . 20946) (XTOMSTRING 20948 . 21535) (MTOXSTRING 21537 . 22120)) (22123 23783 (
-MTOX$CODE 22133 . 22865) (X$TOMCODE 22867 . 23781)) (23784 24424 (KANJICHARSETP 23794 . 24050) (
-CHINESECHARSETP 24052 . 24422)) (45004 47493 (MCCSCODEMAPARRAY 45014 . 47491)) (48109 55125 (MCCSMAPFN
- 48119 . 49486) (MCCSMAPPAIRS 49488 . 54131) (XCCS.CS0.UNDEFINED 54133 . 54762) (XCCSUNDEFINEDPAIRS 
-54764 . 55123)) (55230 59984 (GACHATOMCODE 55240 . 55754) (SYMBOLTOMCODE 55756 . 56404) (SIGMATOMCODE 
-56406 . 57052) (ATOMCODE 57054 . 57586) (MATHTOMCODE 57588 . 58244) (HIPPOTOMCODE 58246 . 58783) (
-CYRILLICTOMCODE 58785 . 59219) (PALATINOTOMCODE 59221 . 59982)) (59985 61423 (SYSTEM-EXTERNALFORMAT 
-59995 . 60939) (MTOSYSSTRING 60941 . 61134) (SYSTOMSTRING 61136 . 61421)))))
+  (FILEMAP (NIL (1578 13149 (\MCCSINCCODE 1588 . 4676) (\MCCSPEEKCCODE 4678 . 7565) (\MCCSOUTCHAR 7567
+ . 9666) (\MCCSBACKCCODE 9668 . 11212) (\MCCSFORMATBYTESTREAM 11214 . 11944) (\MCCSCHARSETFN 11946 . 
+13147)) (13150 15601 (\CREATE.MCCS.EXTERNALFORMAT 13160 . 14030) (\CREATE.XCCS.EXTERNALFORMAT 14032 . 
+15599)) (15602 16579 (\MCCS.24BITENCODING.ERROR 15612 . 16577)) (17955 20597 (MTOXCODE 17965 . 18762) 
+(XTOMCODE 18764 . 19421) (XTOMSTRING 19423 . 20010) (MTOXSTRING 20012 . 20595)) (20598 22258 (
+MTOX$CODE 20608 . 21340) (X$TOMCODE 21342 . 22256)) (22259 23289 (KANJICHARSETP 22269 . 22720) (
+CHINESECHARSETP 22722 . 23287)))))
 STOP
diff --git a/sources/MCCS.LCOM b/sources/MCCS.LCOM
index 4b2d7afd..b3c6c0be 100644
Binary files a/sources/MCCS.LCOM and b/sources/MCCS.LCOM differ
