diff --git a/sources/FONT b/sources/FONT
index 37ad1759..89c7010c 100644
--- a/sources/FONT
+++ b/sources/FONT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-(FILECREATED " 4-May-2026 12:39:02" {MEDLEY}<sources>FONT.;796 260358 
+(FILECREATED " 5-May-2026 09:56:41" {MEDLEY}<sources>FONT.;797 260815 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MAKEFONTSPEC)
+      :CHANGES-TO (FNS \CREATEDISPLAYFONT FONTSPEC.TO.FONTDESCRIPTOR)
 
-      :PREVIOUS-DATE "26-Apr-2026 10:58:52" {MEDLEY}<sources>FONT.;795)
+      :PREVIOUS-DATE " 4-May-2026 12:39:02" {MEDLEY}<sources>FONT.;796)
 
 
 (PRETTYCOMPRINT FONTCOMS)
@@ -964,7 +964,8 @@
            FSDEVICE ← (OR DEVICE (fetch (FONTSPEC FSDEVICE) of BASE])
 
 (FONTSPEC.TO.FONTDESCRIPTOR
-  [LAMBDA (FONTSPEC MAXCHARSET)                              (* ; "Edited 29-Mar-2026 10:29 by rmk")
+  [LAMBDA (FONTSPEC MAXCHARSET)                              (* ; "Edited  5-May-2026 09:55 by rmk")
+                                                             (* ; "Edited 29-Mar-2026 10:29 by rmk")
                                                              (* ; "Edited 28-Mar-2026 09:29 by rmk")
                                                              (* ; "Edited 20-Mar-2026 23:57 by rmk")
                                                              (* ; "Edited 19-Mar-2026 10:24 by rmk")
@@ -976,13 +977,13 @@
     (LET ((FONT (create FONTDESCRIPTOR
                        FONTFAMILY ← (fetch (FONTSPEC FSFAMILY) of FONTSPEC)
                        FONTSIZE ← (fetch (FONTSPEC FSSIZE) of FONTSPEC)
-                       FONTFACE ← (fetch (FONTSPEC FSFACE) of FONTSPEC)
+                       FONTFACE ← (COPY (fetch (FONTSPEC FSFACE) of FONTSPEC))
                        ROTATION ← (fetch (FONTSPEC FSROTATION) of FONTSPEC)
                        FONTDEVICE ← (fetch (FONTSPEC FSDEVICE) of FONTSPEC)
                        \SFAscent ← 0
                        \SFDescent ← 0
                        \SFHeight ← 0
-                       FONTDEVICESPEC ← (create FONTSPEC using FONTSPEC)
+                       FONTDEVICESPEC ← (COPY (create FONTSPEC using FONTSPEC))
                        MAXCHARSET ← MAXCHARSET
                        FONTCHARSETVECTOR ← NIL)))
          (replace (FONTDESCRIPTOR FONTCHARSETVECTOR) of FONT with (\CREATEFONTCHARSETVECTOR FONT))
@@ -3771,7 +3772,8 @@
 (DEFINEQ
 
 (\CREATEDISPLAYFONT
-  [LAMBDA (FONTSPEC)                                         (* ; "Edited 15-Apr-2026 00:20 by rmk")
+  [LAMBDA (FONTSPEC)                                         (* ; "Edited  5-May-2026 09:54 by rmk")
+                                                             (* ; "Edited 15-Apr-2026 00:20 by rmk")
                                                              (* ; "Edited 11-Apr-2026 10:10 by rmk")
                                                              (* ; "Edited 29-Mar-2026 10:23 by rmk")
                                                              (* ; "Edited 16-Mar-2026 12:39 by rmk")
@@ -3788,10 +3790,15 @@
 
     (* ;; "Eventually, this should be removed from IMAGESTREAMTYPES, since it is the default.  Left here in case something else turns up.")
 
-    (* ;; "FONTEXISTS? has determined that there is at least one source file for this font, so the font exists in at least some character sets.")
+    (* ;; "FONTEXISTS? has determined that there is at least one source file for this font, so the font exists or can be faked in at least some character sets.")
 
-    (MEDLEYFONT.READ.FONT (CAR (FONTFILES FONTSPEC))
-           NIL T])
+    (LET [(FILE (CAR (FONTFILES FONTSPEC]
+         (if FILE
+             then (MEDLEYFONT.READ.FONT FILE NIL T)
+           else 
+                (* ;; "Set up for faking")
+
+                (FONTSPEC.TO.FONTDESCRIPTOR FONTSPEC])
 
 (\CREATECHARSET.DISPLAY
   [LAMBDA (FONTSPEC FONT CHARSET)                            (* ; "Edited 12-Apr-2026 18:52 by rmk")
@@ -4118,41 +4125,41 @@
 (ADDTOVAR LAMA FONTCOPY FONTDEVICEPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6605 16272 (CHARWIDTH 6615 . 7404) (CHARWIDTHY 7406 . 8923) (STRINGWIDTH 8925 . 9962) (
-\CHARWIDTH.DISPLAY 9964 . 10379) (\STRINGWIDTH.DISPLAY 10381 . 10809) (\STRINGWIDTH.GENERIC 10811 . 
-16270)) (16273 22905 (DEFAULTFONT 16283 . 17568) (FONTCLASS 17570 . 19842) (FONTCLASSUNPARSE 19844 . 
-20745) (FONTCLASSCOMPONENT 20747 . 21335) (SETFONTCLASSCOMPONENT 21337 . 21779) (GETFONTCLASSCOMPONENT
- 21781 . 22903)) (24353 44255 (FONTCREATE 24363 . 27608) (FONTCREATE1 27610 . 30269) (
-FONTCREATE.SLUGFD 30271 . 32835) (\FONT.CHECKARGS1 32837 . 37542) (\FONTCREATE1.NOFN 37544 . 37758) (
-FONTFILEP 37760 . 38648) (\READCHARSET 38650 . 43835) (FONTCHARSETS 43837 . 44253)) (44256 51332 (
-\FONT.CHECKARGS 44266 . 51015) (\CHARSET.CHECK 51017 . 51330)) (51333 57693 (COERCEFONTSPEC 51343 . 
-57004) (COERCEFONTSPEC.TARGETFACE 57006 . 57691)) (59888 63183 (MAKEFONTSPEC 59898 . 61551) (
-FONTSPEC.TO.FONTDESCRIPTOR 61553 . 63181)) (63184 72846 (COMPLETE.FONT 63194 . 65219) (COMPLETEFONTP 
-65221 . 65959) (COMPLETE.CHARSET 65961 . 70027) (PRUNESLUGCSINFOS 70029 . 71340) (MONOSPACEFONTP 71342
- . 72844)) (72885 82699 (FONTASCENT 72895 . 73279) (FONTDESCENT 73281 . 73766) (FONTHEIGHT 73768 . 
-74170) (FONTPROP 74172 . 81976) (\AVGCHARWIDTH 81978 . 82697)) (83447 85317 (FONTDEVICEPROP 83457 . 
-85315)) (85434 86288 (EDITCHAR 85444 . 86286)) (86334 98524 (GETCHARBITMAP 86344 . 87468) (
-PUTCHARBITMAP 87470 . 89628) (\GETCHARBITMAP.CSINFO 89630 . 91646) (\PUTCHARBITMAP.CSINFO 91648 . 
-98522)) (98525 120866 (MOVECHARBITMAP 98535 . 100429) (MOVEFONTCHARS 100431 . 105581) (\MOVEFONTCHAR 
-105583 . 110455) (\MOVEFONTCHARS.SOURCEDATA 110457 . 117212) (\MAKESLUGCHAR 117214 . 119749) (
-SLUGCHARP 119751 . 120864)) (121781 135035 (FONTFILES 121791 . 124830) (\FINDFONTFILE 124832 . 126809)
- (\FONTFILENAMES 126811 . 127371) (\FONTFILENAME 127373 . 130483) (FONTSPECFROMFILENAME 130485 . 
-135033)) (135036 171369 (FONTCOPY 135046 . 140129) (FONTP 140131 . 140430) (FONTUNPARSE 140432 . 
-142155) (SETFONTDESCRIPTOR 142157 . 143621) (\STREAMCHARWIDTH 143623 . 147634) (\COERCECHARSET 147636
- . 151025) (\BUILDSLUGCSINFO 151027 . 154720) (\FONTSYMBOL 154722 . 155376) (\DEVICESYMBOL 155378 . 
-156162) (\FONTFACE 156164 . 163368) (\FONTFACE.COLOR 163370 . 170152) (SETFONTCHARENCODING 170154 . 
-171367)) (171370 192228 (FONTSAVAILABLE 171380 . 176744) (FONTEXISTS? 176746 . 180554) (
-\SEARCHFONTFILES 180556 . 183770) (FLUSHFONTCACHE 183772 . 186303) (FINDFONTFILES 186305 . 189521) (
-SORTFONTSPECS 189523 . 192226)) (192229 197767 (MATCHFONTFACE 192239 . 193314) (MAKEFONTFACE 193316 . 
-194350) (FONTFACETOATOM 194352 . 196602) (FONTFACE.STARS 196604 . 197765)) (198398 198890 (
-\UNITWIDTHSVECTOR 198408 . 198888)) (215811 217878 (FONTDESCRIPTOR.DEFPRINT 215821 . 217400) (
-FONTCLASS.DEFPRINT 217402 . 217876)) (221800 224590 (\CREATEKERNELEMENT 221810 . 222168) (
-\FSETLEFTKERN 222170 . 222661) (\FGETLEFTKERN 222663 . 224588)) (224591 235745 (\CREATEFONT 224601 . 
-228209) (\CREATECHARSET 228211 . 231496) (\INSTALLCHARSETINFO 231498 . 234832) (
-\INSTALLCHARSETINFO.CHARENCODING 234834 . 235743)) (236067 237435 (\FONTRESETCHARWIDTHS 236077 . 
-237433)) (237958 245816 (\CREATEDISPLAYFONT 237968 . 239875) (\CREATECHARSET.DISPLAY 239877 . 243401) 
-(\FONTEXISTS?.DISPLAY 243403 . 245814)) (245817 254195 (FAKEFACE.CHARSET 245827 . 249889) (
-MAKEBOLD.CHAR 249891 . 251744) (MAKEITALIC.CHAR 251746 . 254193)) (254226 258481 (\SFROTATECSINFO 
-254236 . 256378) (\SFROTATEFONTCHARACTERS 256380 . 256764) (\SFROTATECSINFOOFFSETS 256766 . 258479)) (
-258482 259656 (\SFMAKECOLOR 258492 . 259654)))))
+  (FILEMAP (NIL (6638 16305 (CHARWIDTH 6648 . 7437) (CHARWIDTHY 7439 . 8956) (STRINGWIDTH 8958 . 9995) (
+\CHARWIDTH.DISPLAY 9997 . 10412) (\STRINGWIDTH.DISPLAY 10414 . 10842) (\STRINGWIDTH.GENERIC 10844 . 
+16303)) (16306 22938 (DEFAULTFONT 16316 . 17601) (FONTCLASS 17603 . 19875) (FONTCLASSUNPARSE 19877 . 
+20778) (FONTCLASSCOMPONENT 20780 . 21368) (SETFONTCLASSCOMPONENT 21370 . 21812) (GETFONTCLASSCOMPONENT
+ 21814 . 22936)) (24386 44288 (FONTCREATE 24396 . 27641) (FONTCREATE1 27643 . 30302) (
+FONTCREATE.SLUGFD 30304 . 32868) (\FONT.CHECKARGS1 32870 . 37575) (\FONTCREATE1.NOFN 37577 . 37791) (
+FONTFILEP 37793 . 38681) (\READCHARSET 38683 . 43868) (FONTCHARSETS 43870 . 44286)) (44289 51365 (
+\FONT.CHECKARGS 44299 . 51048) (\CHARSET.CHECK 51050 . 51363)) (51366 57726 (COERCEFONTSPEC 51376 . 
+57037) (COERCEFONTSPEC.TARGETFACE 57039 . 57724)) (59921 63339 (MAKEFONTSPEC 59931 . 61584) (
+FONTSPEC.TO.FONTDESCRIPTOR 61586 . 63337)) (63340 73002 (COMPLETE.FONT 63350 . 65375) (COMPLETEFONTP 
+65377 . 66115) (COMPLETE.CHARSET 66117 . 70183) (PRUNESLUGCSINFOS 70185 . 71496) (MONOSPACEFONTP 71498
+ . 73000)) (73041 82855 (FONTASCENT 73051 . 73435) (FONTDESCENT 73437 . 73922) (FONTHEIGHT 73924 . 
+74326) (FONTPROP 74328 . 82132) (\AVGCHARWIDTH 82134 . 82853)) (83603 85473 (FONTDEVICEPROP 83613 . 
+85471)) (85590 86444 (EDITCHAR 85600 . 86442)) (86490 98680 (GETCHARBITMAP 86500 . 87624) (
+PUTCHARBITMAP 87626 . 89784) (\GETCHARBITMAP.CSINFO 89786 . 91802) (\PUTCHARBITMAP.CSINFO 91804 . 
+98678)) (98681 121022 (MOVECHARBITMAP 98691 . 100585) (MOVEFONTCHARS 100587 . 105737) (\MOVEFONTCHAR 
+105739 . 110611) (\MOVEFONTCHARS.SOURCEDATA 110613 . 117368) (\MAKESLUGCHAR 117370 . 119905) (
+SLUGCHARP 119907 . 121020)) (121937 135191 (FONTFILES 121947 . 124986) (\FINDFONTFILE 124988 . 126965)
+ (\FONTFILENAMES 126967 . 127527) (\FONTFILENAME 127529 . 130639) (FONTSPECFROMFILENAME 130641 . 
+135189)) (135192 171525 (FONTCOPY 135202 . 140285) (FONTP 140287 . 140586) (FONTUNPARSE 140588 . 
+142311) (SETFONTDESCRIPTOR 142313 . 143777) (\STREAMCHARWIDTH 143779 . 147790) (\COERCECHARSET 147792
+ . 151181) (\BUILDSLUGCSINFO 151183 . 154876) (\FONTSYMBOL 154878 . 155532) (\DEVICESYMBOL 155534 . 
+156318) (\FONTFACE 156320 . 163524) (\FONTFACE.COLOR 163526 . 170308) (SETFONTCHARENCODING 170310 . 
+171523)) (171526 192384 (FONTSAVAILABLE 171536 . 176900) (FONTEXISTS? 176902 . 180710) (
+\SEARCHFONTFILES 180712 . 183926) (FLUSHFONTCACHE 183928 . 186459) (FINDFONTFILES 186461 . 189677) (
+SORTFONTSPECS 189679 . 192382)) (192385 197923 (MATCHFONTFACE 192395 . 193470) (MAKEFONTFACE 193472 . 
+194506) (FONTFACETOATOM 194508 . 196758) (FONTFACE.STARS 196760 . 197921)) (198554 199046 (
+\UNITWIDTHSVECTOR 198564 . 199044)) (215967 218034 (FONTDESCRIPTOR.DEFPRINT 215977 . 217556) (
+FONTCLASS.DEFPRINT 217558 . 218032)) (221956 224746 (\CREATEKERNELEMENT 221966 . 222324) (
+\FSETLEFTKERN 222326 . 222817) (\FGETLEFTKERN 222819 . 224744)) (224747 235901 (\CREATEFONT 224757 . 
+228365) (\CREATECHARSET 228367 . 231652) (\INSTALLCHARSETINFO 231654 . 234988) (
+\INSTALLCHARSETINFO.CHARENCODING 234990 . 235899)) (236223 237591 (\FONTRESETCHARWIDTHS 236233 . 
+237589)) (238114 246273 (\CREATEDISPLAYFONT 238124 . 240332) (\CREATECHARSET.DISPLAY 240334 . 243858) 
+(\FONTEXISTS?.DISPLAY 243860 . 246271)) (246274 254652 (FAKEFACE.CHARSET 246284 . 250346) (
+MAKEBOLD.CHAR 250348 . 252201) (MAKEITALIC.CHAR 252203 . 254650)) (254683 258938 (\SFROTATECSINFO 
+254693 . 256835) (\SFROTATEFONTCHARACTERS 256837 . 257221) (\SFROTATECSINFOOFFSETS 257223 . 258936)) (
+258939 260113 (\SFMAKECOLOR 258949 . 260111)))))
 STOP
diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM
index 2b557ecb..a050e71a 100644
Binary files a/sources/FONT.LCOM and b/sources/FONT.LCOM differ
diff --git a/sources/MEDLEYFONTFORMAT b/sources/MEDLEYFONTFORMAT
index 2a0b2336..fd2dbae2 100644
--- a/sources/MEDLEYFONTFORMAT
+++ b/sources/MEDLEYFONTFORMAT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED " 4-May-2026 14:58:55" {MEDLEY}<sources>MEDLEYFONTFORMAT.;316 66701  
+(FILECREATED " 5-May-2026 11:06:05" {MEDLEY}<sources>MEDLEYFONTFORMAT.;317 67145  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MEDLEYFONT.WRITE.CHARSET MEDLEYFONT.READ.CHARSET)
+      :CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.FILENAME)
 
-      :PREVIOUS-DATE " 4-May-2026 10:28:29" {MEDLEY}<sources>MEDLEYFONTFORMAT.;315)
+      :PREVIOUS-DATE " 4-May-2026 14:58:55" {MEDLEY}<sources>MEDLEYFONTFORMAT.;316)
 
 
 (PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
@@ -326,7 +326,8 @@
 (DEFINEQ
 
 (MEDLEYFONT.READ.FONT
-  [LAMBDA (FILE CHARSETS NOERROR DIRECTORY)                  (* ; "Edited 15-Apr-2026 00:50 by rmk")
+  [LAMBDA (FILE CHARSETS NOERROR DIRECTORY)                  (* ; "Edited  5-May-2026 11:05 by rmk")
+                                                             (* ; "Edited 15-Apr-2026 00:50 by rmk")
                                                              (* ; "Edited 12-Apr-2026 00:30 by rmk")
                                                              (* ; "Edited  6-Apr-2026 09:07 by rmk")
                                                              (* ; "Edited  4-Apr-2026 15:29 by rmk")
@@ -350,23 +351,27 @@
                  (SETQ CHARSETS (SORT (CHARSET.DECODE (MKLIST CHARSETS)
                                              NOERROR]
         (RESETLST
-            (PROG ((FILENAME (MEDLEYFONT.FILENAME FILE DIRECTORY))
-                   STREAM FONT CSLOC MAXCHARSET)             (* ; 
+            (LET ((FILENAME (MEDLEYFONT.FILENAME FILE DIRECTORY))
+                  STREAM FONT CSLOC MAXCHARSET)              (* ; 
                                                              "CL:OPEN-FILE doesn't exist in the init")
-                  [RESETSAVE (SETQ STREAM (OPENSTREAM FILENAME 'INPUT))
-                         '(PROGN (CLOSEF? OLDVALUE]
-                  (MEDLEYFONT.FILEVERSION STREAM 1)
-                  (SETQ MAXCHARSET (MEDLEYFONT.READ.ITEM STREAM 'MAXCHARSET))
-                  (SETQ CSLOC (\FIXPIN STREAM))              (* ; 
+                 (if FILENAME
+                     then [RESETSAVE (SETQ STREAM (OPENSTREAM FILENAME 'INPUT))
+                                 '(PROGN (CLOSEF? OLDVALUE]
+                          (MEDLEYFONT.FILEVERSION STREAM 1)
+                          (SETQ MAXCHARSET (MEDLEYFONT.READ.ITEM STREAM 'MAXCHARSET))
+                          (SETQ CSLOC (\FIXPIN STREAM))      (* ; 
                                   "CSLOC here so MEDLEYFONT.GETCHARSET can skip over the font stuff.")
-                  (SETQ FONT (MEDLEYFONT.READ.VERIFIEDFONT STREAM))
-                  (for CSNO from 0 to MAXCHARSET while CHARSETS
-                     when (if (EQ CHARSETS 'ALL)
-                            elseif (EQ CSNO (CAR CHARSETS))
-                              then (pop CHARSETS)) do (\SETCHARSETINFO FONT CSNO
-                                                             (MEDLEYFONT.GETCHARSET.INTERNAL STREAM 
-                                                                    CSNO FONT CSLOC)))
-                  (RETURN FONT))))])
+                          (SETQ FONT (MEDLEYFONT.READ.VERIFIEDFONT STREAM))
+                          (for CSNO from 0 to MAXCHARSET while CHARSETS
+                             when (if (EQ CHARSETS 'ALL)
+                                    elseif (EQ CSNO (CAR CHARSETS))
+                                      then (pop CHARSETS))
+                             do (\SETCHARSETINFO FONT CSNO (MEDLEYFONT.GETCHARSET.INTERNAL STREAM 
+                                                                  CSNO FONT CSLOC)))
+                          FONT
+                   elseif NOERROR
+                     then NIL
+                   else (ERROR "FONT FILE NOT FOUND" FILE)))))])
 
 (MEDLEYFONT.READ.CHARSET
   [LAMBDA (STREAM CHARSET FONT)                              (* ; "Edited  4-May-2026 12:38 by rmk")
@@ -914,7 +919,8 @@
 (DEFINEQ
 
 (MEDLEYFONT.FILENAME
-  [LAMBDA (FILE DIRECTORY)                                   (* ; "Edited  4-May-2026 09:01 by rmk")
+  [LAMBDA (FILE DIRECTORY)                                   (* ; "Edited  5-May-2026 11:02 by rmk")
+                                                             (* ; "Edited  4-May-2026 09:01 by rmk")
                                                              (* ; "Edited 30-Apr-2026 08:54 by rmk")
                                                              (* ; "Edited 15-Apr-2026 00:41 by rmk")
                                                              (* ; "Edited 23-Jan-2026 15:10 by rmk")
@@ -930,8 +936,9 @@
              (CL:UNLESS DIRECTORY
                  [SETQ DIRECTORY (CAR (MKLIST (FONTDEVICEPROP FILE 'FONTDIRECTORIES])
              (PACKFILENAME 'DIRECTORY DIRECTORY 'BODY (\FONTFILENAME FILE))
-      else                                                   (* ; "File name")
-           (PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY])
+      elseif FILE
+        then                                                 (* ; "File name")
+             (PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY])
 )
 
 (ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
@@ -982,12 +989,12 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2207 20671 (MEDLEYFONT.WRITE.FONT 2217 . 8620) (MEDLEYFONT.GETCHARSET 8622 . 10703) (
-MEDLEYFONT.GETCHARSET.INTERNAL 10705 . 12958) (MEDLEYFONT.CHARSET? 12960 . 13838) (
-MEDLEYFONT.GETFILEPROP 13840 . 17404) (MEDLEYFONT.FILEP 17406 . 19834) (MEDLEYFONT.FILEVERSION 19836
- . 20669)) (20697 43799 (MEDLEYFONT.READ.FONT 20707 . 24223) (MEDLEYFONT.READ.CHARSET 24225 . 29986) (
-MEDLEYFONT.READ.ITEM 29988 . 36137) (MEDLEYFONT.PEEK.ITEM 36139 . 37001) (MEDLEYFONT.READ.FONTPROPS 
-37003 . 37468) (MEDLEYFONT.READ.VERIFIEDFONT 37470 . 43797)) (43825 64296 (MEDLEYFONT.WRITE.CHARSET 
-43835 . 49480) (MEDLEYFONT.WRITE.ITEM 49482 . 58535) (MEDLEYFONT.WRITE.FONTPROPS 58537 . 63421) (
-MEDLEYFONT.WRITE.HEADER 63423 . 64294)) (64297 65816 (MEDLEYFONT.FILENAME 64307 . 65814)))))
+  (FILEMAP (NIL (2199 20663 (MEDLEYFONT.WRITE.FONT 2209 . 8612) (MEDLEYFONT.GETCHARSET 8614 . 10695) (
+MEDLEYFONT.GETCHARSET.INTERNAL 10697 . 12950) (MEDLEYFONT.CHARSET? 12952 . 13830) (
+MEDLEYFONT.GETFILEPROP 13832 . 17396) (MEDLEYFONT.FILEP 17398 . 19826) (MEDLEYFONT.FILEVERSION 19828
+ . 20661)) (20689 44110 (MEDLEYFONT.READ.FONT 20699 . 24534) (MEDLEYFONT.READ.CHARSET 24536 . 30297) (
+MEDLEYFONT.READ.ITEM 30299 . 36448) (MEDLEYFONT.PEEK.ITEM 36450 . 37312) (MEDLEYFONT.READ.FONTPROPS 
+37314 . 37779) (MEDLEYFONT.READ.VERIFIEDFONT 37781 . 44108)) (44136 64607 (MEDLEYFONT.WRITE.CHARSET 
+44146 . 49791) (MEDLEYFONT.WRITE.ITEM 49793 . 58846) (MEDLEYFONT.WRITE.FONTPROPS 58848 . 63732) (
+MEDLEYFONT.WRITE.HEADER 63734 . 64605)) (64608 66260 (MEDLEYFONT.FILENAME 64618 . 66258)))))
 STOP
diff --git a/sources/MEDLEYFONTFORMAT.LCOM b/sources/MEDLEYFONTFORMAT.LCOM
index c9fe1fb8..e3b59460 100644
Binary files a/sources/MEDLEYFONTFORMAT.LCOM and b/sources/MEDLEYFONTFORMAT.LCOM differ
