diff --git a/sources/FONT b/sources/FONT
index 7842e649..35f9f92e 100644
--- a/sources/FONT
+++ b/sources/FONT
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "20-Sep-2025 09:39:57" {WMEDLEY}<sources>FONT.;603 281160 
+(FILECREATED " 6-Oct-2025 17:57:39" {WMEDLEY}<sources>FONT.;613 284861 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS NSFONTFAMILIES ALTOFONTFAMILIES)
+      :CHANGES-TO (FNS \CREATECHARSET.DISPLAY \COERCECHARSET COERCEFONTSPEC)
+                  (VARS FONTCOMS NSFONTFAMILIES)
 
-      :PREVIOUS-DATE "10-Sep-2025 23:28:04" {WMEDLEY}<sources>FONT.;602)
+      :PREVIOUS-DATE "26-Sep-2025 10:10:37" {WMEDLEY}<sources>FONT.;608)
 
 
 (PRETTYCOMPRINT FONTCOMS)
@@ -132,6 +133,12 @@
                                            (PALATINO 12))
                                           ((PALATINO (<= * 8))
                                            (PALATINO 10))
+                                          ((TITAN (<= * 9)
+                                                  BOLD)
+                                           (MODERN 10))
+                                          ((TITAN (<= * 9)
+                                                  ITALIC)
+                                           (MODERN 10))
                                           ((TITAN (<= * 9))
                                            (TITAN 10))
                                           (LPT AMTEX]
@@ -146,6 +153,7 @@
                                        (SIGMA MODERN)
                                        (SYMBOL MODERN)
                                        (TITAN CLASSIC)
+                                       (PALATINO CLASSIC)
                                        (OPTIMA MODERN)
                                        (BOLDPS CLASSIC)
                                        (PCTERMINAL)
@@ -492,7 +500,7 @@
                                                     DEVICE NEWFONT))))
 )
 
-(RPAQQ NSFONTFAMILIES (CLASSIC MODERN TERMINAL OPTIMA TITAN BOLDPS PCTERMINAL PALATINO))
+(RPAQQ NSFONTFAMILIES (CLASSIC MODERN TERMINAL OPTIMA TITAN BOLDPS PCTERMINAL))
 
 (RPAQQ ALTOFONTFAMILIES (TIMESROMAN TIMESROMAND HELVETICA HELVETICAD CLARITY BRAVOX TONTO CREAM 
                                OLDENGLISH))
