diff --git a/sources/MEDLEYFONTFORMAT b/sources/MEDLEYFONTFORMAT
index 96f410e0..fa1e6c0c 100644
--- a/sources/MEDLEYFONTFORMAT
+++ b/sources/MEDLEYFONTFORMAT
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED "14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250 60733  
+(FILECREATED " 2-Mar-2026 20:50:00" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;251 61187  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MEDLEYFONT.GETCHARSET MEDLEYFONT.READ.CHARSET)
+      :CHANGES-TO (FNS MEDLEYFONT.READ.FONT MEDLEYFONT.READ.VERIFIEDFONT MEDLEYFONT.FILENAME)
 
-      :PREVIOUS-DATE "23-Jan-2026 15:10:16" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;249)
+      :PREVIOUS-DATE "14-Feb-2026 00:39:34" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;250)
 
 
 (PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
@@ -280,14 +280,14 @@
 (DEFINEQ
 
 (MEDLEYFONT.READ.FONT
-  [LAMBDA (FILE CHARSETNOS FONT)                             (* ; "Edited 20-Jan-2026 22:31 by rmk")
+  [LAMBDA (FILE CHARSETNOS FONT)                             (* ; "Edited  2-Mar-2026 20:40 by rmk")
+                                                             (* ; "Edited 20-Jan-2026 22:31 by rmk")
                                                              (* ; "Edited 31-Aug-2025 14:42 by rmk")
                                                              (* ; "Edited 15-Jul-2025 20:20 by rmk")
                                                              (* ; "Edited  9-Jul-2025 00:06 by rmk")
                                                              (* ; "Edited  6-Jul-2025 11:45 by rmk")
-    (SETQ FONT (CL:IF FONT
-                   (FONTCREATE FONT)
-                   (create FONTDESCRIPTOR)))
+    (CL:WHEN FONT
+        (SETQ FONT (FONTCREATE FONT)))
     (SETQ FILE (MEDLEYFONT.FILENAME FILE FONT))
     (SETQ CHARSETNOS (SORT (MKLIST CHARSETNOS)))
     (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
@@ -516,13 +516,16 @@
     (bind PAIR until [EQ 'STOP (CAR (SETQ PAIR (MEDLEYFONT.READ.ITEM STREAM] collect PAIR])
 
 (MEDLEYFONT.READ.VERIFIEDFONT
-  [LAMBDA (STREAM FONT)                                      (* ; "Edited 20-Jan-2026 22:31 by rmk")
+  [LAMBDA (STREAM FONT)                                      (* ; "Edited  2-Mar-2026 20:40 by rmk")
+                                                             (* ; "Edited 20-Jan-2026 22:31 by rmk")
                                                              (* ; "Edited  2-Sep-2025 23:52 by rmk")
                                                              (* ; "Edited 12-Aug-2025 17:57 by rmk")
                                                              (* ; "Edited 10-Jun-2025 20:57 by rmk")
                                                              (* ; "Edited 21-May-2025 22:55 by rmk")
                                                              (* ; "Edited 19-May-2025 17:42 by rmk")
                                                              (* ; "Edited 16-May-2025 10:28 by rmk")
+    (CL:UNLESS FONT
+        (SETQ FONT (create FONTDESCRIPTOR)))
     (LET ((FONTPROPS (MEDLEYFONT.READ.FONTPROPS STREAM)))
          (for P VAL in FONTPROPS do (SETQ VAL (CADR P))
                                     (SELECTQ (CAR P)
@@ -847,7 +850,9 @@
 (DEFINEQ
 
 (MEDLEYFONT.FILENAME
-  [LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY)            (* ; "Edited 23-Jan-2026 15:10 by rmk")
+  [LAMBDA (FILE FONT CHARSET EXTENSION DIRECTORY)            (* ; "Edited  2-Mar-2026 20:41 by rmk")
+                                                             (* ; "Edited  1-Mar-2026 01:07 by rmk")
+                                                             (* ; "Edited 23-Jan-2026 15:10 by rmk")
                                                              (* ; "Edited 20-Jan-2026 17:39 by rmk")
                                                              (* ; "Edited  7-Oct-2025 11:50 by rmk")
                                                              (* ; "Edited  4-Sep-2025 08:48 by rmk")
@@ -855,7 +860,7 @@
                                                              (* ; "Edited 25-May-2025 21:25 by rmk")
                                                              (* ; "Edited 19-May-2025 17:42 by rmk")
                                                              (* ; "Edited 16-May-2025 14:09 by rmk")
-    (LET [(FONTSPEC (AND FONT (\FONT.CHECKARGS FONT NIL NIL NIL NIL T]
+    (LET [(FONTSPEC (AND FONT (FONTPROP FONT 'SPEC]
          (CL:UNLESS EXTENSION                                (* ; 
                                                         "EXTENSION may be needed for DIRECTORY below")
              (SETQ EXTENSION (OR (FILENAMEFIELD FILE 'EXTENSION)
@@ -924,11 +929,11 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2152 16901 (MEDLEYFONT.WRITE.FONT 2162 . 7217) (MEDLEYFONT.GETCHARSET 7219 . 11360) (
-MEDLEYFONT.CHARSET? 11362 . 12831) (MEDLEYFONT.GETFILEPROP 12833 . 14933) (MEDLEYFONT.FILEP 14935 . 
-16899)) (16927 39618 (MEDLEYFONT.READ.FONT 16937 . 21473) (MEDLEYFONT.READ.CHARSET 21475 . 27190) (
-MEDLEYFONT.READ.ITEM 27192 . 33341) (MEDLEYFONT.PEEK.ITEM 33343 . 34205) (MEDLEYFONT.READ.FONTPROPS 
-34207 . 34672) (MEDLEYFONT.READ.VERIFIEDFONT 34674 . 39616)) (39644 57481 (MEDLEYFONT.WRITE.CHARSET 
-39654 . 44216) (MEDLEYFONT.WRITE.ITEM 44218 . 53271) (MEDLEYFONT.WRITE.FONTPROPS 53273 . 56826) (
-MEDLEYFONT.WRITE.HEADER 56828 . 57479)) (57482 59848 (MEDLEYFONT.FILENAME 57492 . 59846)))))
+  (FILEMAP (NIL (2176 16925 (MEDLEYFONT.WRITE.FONT 2186 . 7241) (MEDLEYFONT.GETCHARSET 7243 . 11384) (
+MEDLEYFONT.CHARSET? 11386 . 12855) (MEDLEYFONT.GETFILEPROP 12857 . 14957) (MEDLEYFONT.FILEP 14959 . 
+16923)) (16951 39873 (MEDLEYFONT.READ.FONT 16961 . 21550) (MEDLEYFONT.READ.CHARSET 21552 . 27267) (
+MEDLEYFONT.READ.ITEM 27269 . 33418) (MEDLEYFONT.PEEK.ITEM 33420 . 34282) (MEDLEYFONT.READ.FONTPROPS 
+34284 . 34749) (MEDLEYFONT.READ.VERIFIEDFONT 34751 . 39871)) (39899 57736 (MEDLEYFONT.WRITE.CHARSET 
+39909 . 44471) (MEDLEYFONT.WRITE.ITEM 44473 . 53526) (MEDLEYFONT.WRITE.FONTPROPS 53528 . 57081) (
+MEDLEYFONT.WRITE.HEADER 57083 . 57734)) (57737 60302 (MEDLEYFONT.FILENAME 57747 . 60300)))))
 STOP
diff --git a/sources/MEDLEYFONTFORMAT.LCOM b/sources/MEDLEYFONTFORMAT.LCOM
index 23ade3fc..a77c344c 100644
Binary files a/sources/MEDLEYFONTFORMAT.LCOM and b/sources/MEDLEYFONTFORMAT.LCOM differ
