diff --git a/sources/FONT b/sources/FONT
index 127082ce..8c692df6 100644
--- a/sources/FONT
+++ b/sources/FONT
@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 7-Nov-2025 11:53:58" {WMEDLEY}<sources>FONT.;626 286841 
+(FILECREATED "11-Nov-2025 14:30:56" {WMEDLEY}<sources>FONT.;628 286775 
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS FONTCOMS)
-                  (FNS MAKEFONTFACE MAKEFONTSPEC FONTSAVAILABLE)
+                  (FNS \READCHARSET)
 
-      :PREVIOUS-DATE "20-Oct-2025 09:54:15" {WMEDLEY}<sources>FONT.;622)
+      :PREVIOUS-DATE " 9-Nov-2025 17:56:14" {WMEDLEY}<sources>FONT.;627)
 
 
 (PRETTYCOMPRINT FONTCOMS)
@@ -26,6 +26,7 @@
                    GETFONTCLASSCOMPONENT)
               (MACROS \GETFONTCLASSCOMPONENT \SETFONTCLASSCOMPONENT))
         (VARS NSFONTFAMILIES ALTOFONTFAMILIES)
+        (INITVARS MCCSFONTFAMILIES)
         (COMS 
               (* ;; "Creation: ")
 
@@ -506,6 +507,8 @@
 (RPAQQ ALTOFONTFAMILIES (TIMESROMAN TIMESROMAND HELVETICA HELVETICAD CLARITY BRAVOX TONTO CREAM 
                                OLDENGLISH))
 
+(RPAQ? MCCSFONTFAMILIES NIL)
+
 
 
 (* ;; "Creation: ")
@@ -822,7 +825,8 @@
                        (CLOSEF? STRM))))])
 
 (\READCHARSET
-  [LAMBDA (FONTSPEC CHARSET FONT)                            (* ; "Edited  2-Sep-2025 23:57 by rmk")
+  [LAMBDA (FONTSPEC CHARSET FONT)                            (* ; "Edited 11-Nov-2025 14:30 by rmk")
+                                                             (* ; "Edited  2-Sep-2025 23:57 by rmk")
                                                              (* ; "Edited 28-Aug-2025 23:17 by rmk")
                                                              (* ; "Edited 25-Aug-2025 12:03 by rmk")
                                                              (* ; "Edited 16-Aug-2025 18:00 by rmk")
@@ -856,17 +860,15 @@
                                     (* ;; "The file didn't know its own encoding")
 
                                     (SETQ FAMILY (fetch (FONTSPEC FSFAMILY) of FONTSPEC))
-                                    (CHARSETPROP CSINFO 'CSCHARENCODING (if (NEQ CHARSET 0)
-                                                                            then 'MCCS
-                                                                          elseif (MEMB FAMILY 
-                                                                                       NSFONTFAMILIES
-                                                                                       )
-                                                                            then 'XCCS$
-                                                                          elseif (MEMB FAMILY 
-                                                                                     ALTOFONTFAMILIES
-                                                                                       )
-                                                                            then 'ALTOTEXT
-                                                                          else FAMILY)))
+                                    (CHARSETPROP CSINFO 'CSCHARENCODING
+                                           (if (OR (NEQ CHARSET 0)
+                                                   (MEMB FAMILY MCCSFONTFAMILIES))
+                                               then 'MCCS
+                                             elseif (MEMB FAMILY NSFONTFAMILIES)
+                                               then 'XCCS$
+                                             elseif (MEMB FAMILY ALTOFONTFAMILIES)
+                                               then 'ALTOTEXT
+                                             else FAMILY)))
 
                                 (* ;; "Remember the file that this basic charset information came from, before any character coercions, for informational purposes.  Path and version won't be valid if sysout moves, or if PSEUDOFILENAME's aren't aligned.  Don't want files to be new atoms, for loadup.")
 