@@ -550,7 +558,8 @@
                          (GO RETRY])
 
 (FONTCREATE1
-  [LAMBDA (FONTSPEC CHARSET)                                 (* ; "Edited 30-Aug-2025 23:13 by rmk")
+  [LAMBDA (FONTSPEC CHARSET)                                 (* ; "Edited 25-Sep-2025 18:41 by rmk")
+                                                             (* ; "Edited 30-Aug-2025 23:13 by rmk")
                                                              (* ; "Edited 28-Aug-2025 14:32 by rmk")
                                                              (* ; "Edited 26-Aug-2025 23:45 by rmk")
                                                              (* ; "Edited 16-Aug-2025 18:55 by rmk")
@@ -571,13 +580,13 @@
     (DECLARE (GLOBALVARS \FONTSINCORE))
     (CL:UNLESS CHARSET (SETQ CHARSET \DEFAULTCHARSET))
     (LET (FONT)
-         (CL:WHEN (if (SETQ FONT (FETCHMULTI \FONTSINCORE FONTSPEC))
+         (CL:WHEN (if (SETQ FONT (FETCHMULTI \FONTSINCORE FONTSPEC T))
                     elseif (AND (FONTEXISTS? FONTSPEC)
                                 (SETQ FONT (\CREATEFONT FONTSPEC)))
                       then 
                            (* ;; "Storing stops internal charset recursions")
 
-                           (STOREMULTI \FONTSINCORE FONTSPEC FONT))
+                           (STOREMULTI \FONTSINCORE FONTSPEC FONT T))
 
              (* ;; "Even the cached font may not have had the requested charset.")
 
@@ -989,7 +998,8 @@
 (DEFINEQ
 
 (COERCEFONTSPEC
-  [LAMBDA (FONTSPEC COERCIONS)                               (* ; "Edited 28-Aug-2025 14:41 by rmk")
+  [LAMBDA (FONTSPEC COERCIONS)                               (* ; "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")
                                                              (* ; "Edited 16-Aug-2025 17:47 by rmk")
@@ -1011,7 +1021,8 @@
                         FAMILY)
                  (COERCEFONTSPEC.MATCH (pop MATCH)
                         SIZE)
-                 (COERCEFONTSPEC.MATCH (pop MATCH)
+                 (MATCHFONTFACE (\FONTFACE (OR (pop MATCH)
+                                               '*))
                         FACE)
                  (COERCEFONTSPEC.MATCH (CAR MATCH)
                         ROTATION)
@@ -1625,7 +1636,8 @@
     DESTFONT])
 
 (\MOVEFONTCHAR
-  [LAMBDA (SOURCEDATA DCODE DFONT)                           (* ; "Edited  4-Sep-2025 12:37 by rmk")
+  [LAMBDA (SOURCEDATA DCODE DFONT)                           (* ; "Edited 25-Sep-2025 21:25 by rmk")
+                                                             (* ; "Edited  4-Sep-2025 12:37 by rmk")
                                                              (* ; "Edited 31-Aug-2025 14:36 by rmk")
                                                              (* ; "Edited 28-Aug-2025 20:50 by rmk")
                                                              (* ; "Edited 26-Aug-2025 22:25 by rmk")
@@ -1645,9 +1657,9 @@
     (LET ((DCSINFO (\INSURECHARSETINFO DFONT (\CHARSET DCODE)))
           (DTHINCODE (\CHAR8CODE DCODE))
           DESCENT ASCENT TEMP)
-         (CL:WHEN [AND (FGETMULTI SOURCEDATA 'IMAGEWIDTHS)
-                       (NEQ (FGETMULTI SOURCEDATA 'WIDTHS)
-                            (FGETMULTI SOURCEDATA 'IMAGEWIDTHS))
+         (CL:WHEN [AND (GETMULTI SOURCEDATA 'IMAGEWIDTHS)
+                       (NEQ (GETMULTI SOURCEDATA 'WIDTHS)
+                            (GETMULTI SOURCEDATA 'IMAGEWIDTHS))
                        (OR (EQ (ffetch (CHARSETINFO WIDTHS) of DCSINFO)
                                (ffetch (CHARSETINFO IMAGEWIDTHS) of DCSINFO))
                            (NULL (ffetch (CHARSETINFO IMAGEWIDTHS) of DCSINFO]
@@ -1657,7 +1669,7 @@
              (replace (CHARSETINFO IMAGEWIDTHS) of DCSINFO with (\COPYARRAYBLOCK (ffetch (CHARSETINFO
                                                                                           WIDTHS)
                                                                                     of DCSINFO))))
-         [if (FGETMULTI SOURCEDATA 'SLUG)
+         [if (GETMULTI SOURCEDATA 'SLUG)
              then (\MAKESLUGCHAR DTHINCODE DCSINFO)
            else (CL:WHEN (fetch (CHARSETINFO CSSLUGP) of DCSINFO)
                                                              (* ; "No longer a slug csinfo")
@@ -1665,18 +1677,18 @@
                                          ))
                     (\SETCHARSETINFO DFONT (\CHARSET DCODE)
                            DCSINFO))
-                (CL:WHEN (SETQ TEMP (FGETMULTI SOURCEDATA 'BITMAP))
-                    (\PUTCHARBITMAP.CSINFO DTHINCODE DCSINFO TEMP (FGETMULTI SOURCEDATA 'DESCENT))
+                (CL:WHEN (SETQ TEMP (GETMULTI SOURCEDATA 'BITMAP))
+                    (\PUTCHARBITMAP.CSINFO DTHINCODE DCSINFO TEMP (GETMULTI SOURCEDATA 'DESCENT))
                     (UPDATEINFOELEMENT WIDTHS)
                     (UPDATEINFOELEMENT IMAGEWIDTHS)
                     (UPDATEINFOELEMENT YWIDTHS)
-                    (CL:WHEN (FGETMULTI SOURCEDATA 'LEFTKERN)
-                        (\FSETLEFTKERN DCSINFO DTHINCODE (FGETMULTI SOURCEDATA 'LEFTKERN)))
+                    (CL:WHEN (GETMULTI SOURCEDATA 'LEFTKERN)
+                        (\FSETLEFTKERN DCSINFO DTHINCODE (GETMULTI SOURCEDATA 'LEFTKERN)))
                     (replace (CHARSETINFO CSSLUGP) of DCSINFO with NIL)
                     (CHARSETPROP DCSINFO 'SOURCE (FONTPROP DFONT 'SPEC)))]
-         (SETQ DESCENT (IMAX (FGETMULTI SOURCEDATA 'DESCENT)
+         (SETQ DESCENT (IMAX (GETMULTI SOURCEDATA 'DESCENT)
                              (fetch (CHARSETINFO CHARSETDESCENT) of DCSINFO)))
-         (SETQ ASCENT (IMAX (FGETMULTI SOURCEDATA 'ASCENT)
+         (SETQ ASCENT (IMAX (GETMULTI SOURCEDATA 'ASCENT)
                             (fetch (CHARSETINFO CHARSETASCENT) of DCSINFO)))
          (replace (CHARSETINFO CHARSETDESCENT) of DCSINFO with DESCENT)
          (replace (CHARSETINFO CHARSETASCENT) of DCSINFO with ASCENT)
@@ -1834,7 +1846,7 @@
 
 (PUTPROPS UPDATEINFOELEMENT MACRO [(FIELD)
                                    (LET [(DBLOCK (ffetch (CHARSETINFO FIELD) of DCSINFO))
-                                         (NEWVAL (FGETMULTI SOURCEDATA 'FIELD]
+                                         (NEWVAL (GETMULTI SOURCEDATA 'FIELD]
                                         (CL:WHEN NEWVAL
                                             (CL:UNLESS DBLOCK
                                                 (SETQ DBLOCK (\CREATECSINFOELEMENT))
@@ -2372,7 +2384,8 @@
            (SHOULDNT])
 
 (\COERCECHARSET
-  [LAMBDA (FONTSPEC CHARSET CODE COERCIONS)                  (* ; "Edited 31-Aug-2025 00:00 by rmk")
+  [LAMBDA (FONTSPEC CHARSET CODE COERCIONS FONT)             (* ; "Edited  6-Oct-2025 17:56 by rmk")
+                                                             (* ; "Edited 31-Aug-2025 00:00 by rmk")
                                                              (* ; "Edited 28-Aug-2025 23:07 by rmk")
                                                              (* ; "Edited 27-Aug-2025 17:08 by rmk")
                                                              (* ; "Edited 16-Aug-2025 17:48 by rmk")
@@ -2394,7 +2407,14 @@
     (for CFS CFONT CSINFO in (COERCEFONTSPEC FONTSPEC COERCIONS)
        when (AND (SETQ CFONT (FONTCREATE1 CFS CHARSET))
                  (SETQ CSINFO (\INSURECHARSETINFO CFONT CHARSET)))
-       unless (AND CODE (SLUGCHARP.DISPLAY CODE CFONT)) do (RETURN (LIST CFONT CSINFO])
+       unless (AND CODE (SLUGCHARP.DISPLAY CODE CFONT))
+       do (CL:WHEN FONT
+              (replace (FONTDESCRIPTOR FONTCHARENCODING) of FONT with (fetch (FONTDESCRIPTOR 
+                                                                                    FONTCHARENCODING)
+                                                                         of CFONT))
+              (replace (FONTDESCRIPTOR FONTTOMCCSFN) of FONT with (fetch (FONTDESCRIPTOR FONTTOMCCSFN
+                                                                                ) of CFONT)))
+          (RETURN (LIST CFONT CSINFO])
 
 (\BUILDSLUGCSINFO
   [LAMBDA (FONT SLUGWIDTH)                                   (* ; "Edited 17-Aug-2025 12:46 by rmk")
@@ -2749,7 +2769,8 @@
 (DEFINEQ
 
 (FONTSAVAILABLE
-  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHECKFILESTOO?)  (* ; "Edited 30-Aug-2025 13:55 by rmk")
+  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHECKFILESTOO?)  (* ; "Edited 25-Sep-2025 18:39 by rmk")
+                                                             (* ; "Edited 30-Aug-2025 13:55 by rmk")
                                                              (* ; "Edited 28-Aug-2025 14:43 by rmk")
                                                              (* ; "Edited 23-Aug-2025 10:51 by rmk")
                                                              (* ; "Edited 15-Aug-2025 12:18 by rmk")
@@ -2807,7 +2828,8 @@
                                                    (APPLY* FN FAMILY SIZE FACE ROTATION DEVICE))))])
 
 (FONTEXISTS?
-  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOCOERCIONS)     (* ; "Edited 28-Aug-2025 22:16 by rmk")
+  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE NOCOERCIONS)     (* ; "Edited 26-Sep-2025 10:10 by rmk")
+                                                             (* ; "Edited 28-Aug-2025 22:16 by rmk")
                                                              (* ; "Edited 23-Aug-2025 12:45 by rmk")
                                                              (* ; "Edited 16-Aug-2025 17:49 by rmk")
                                                              (* ; "Edited 12-Aug-2025 21:04 by rmk")
@@ -2827,9 +2849,9 @@
                   (* ;; 
                   "FAMILY was a font descriptor, unmodified by other args: record that it exists")
 
-                  (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC)
-           else (if (FETCHMULTI \FONTSINCORE FONTSPEC)
-                  elseif (SETQ VAL (FETCHMULTI \FONTEXISTS?-CACHE FONTSPEC))
+                  (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC T)
+           else (if (FETCHMULTI \FONTSINCORE FONTSPEC T)
+                  elseif (SETQ VAL (FETCHMULTI \FONTEXISTS?-CACHE FONTSPEC T))
                     then (CL:UNLESS (EQ VAL 'NO)
                                 VAL)
                   else                                       (* ; 
@@ -2848,7 +2870,7 @@
                                                  (FUNCTION TRUE))
                                             FONTSPEC)))
                        (if VAL
-                           then (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL)
+                           then (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL T)
                          elseif [AND (NOT NOCOERCIONS)
                                      (find FS in (COERCEFONTSPEC FONTSPEC (FONTDEVICEPROP
                                                                            DEVICE
@@ -2857,8 +2879,8 @@
                            then 
                                 (* ;; "It's coerceable...but not yet coerced.")
 
-                                (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL)
-                         else (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC 'NO)
+                                (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC VAL T)
+                         else (STOREMULTI \FONTEXISTS?-CACHE FONTSPEC 'NO T)
                               NIL])
 
 (\SEARCHFONTFILES
@@ -2905,19 +2927,21 @@
                         do (push FONTSFOUND THISFONT))) finally (RETURN (DREVERSE FONTSFOUND])
 
 (FLUSHFONTSINCORE
-  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE)                 (* ; "Edited  4-Sep-2025 10:14 by rmk")
+  [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE)                 (* ; "Edited 26-Sep-2025 10:04 by rmk")
+                                                             (* ; "Edited  4-Sep-2025 10:14 by rmk")
                                                              (* ; "Edited 28-Aug-2025 14:44 by rmk")
                                                              (* ; "Edited 18-Aug-2025 00:33 by rmk")
                                                              (* ; "Edited 12-Aug-2025 21:07 by rmk")
                                                              (* ; "Edited 21-Jul-2025 08:59 by rmk")
                                                              (* ; "Edited 21-Jun-2025 11:19 by rmk")
     (DECLARE (SPECVARS . T)
-           (GLOBALVARS \FONTSINCORE))
+           (GLOBALVARS \FONTSINCORE \FONTEXISTS?-CACHE))
     (SPREADFONTSPEC (\FONT.CHECKARGS FAMILY SIZE FACE ROTATION DEVICE))
-    (LET ((NFLUSHED 0))
-         (DECLARE (SPECVARS NFLUSHED))
+    (LET ((INCOREFLUSHED 0)
+          (EXISTSFLUSHED 0))
+         (DECLARE (SPECVARS INCOREFLUSHED EXISTSFLUSHED))
          [MAPMULTI \FONTSINCORE (FUNCTION (LAMBDA (FM S FC R DPAIR)
-                                            (CL:WHEN [AND (OR (EQ FAMILY FM)
+                                            (CL:WHEN (AND (OR (EQ FAMILY FM)
                                                               (EQ FAMILY '*))
                                                           (OR (EQ SIZE S)
                                                               (EQ SIZE '*))
@@ -2925,10 +2949,24 @@
                                                           (OR (EQ ROTATION R)
                                                               (EQ ROTATION '*))
                                                           (OR (EQ DEVICE (CAR DPAIR))
-                                                              (EQ DEVICE '*]
-                                                (ADD NFLUSHED 1)
+                                                              (EQ DEVICE '*))
+                                                          (CDR DPAIR))
+                                                (ADD INCOREFLUSHED 1)
                                                 (RPLACD DPAIR))]
-         (LIST NFLUSHED 'flushed])
+         [MAPMULTI \FONTEXISTS?-CACHE (FUNCTION (LAMBDA (FM S FC R DPAIR)
+                                                  (CL:WHEN (AND (OR (EQ FAMILY FM)
+                                                                    (EQ FAMILY '*))
+                                                                (OR (EQ SIZE S)
+                                                                    (EQ SIZE '*))
+                                                                (MATCHFONTFACE FACE FC)
+                                                                (OR (EQ ROTATION R)
+                                                                    (EQ ROTATION '*))
+                                                                (OR (EQ DEVICE (CAR DPAIR))
+                                                                    (EQ DEVICE '*))
+                                                                (CDR DPAIR))
+                                                      (ADD EXISTSFLUSHED 1)
+                                                      (RPLACD DPAIR))]
+         (LIST INCOREFLUSHED EXISTSFLUSHED])
 
 (FINDFONTFILES
   [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE DIRLST EXTLST)   (* ; "Edited 28-Aug-2025 14:45 by rmk")
@@ -3549,7 +3587,8 @@
           INDEX KERNVALUE])
 
 (\FGETLEFTKERN
-  [LAMBDA (FONT PREVCHARCODE CHARCODE)                       (* ; "Edited 30-Aug-2025 23:29 by rmk")
+  [LAMBDA (FONT PREVCHARCODE CHARCODE)                       (* ; "Edited 25-Sep-2025 21:25 by rmk")
+                                                             (* ; "Edited 30-Aug-2025 23:29 by rmk")
                                                              (* ; "Edited  8-Jul-2025 22:15 by rmk")
                                                              (* ; "Edited 22-May-2025 09:53 by rmk")
                                                              (* ; "Edited 18-May-2025 21:30 by rmk")
@@ -3568,14 +3607,15 @@
                                                                                            )))
                           (\CHAR8CODE PREVCHARCODE]
          (OR (FIXP KERN)
-             (FGETMULTI (LISTP KERN)
+             (GETMULTI (LISTP KERN)
                     CHARCODE)
              0])
 )
 (DEFINEQ
 
 (\CREATEFONT
-  [LAMBDA (FONTSPEC)                                         (* ; "Edited 28-Aug-2025 14:30 by rmk")
+  [LAMBDA (FONTSPEC)                                         (* ; "Edited 25-Sep-2025 21:24 by rmk")
+                                                             (* ; "Edited 28-Aug-2025 14:30 by rmk")
                                                              (* ; "Edited 18-Aug-2025 00:17 by rmk")
                                                              (* ; "Edited 16-Aug-2025 20:52 by rmk")
                                                              (* ; "Edited 12-Aug-2025 23:36 by rmk")
@@ -3586,7 +3626,7 @@
 
     (* ;; "")
 
-    (LET [(FN (CAR (FGETMULTI IMAGESTREAMTYPES (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
+    (LET [(FN (CAR (GETMULTI IMAGESTREAMTYPES (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
                           'FONTCREATE]
          (CL:WHEN FN
              (if (EQ (NARGS FN)
@@ -3596,7 +3636,8 @@
                     (APPLY FN FONTSPEC)))])
 
 (\CREATECHARSET
-  [LAMBDA (CHARSET FONT)                                     (* ; "Edited  2-Sep-2025 22:59 by rmk")
+  [LAMBDA (CHARSET FONT)                                     (* ; "Edited 25-Sep-2025 21:24 by rmk")
+                                                             (* ; "Edited  2-Sep-2025 22:59 by rmk")
                                                              (* ; "Edited 31-Aug-2025 14:36 by rmk")
                                                              (* ; "Edited 28-Aug-2025 14:31 by rmk")
                                                              (* ; "Edited 27-Aug-2025 12:55 by rmk")
@@ -3624,9 +3665,9 @@
            (\ILLEGAL.ARG CHARSET))
     (LET [(CSINFO (if (fetch (FONTDESCRIPTOR FONTCOMPLETEP) of FONT)
                       then (\GETCHARSETINFO FONT CHARSET)
-                    else (APPLY* (OR (CAR (FGETMULTI IMAGESTREAMTYPES (fetch (FONTDESCRIPTOR 
-                                                                                    FONTDEVICE)
-                                                                         of FONT)
+                    else (APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES (fetch (FONTDESCRIPTOR 
+                                                                                   FONTDEVICE)
+                                                                        of FONT)
                                                  'CREATECHARSET))
                                      (FUNCTION \READCHARSET))
                                 (create FONTSPEC using (FONTPROP FONT 'DEVICESPEC))
@@ -3786,7 +3827,8 @@
            FONTDEVICESPEC _ (create FONTSPEC using FONTSPEC])
 
 (\CREATECHARSET.DISPLAY
-  [LAMBDA (FONTSPEC FONT CHARSET)                            (* ; "Edited  2-Sep-2025 23:42 by rmk")
+  [LAMBDA (FONTSPEC FONT CHARSET)                            (* ; "Edited  6-Oct-2025 17:56 by rmk")
+                                                             (* ; "Edited  2-Sep-2025 23:42 by rmk")
                                                              (* ; "Edited 30-Aug-2025 19:42 by rmk")
                                                              (* ; "Edited 28-Aug-2025 23:08 by rmk")
                                                              (* ; "Edited 26-Aug-2025 23:29 by rmk")
@@ -3821,7 +3863,7 @@
          "If no COERCIONS, skip that first \COERCECHARSET call--easier debugging of the other cases.")
 
          (SETQ CSINFO (if (AND (FONTDEVICEPROP 'DISPLAY 'FONTCOERCIONS)
-                               (CADR (\COERCECHARSET FONTSPEC CHARSET)))
+                               (CADR (\COERCECHARSET FONTSPEC CHARSET NIL 'FONTCOERCIONS FONT)))
                         elseif [SETQ CSINFO (OR (\READCHARSET FONTSPEC CHARSET FONT)
                                                 (CADR (\COERCECHARSET FONTSPEC CHARSET NIL
                                                              'CHARCOERCIONS]
@@ -4494,6 +4536,12 @@
           (PALATINO 12))
          ((PALATINO (<= * 8))
           (PALATINO 10))
+         ((TITAN (<= * 9)
+                 BOLD)
+          (MODERN 10))
+         ((TITAN (<= * 9)
+                 ITALIC)
+          (MODERN 10))
          ((TITAN (<= * 9))
           (TITAN 10))
          (LPT AMTEX)))
@@ -4510,6 +4558,7 @@
          (SIGMA MODERN)
          (SYMBOL MODERN)
          (TITAN CLASSIC)
+         (PALATINO CLASSIC)
          (OPTIMA MODERN)
          (BOLDPS CLASSIC)
          (PCTERMINAL)
@@ -4576,43 +4625,43 @@
 (ADDTOVAR LAMA FONTCOPY)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (11690 21403 (CHARWIDTH 11700 . 12485) (CHARWIDTHY 12487 . 14004) (STRINGWIDTH 14006 . 
-15099) (\CHARWIDTH.DISPLAY 15101 . 15514) (\STRINGWIDTH.DISPLAY 15516 . 15940) (\STRINGWIDTH.GENERIC 
-15942 . 21401)) (21404 27924 (DEFAULTFONT 21414 . 22699) (FONTCLASS 22701 . 24863) (FONTCLASSUNPARSE 
-24865 . 25764) (FONTCLASSCOMPONENT 25766 . 26354) (SETFONTCLASSCOMPONENT 26356 . 26798) (
-GETFONTCLASSCOMPONENT 26800 . 27922)) (29612 53880 (FONTCREATE 29622 . 32867) (FONTCREATE1 32869 . 
-35371) (FONTCREATE.SLUGFD 35373 . 36855) (\FONT.CHECKARGS 36857 . 43447) (\FONT.CHECKARGS1 43449 . 
-47972) (\FONTCREATE1.NOFN 47974 . 48188) (FONTFILEP 48190 . 49078) (\READCHARSET 49080 . 53878)) (
-53881 60798 (\FONT.CHECKARGS 53891 . 60481) (\CHARSET.CHECK 60483 . 60796)) (60799 63705 (
-COERCEFONTSPEC 60809 . 63703)) (65775 66565 (MAKEFONTSPEC 65785 . 66563)) (66566 73231 (COMPLETE.FONT 
-66576 . 68990) (COMPLETEFONTP 68992 . 69615) (COMPLETE.CHARSET 69617 . 72302) (PRUNESLUGCSINFOS 72304
- . 73229)) (73270 81191 (FONTASCENT 73280 . 73664) (FONTDESCENT 73666 . 74151) (FONTHEIGHT 74153 . 
-74555) (FONTPROP 74557 . 80468) (\AVGCHARWIDTH 80470 . 81189)) (81848 82756 (FONTDEVICEPROP 81858 . 
-82754)) (82802 83656 (EDITCHAR 82812 . 83654)) (83702 95892 (GETCHARBITMAP 83712 . 84836) (
-PUTCHARBITMAP 84838 . 86996) (\GETCHARBITMAP.CSINFO 86998 . 89014) (\PUTCHARBITMAP.CSINFO 89016 . 
-95890)) (95893 116274 (MOVECHARBITMAP 95903 . 97797) (MOVEFONTCHARS 97799 . 101759) (\MOVEFONTCHAR 
-101761 . 106505) (\MOVEFONTCHARS.SOURCEDATA 106507 . 112612) (\MAKESLUGCHAR 112614 . 115149) (
-SLUGCHARP.DISPLAY 115151 . 116272)) (117208 137225 (FONTFILES 117218 . 119051) (\FINDFONTFILE 119053
- . 120770) (\FONTFILENAMES 120772 . 121646) (\FONTFILENAME 121648 . 125631) (\FONTFILENAME.OLD 125633
- . 128582) (\FONTFILENAME.NEW 128584 . 130841) (FONTSPECFROMFILENAME 130843 . 134944) (
-\FONTINFOFROMFILENAME.OLD 134946 . 137223)) (137492 172639 (FONTCOPY 137502 . 142565) (FONTP 142567 . 
-142866) (FONTUNPARSE 142868 . 144587) (SETFONTDESCRIPTOR 144589 . 146053) (\STREAMCHARWIDTH 146055 . 
-150219) (\COERCECHARSET 150221 . 152160) (\BUILDSLUGCSINFO 152162 . 155785) (\FONTSYMBOL 155787 . 
-156437) (\DEVICESYMBOL 156439 . 157308) (\FONTFACE 157310 . 164500) (\FONTFACE.COLOR 164502 . 171422) 
-(SETFONTCHARENCODING 171424 . 172637)) (172640 191625 (FONTSAVAILABLE 172650 . 177396) (FONTEXISTS? 
-177398 . 181255) (\SEARCHFONTFILES 181257 . 184342) (FLUSHFONTSINCORE 184344 . 186181) (FINDFONTFILES 
-186183 . 189397) (SORTFONTSPECS 189399 . 191623)) (191626 195049 (MATCHFONTFACE 191636 . 192451) (
-MAKEFONTFACE 192453 . 193293) (FONTFACETOATOM 193295 . 195047)) (195277 195769 (\UNITWIDTHSVECTOR 
-195287 . 195767)) (211369 213436 (FONTDESCRIPTOR.DEFPRINT 211379 . 212958) (FONTCLASS.DEFPRINT 212960
- . 213434)) (217265 219947 (\CREATEKERNELEMENT 217275 . 217633) (\FSETLEFTKERN 217635 . 218126) (
-\FGETLEFTKERN 218128 . 219945)) (219948 229370 (\CREATEFONT 219958 . 221289) (\CREATECHARSET 221291 . 
-225121) (\INSTALLCHARSETINFO 225123 . 228457) (\INSTALLCHARSETINFO.CHARENCODING 228459 . 229368)) (
-229692 231056 (\FONTRESETCHARWIDTHS 229702 . 231054)) (231686 241600 (\CREATEDISPLAYFONT 231696 . 
-233545) (\CREATECHARSET.DISPLAY 233547 . 239123) (\FONTEXISTS?.DISPLAY 239125 . 241598)) (241601 
-256466 (STRIKEFONT.FILEP 241611 . 242499) (STRIKEFONT.GETCHARSET 242501 . 248093) (WRITESTRIKEFONTFILE
- 248095 . 253006) (STRIKECSINFO 253008 . 256464)) (256497 272814 (MAKEBOLD.CHARSET 256507 . 260156) (
-MAKEBOLD.CHAR 260158 . 261910) (MAKEITALIC.CHARSET 261912 . 265585) (MAKEITALIC.CHAR 265587 . 267933) 
-(\SFMAKEBOLD 267935 . 270159) (\SFMAKEITALIC 270161 . 272812)) (272815 276964 (\SFMAKEROTATEDFONT 
-272825 . 274226) (\SFROTATECSINFO 274228 . 274865) (\SFROTATEFONTCHARACTERS 274867 . 275247) (
-\SFROTATECSINFOOFFSETS 275249 . 276962)) (276965 278346 (\SFMAKECOLOR 276975 . 278344)))))
+  (FILEMAP (NIL (12161 21874 (CHARWIDTH 12171 . 12956) (CHARWIDTHY 12958 . 14475) (STRINGWIDTH 14477 . 
+15570) (\CHARWIDTH.DISPLAY 15572 . 15985) (\STRINGWIDTH.DISPLAY 15987 . 16411) (\STRINGWIDTH.GENERIC 
+16413 . 21872)) (21875 28395 (DEFAULTFONT 21885 . 23170) (FONTCLASS 23172 . 25334) (FONTCLASSUNPARSE 
+25336 . 26235) (FONTCLASSCOMPONENT 26237 . 26825) (SETFONTCLASSCOMPONENT 26827 . 27269) (
+GETFONTCLASSCOMPONENT 27271 . 28393)) (30074 54455 (FONTCREATE 30084 . 33329) (FONTCREATE1 33331 . 
+35946) (FONTCREATE.SLUGFD 35948 . 37430) (\FONT.CHECKARGS 37432 . 44022) (\FONT.CHECKARGS1 44024 . 
+48547) (\FONTCREATE1.NOFN 48549 . 48763) (FONTFILEP 48765 . 49653) (\READCHARSET 49655 . 54453)) (
+54456 61373 (\FONT.CHECKARGS 54466 . 61056) (\CHARSET.CHECK 61058 . 61371)) (61374 64457 (
+COERCEFONTSPEC 61384 . 64455)) (66527 67317 (MAKEFONTSPEC 66537 . 67315)) (67318 73983 (COMPLETE.FONT 
+67328 . 69742) (COMPLETEFONTP 69744 . 70367) (COMPLETE.CHARSET 70369 . 73054) (PRUNESLUGCSINFOS 73056
+ . 73981)) (74022 81943 (FONTASCENT 74032 . 74416) (FONTDESCENT 74418 . 74903) (FONTHEIGHT 74905 . 
+75307) (FONTPROP 75309 . 81220) (\AVGCHARWIDTH 81222 . 81941)) (82600 83508 (FONTDEVICEPROP 82610 . 
+83506)) (83554 84408 (EDITCHAR 83564 . 84406)) (84454 96644 (GETCHARBITMAP 84464 . 85588) (
+PUTCHARBITMAP 85590 . 87748) (\GETCHARBITMAP.CSINFO 87750 . 89766) (\PUTCHARBITMAP.CSINFO 89768 . 
+96642)) (96645 117125 (MOVECHARBITMAP 96655 . 98549) (MOVEFONTCHARS 98551 . 102511) (\MOVEFONTCHAR 
+102513 . 107356) (\MOVEFONTCHARS.SOURCEDATA 107358 . 113463) (\MAKESLUGCHAR 113465 . 116000) (
+SLUGCHARP.DISPLAY 116002 . 117123)) (118058 138075 (FONTFILES 118068 . 119901) (\FINDFONTFILE 119903
+ . 121620) (\FONTFILENAMES 121622 . 122496) (\FONTFILENAME 122498 . 126481) (\FONTFILENAME.OLD 126483
+ . 129432) (\FONTFILENAME.NEW 129434 . 131691) (FONTSPECFROMFILENAME 131693 . 135794) (
+\FONTINFOFROMFILENAME.OLD 135796 . 138073)) (138342 174145 (FONTCOPY 138352 . 143415) (FONTP 143417 . 
+143716) (FONTUNPARSE 143718 . 145437) (SETFONTDESCRIPTOR 145439 . 146903) (\STREAMCHARWIDTH 146905 . 
+151069) (\COERCECHARSET 151071 . 153666) (\BUILDSLUGCSINFO 153668 . 157291) (\FONTSYMBOL 157293 . 
+157943) (\DEVICESYMBOL 157945 . 158814) (\FONTFACE 158816 . 166006) (\FONTFACE.COLOR 166008 . 172928) 
+(SETFONTCHARENCODING 172930 . 174143)) (174146 194697 (FONTSAVAILABLE 174156 . 179011) (FONTEXISTS? 
+179013 . 182991) (\SEARCHFONTFILES 182993 . 186078) (FLUSHFONTSINCORE 186080 . 189253) (FINDFONTFILES 
+189255 . 192469) (SORTFONTSPECS 192471 . 194695)) (194698 198121 (MATCHFONTFACE 194708 . 195523) (
+MAKEFONTFACE 195525 . 196365) (FONTFACETOATOM 196367 . 198119)) (198349 198841 (\UNITWIDTHSVECTOR 
+198359 . 198839)) (214441 216508 (FONTDESCRIPTOR.DEFPRINT 214451 . 216030) (FONTCLASS.DEFPRINT 216032
+ . 216506)) (220337 223127 (\CREATEKERNELEMENT 220347 . 220705) (\FSETLEFTKERN 220707 . 221198) (
+\FGETLEFTKERN 221200 . 223125)) (223128 232764 (\CREATEFONT 223138 . 224577) (\CREATECHARSET 224579 . 
+228515) (\INSTALLCHARSETINFO 228517 . 231851) (\INSTALLCHARSETINFO.CHARENCODING 231853 . 232762)) (
+233086 234450 (\FONTRESETCHARWIDTHS 233096 . 234448)) (235080 245127 (\CREATEDISPLAYFONT 235090 . 
+236939) (\CREATECHARSET.DISPLAY 236941 . 242650) (\FONTEXISTS?.DISPLAY 242652 . 245125)) (245128 
+259993 (STRIKEFONT.FILEP 245138 . 246026) (STRIKEFONT.GETCHARSET 246028 . 251620) (WRITESTRIKEFONTFILE
+ 251622 . 256533) (STRIKECSINFO 256535 . 259991)) (260024 276341 (MAKEBOLD.CHARSET 260034 . 263683) (
+MAKEBOLD.CHAR 263685 . 265437) (MAKEITALIC.CHARSET 265439 . 269112) (MAKEITALIC.CHAR 269114 . 271460) 
+(\SFMAKEBOLD 271462 . 273686) (\SFMAKEITALIC 273688 . 276339)) (276342 280491 (\SFMAKEROTATEDFONT 
+276352 . 277753) (\SFROTATECSINFO 277755 . 278392) (\SFROTATEFONTCHARACTERS 278394 . 278774) (
+\SFROTATECSINFOOFFSETS 278776 . 280489)) (280492 281873 (\SFMAKECOLOR 280502 . 281871)))))
 STOP
diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM
index e22513ac..278fb93e 100644
Binary files a/sources/FONT.LCOM and b/sources/FONT.LCOM differ