@@ -999,7 +1001,8 @@
 (DEFINEQ
 
 (COERCEFONTSPEC
-  [LAMBDA (FONTSPEC COERCIONS)                               (* ; "Edited  5-Oct-2025 09:41 by rmk")
+  [LAMBDA (FONTSPEC COERCIONS)                               (* ; "Edited  9-Nov-2025 17:54 by rmk")
+                                                             (* ; "Edited  5-Oct-2025 09:41 by rmk")
                                                              (* ; "Edited 28-Aug-2025 14:41 by rmk")
                                                              (* ; "Edited 25-Aug-2025 10:22 by rmk")
                                                              (* ; "Edited 17-Aug-2025 19:15 by rmk")
@@ -1013,11 +1016,14 @@
 
     (* ;; "Doesn't make sense to coerce the device, DEVICE and also CHARSET are just carried along.")
 
+    (CL:WHEN (LITATOM COERCIONS)
+        [SETQ COERCIONS (FONTDEVICEPROP FONTSPEC (OR COERCIONS 'FONTCOERCIONS])
+
     (* ;; "A NIL match component matches everything, and a NIL target component denotes the corresponding argument.")
 
     (for C MATCH TARGET MFAMILY MSIZE MFACE MROTATION TFAMILY TSIZE TFACE TROTATION COERCED FAMILY 
-         SIZE FACE ROTATION DEVICE in (OR COERCIONS (FONTDEVICEPROP FONTSPEC 'FONTCOERCIONS))
-       first (SPREADFONTSPEC FONTSPEC) eachtime (SETQ MATCH (MKLIST (CAR C)))
+         SIZE FACE ROTATION DEVICE in COERCIONS first (SPREADFONTSPEC FONTSPEC)
+       eachtime (SETQ MATCH (MKLIST (CAR C)))
        when [AND (COERCEFONTSPEC.MATCH (pop MATCH)
                         FAMILY)
                  (COERCEFONTSPEC.MATCH (pop MATCH)
@@ -4667,44 +4673,44 @@
 (ADDTOVAR LAMA FONTCOPY)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12233 21946 (CHARWIDTH 12243 . 13028) (CHARWIDTHY 13030 . 14547) (STRINGWIDTH 14549 . 
-15642) (\CHARWIDTH.DISPLAY 15644 . 16057) (\STRINGWIDTH.DISPLAY 16059 . 16483) (\STRINGWIDTH.GENERIC 
-16485 . 21944)) (21947 28467 (DEFAULTFONT 21957 . 23242) (FONTCLASS 23244 . 25406) (FONTCLASSUNPARSE 
-25408 . 26307) (FONTCLASSCOMPONENT 26309 . 26897) (SETFONTCLASSCOMPONENT 26899 . 27341) (
-GETFONTCLASSCOMPONENT 27343 . 28465)) (30146 54527 (FONTCREATE 30156 . 33401) (FONTCREATE1 33403 . 
-36018) (FONTCREATE.SLUGFD 36020 . 37502) (\FONT.CHECKARGS 37504 . 44094) (\FONT.CHECKARGS1 44096 . 
-48619) (\FONTCREATE1.NOFN 48621 . 48835) (FONTFILEP 48837 . 49725) (\READCHARSET 49727 . 54525)) (
-54528 61445 (\FONT.CHECKARGS 54538 . 61128) (\CHARSET.CHECK 61130 . 61443)) (61446 64529 (
-COERCEFONTSPEC 61456 . 64527)) (66599 67938 (MAKEFONTSPEC 66609 . 67936)) (67939 76116 (COMPLETE.FONT 
-67949 . 70472) (COMPLETEFONTP 70474 . 71097) (COMPLETE.CHARSET 71099 . 73784) (PRUNESLUGCSINFOS 73786
- . 74711) (MONOSPACEFONTP 74713 . 76114)) (76155 84076 (FONTASCENT 76165 . 76549) (FONTDESCENT 76551
- . 77036) (FONTHEIGHT 77038 . 77440) (FONTPROP 77442 . 83353) (\AVGCHARWIDTH 83355 . 84074)) (84733 
-85641 (FONTDEVICEPROP 84743 . 85639)) (85687 86541 (EDITCHAR 85697 . 86539)) (86587 98777 (
-GETCHARBITMAP 86597 . 87721) (PUTCHARBITMAP 87723 . 89881) (\GETCHARBITMAP.CSINFO 89883 . 91899) (
-\PUTCHARBITMAP.CSINFO 91901 . 98775)) (98778 119258 (MOVECHARBITMAP 98788 . 100682) (MOVEFONTCHARS 
-100684 . 104644) (\MOVEFONTCHAR 104646 . 109489) (\MOVEFONTCHARS.SOURCEDATA 109491 . 115596) (
-\MAKESLUGCHAR 115598 . 118133) (SLUGCHARP.DISPLAY 118135 . 119256)) (120191 140329 (FONTFILES 120201
- . 122034) (\FINDFONTFILE 122036 . 123753) (\FONTFILENAMES 123755 . 124750) (\FONTFILENAME 124752 . 
-128735) (\FONTFILENAME.OLD 128737 . 131686) (\FONTFILENAME.NEW 131688 . 133945) (FONTSPECFROMFILENAME 
-133947 . 138048) (\FONTINFOFROMFILENAME.OLD 138050 . 140327)) (140596 176399 (FONTCOPY 140606 . 145669
-) (FONTP 145671 . 145970) (FONTUNPARSE 145972 . 147691) (SETFONTDESCRIPTOR 147693 . 149157) (
-\STREAMCHARWIDTH 149159 . 153323) (\COERCECHARSET 153325 . 155920) (\BUILDSLUGCSINFO 155922 . 159545) 
-(\FONTSYMBOL 159547 . 160197) (\DEVICESYMBOL 160199 . 161068) (\FONTFACE 161070 . 168260) (
-\FONTFACE.COLOR 168262 . 175182) (SETFONTCHARENCODING 175184 . 176397)) (176400 197339 (FONTSAVAILABLE
- 176410 . 181653) (FONTEXISTS? 181655 . 185633) (\SEARCHFONTFILES 185635 . 188720) (FLUSHFONTSINCORE 
-188722 . 191895) (FINDFONTFILES 191897 . 195111) (SORTFONTSPECS 195113 . 197337)) (197340 200949 (
-MATCHFONTFACE 197350 . 198165) (MAKEFONTFACE 198167 . 199193) (FONTFACETOATOM 199195 . 200947)) (
-201327 201819 (\UNITWIDTHSVECTOR 201337 . 201817)) (216413 218480 (FONTDESCRIPTOR.DEFPRINT 216423 . 
-218002) (FONTCLASS.DEFPRINT 218004 . 218478)) (222309 225099 (\CREATEKERNELEMENT 222319 . 222677) (
-\FSETLEFTKERN 222679 . 223170) (\FGETLEFTKERN 223172 . 225097)) (225100 234736 (\CREATEFONT 225110 . 
-226549) (\CREATECHARSET 226551 . 230487) (\INSTALLCHARSETINFO 230489 . 233823) (
-\INSTALLCHARSETINFO.CHARENCODING 233825 . 234734)) (235058 236422 (\FONTRESETCHARWIDTHS 235068 . 
-236420)) (237052 247099 (\CREATEDISPLAYFONT 237062 . 238911) (\CREATECHARSET.DISPLAY 238913 . 244622) 
-(\FONTEXISTS?.DISPLAY 244624 . 247097)) (247100 261965 (STRIKEFONT.FILEP 247110 . 247998) (
-STRIKEFONT.GETCHARSET 248000 . 253592) (WRITESTRIKEFONTFILE 253594 . 258505) (STRIKECSINFO 258507 . 
-261963)) (261996 278313 (MAKEBOLD.CHARSET 262006 . 265655) (MAKEBOLD.CHAR 265657 . 267409) (
-MAKEITALIC.CHARSET 267411 . 271084) (MAKEITALIC.CHAR 271086 . 273432) (\SFMAKEBOLD 273434 . 275658) (
-\SFMAKEITALIC 275660 . 278311)) (278314 282463 (\SFMAKEROTATEDFONT 278324 . 279725) (\SFROTATECSINFO 
-279727 . 280364) (\SFROTATEFONTCHARACTERS 280366 . 280746) (\SFROTATECSINFOOFFSETS 280748 . 282461)) (
-282464 283845 (\SFMAKECOLOR 282474 . 283843)))))
+  (FILEMAP (NIL (12241 21954 (CHARWIDTH 12251 . 13036) (CHARWIDTHY 13038 . 14555) (STRINGWIDTH 14557 . 
+15650) (\CHARWIDTH.DISPLAY 15652 . 16065) (\STRINGWIDTH.DISPLAY 16067 . 16491) (\STRINGWIDTH.GENERIC 
+16493 . 21952)) (21955 28475 (DEFAULTFONT 21965 . 23250) (FONTCLASS 23252 . 25414) (FONTCLASSUNPARSE 
+25416 . 26315) (FONTCLASSCOMPONENT 26317 . 26905) (SETFONTCLASSCOMPONENT 26907 . 27349) (
+GETFONTCLASSCOMPONENT 27351 . 28473)) (30188 54284 (FONTCREATE 30198 . 33443) (FONTCREATE1 33445 . 
+36060) (FONTCREATE.SLUGFD 36062 . 37544) (\FONT.CHECKARGS 37546 . 44136) (\FONT.CHECKARGS1 44138 . 
+48661) (\FONTCREATE1.NOFN 48663 . 48877) (FONTFILEP 48879 . 49767) (\READCHARSET 49769 . 54282)) (
+54285 61202 (\FONT.CHECKARGS 54295 . 60885) (\CHARSET.CHECK 60887 . 61200)) (61203 64463 (
+COERCEFONTSPEC 61213 . 64461)) (66533 67872 (MAKEFONTSPEC 66543 . 67870)) (67873 76050 (COMPLETE.FONT 
+67883 . 70406) (COMPLETEFONTP 70408 . 71031) (COMPLETE.CHARSET 71033 . 73718) (PRUNESLUGCSINFOS 73720
+ . 74645) (MONOSPACEFONTP 74647 . 76048)) (76089 84010 (FONTASCENT 76099 . 76483) (FONTDESCENT 76485
+ . 76970) (FONTHEIGHT 76972 . 77374) (FONTPROP 77376 . 83287) (\AVGCHARWIDTH 83289 . 84008)) (84667 
+85575 (FONTDEVICEPROP 84677 . 85573)) (85621 86475 (EDITCHAR 85631 . 86473)) (86521 98711 (
+GETCHARBITMAP 86531 . 87655) (PUTCHARBITMAP 87657 . 89815) (\GETCHARBITMAP.CSINFO 89817 . 91833) (
+\PUTCHARBITMAP.CSINFO 91835 . 98709)) (98712 119192 (MOVECHARBITMAP 98722 . 100616) (MOVEFONTCHARS 
+100618 . 104578) (\MOVEFONTCHAR 104580 . 109423) (\MOVEFONTCHARS.SOURCEDATA 109425 . 115530) (
+\MAKESLUGCHAR 115532 . 118067) (SLUGCHARP.DISPLAY 118069 . 119190)) (120125 140263 (FONTFILES 120135
+ . 121968) (\FINDFONTFILE 121970 . 123687) (\FONTFILENAMES 123689 . 124684) (\FONTFILENAME 124686 . 
+128669) (\FONTFILENAME.OLD 128671 . 131620) (\FONTFILENAME.NEW 131622 . 133879) (FONTSPECFROMFILENAME 
+133881 . 137982) (\FONTINFOFROMFILENAME.OLD 137984 . 140261)) (140530 176333 (FONTCOPY 140540 . 145603
+) (FONTP 145605 . 145904) (FONTUNPARSE 145906 . 147625) (SETFONTDESCRIPTOR 147627 . 149091) (
+\STREAMCHARWIDTH 149093 . 153257) (\COERCECHARSET 153259 . 155854) (\BUILDSLUGCSINFO 155856 . 159479) 
+(\FONTSYMBOL 159481 . 160131) (\DEVICESYMBOL 160133 . 161002) (\FONTFACE 161004 . 168194) (
+\FONTFACE.COLOR 168196 . 175116) (SETFONTCHARENCODING 175118 . 176331)) (176334 197273 (FONTSAVAILABLE
+ 176344 . 181587) (FONTEXISTS? 181589 . 185567) (\SEARCHFONTFILES 185569 . 188654) (FLUSHFONTSINCORE 
+188656 . 191829) (FINDFONTFILES 191831 . 195045) (SORTFONTSPECS 195047 . 197271)) (197274 200883 (
+MATCHFONTFACE 197284 . 198099) (MAKEFONTFACE 198101 . 199127) (FONTFACETOATOM 199129 . 200881)) (
+201261 201753 (\UNITWIDTHSVECTOR 201271 . 201751)) (216347 218414 (FONTDESCRIPTOR.DEFPRINT 216357 . 
+217936) (FONTCLASS.DEFPRINT 217938 . 218412)) (222243 225033 (\CREATEKERNELEMENT 222253 . 222611) (
+\FSETLEFTKERN 222613 . 223104) (\FGETLEFTKERN 223106 . 225031)) (225034 234670 (\CREATEFONT 225044 . 
+226483) (\CREATECHARSET 226485 . 230421) (\INSTALLCHARSETINFO 230423 . 233757) (
+\INSTALLCHARSETINFO.CHARENCODING 233759 . 234668)) (234992 236356 (\FONTRESETCHARWIDTHS 235002 . 
+236354)) (236986 247033 (\CREATEDISPLAYFONT 236996 . 238845) (\CREATECHARSET.DISPLAY 238847 . 244556) 
+(\FONTEXISTS?.DISPLAY 244558 . 247031)) (247034 261899 (STRIKEFONT.FILEP 247044 . 247932) (
+STRIKEFONT.GETCHARSET 247934 . 253526) (WRITESTRIKEFONTFILE 253528 . 258439) (STRIKECSINFO 258441 . 
+261897)) (261930 278247 (MAKEBOLD.CHARSET 261940 . 265589) (MAKEBOLD.CHAR 265591 . 267343) (
+MAKEITALIC.CHARSET 267345 . 271018) (MAKEITALIC.CHAR 271020 . 273366) (\SFMAKEBOLD 273368 . 275592) (
+\SFMAKEITALIC 275594 . 278245)) (278248 282397 (\SFMAKEROTATEDFONT 278258 . 279659) (\SFROTATECSINFO 
+279661 . 280298) (\SFROTATEFONTCHARACTERS 280300 . 280680) (\SFROTATECSINFOOFFSETS 280682 . 282395)) (
+282398 283779 (\SFMAKECOLOR 282408 . 283777)))))
 STOP
diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM
index 04031c4f..e6d82b09 100644
Binary files a/sources/FONT.LCOM and b/sources/FONT.LCOM differ
