diff --git a/lispusers/READ-BDF b/lispusers/READ-BDF
index b4ee9fbe..062419e4 100644
--- a/lispusers/READ-BDF
+++ b/lispusers/READ-BDF
@@ -4,11 +4,12 @@
 "FONTDESCRIPTOR" "FONTP" "FONTPROP" "INPUT" "ITALIC" "LIGHT" "LRSH" "MEDIUM" "REGULAR" "TCONC" 
 "UTOMCODE?" "MEDLEYFONT.FILENAME" "MEDLEYFONT.WRITE.FONT")) READTABLE "XCL" BASE 10)
 
-(IL:FILECREATED " 1-Dec-2025 23:07:52" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;3| 50528  
+(IL:FILECREATED " 2-Dec-2025 16:10:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;6| 50944  
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (IL:FUNCTIONS BUILD-COMPOSITE READ-BDF)
+      :CHANGES-TO (IL:FUNCTIONS BDF-TO-FONTDESCRIPTOR WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 
+                         BUILD-COMPOSITE READ-BDF)
 
       :PREVIOUS-DATE "30-Nov-2025 17:43:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;1|
 )
@@ -198,6 +199,7 @@
                  CSINFO))))
 
 (DEFUN BDF-TO-FONTDESCRIPTOR (BDFONT FAMILY SIZE FACE ROTATION DEVICE)
+                                                      (IL:* IL:\; "Edited  2-Dec-2025 16:10 by mth")
                                                       (IL:* IL:\; "Edited 30-Nov-2025 15:59 by mth")
                                                       (IL:* IL:\; "Edited 28-Nov-2025 18:03 by mth")
                                                       (IL:* IL:\; "Edited 20-Nov-2025 12:46 by mth")
@@ -205,10 +207,9 @@
                                                       (IL:* IL:\; "Edited 21-Apr-2025 16:03 by mth")
                                                       (IL:* IL:\; "Edited 30-Jan-2025 21:27 by mth")
 
-   (IL:* IL:|;;| "Check valid required arguments")
+   (IL:* IL:|;;| "Check valid required argument")
 
-   (WHEN (AND (BDF-FONT-P BDFONT)
-              FAMILY)
+   (WHEN (BDF-FONT-P BDFONT)
        (WHEN (FONTP FAMILY)
            (RETURN-FROM BDF-TO-FONTDESCRIPTOR (BDF-TO-FONTDESCRIPTOR BDFONT (FONTPROP FAMILY
                                                                                    'IL:FAMILY)
@@ -216,7 +217,8 @@
                                                      (OR FACE (FONTPROP FAMILY 'IL:FACE))
                                                      (OR ROTATION (FONTPROP FAMILY 'IL:ROTATION))
                                                      (OR DEVICE (FONTPROP FAMILY 'IL:DEVICE)))))
-       (WHEN (LISTP FAMILY)
+       (WHEN (CONSP FAMILY)                                  (IL:* IL:\; 
+                                                             "Because (LISTP NIL) == T !!!")
 
            (IL:* IL:|;;| "Assume this is a FONTSPEC.")
 
@@ -745,11 +747,12 @@
 
 (DEFUN WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE (BDFONT DEST-DIR &KEY FAMILY SIZE FACE ROTATION DEVICE 
                                                   &AUX FULLFILENAME)
+                                                      (IL:* IL:\; "Edited  2-Dec-2025 14:47 by mth")
                                                       (IL:* IL:\; "Edited 30-Nov-2025 16:03 by mth")
                                                       (IL:* IL:\; "Edited 28-Nov-2025 17:56 by mth")
                                                       (IL:* IL:\; "Edited 26-Nov-2025 21:07 by mth")
                                                       (IL:* IL:\; "Edited 16-Nov-2025 17:32 by mth")
-   (UNLESS (TYPEP BDFONT 'BDF-FONT)
+   (UNLESS (BDF-FONT-P BDFONT)
           (ERROR "Not a BDF-FONT: ~S ~%" BDFONT))
    (DESTRUCTURING-BIND (FONTDESC CSETS)
           (BDF-TO-FONTDESCRIPTOR BDFONT FAMILY SIZE FACE ROTATION DEVICE)
@@ -882,11 +885,11 @@
 
 (IL:PUTPROPS IL:READ-BDF IL:DATABASE IL:NO)
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (3029 9967 (BDF-TO-CHARSETINFO 3029 . 9967)) (9969 16191 (BDF-TO-FONTDESCRIPTOR 9969
- . 16191)) (16193 20126 (BUILD-COMPOSITE 16193 . 20126)) (20128 20877 (CHAR-PRESENT-BIT 20128 . 20877)
-) (20879 21163 (COUNT-MCHARS 20879 . 21163)) (21165 24200 (GLYPHS-BY-CHARSET 21165 . 24200)) (24202 
-25627 (PACKFILENAME.STRING 24202 . 25627)) (25629 35104 (READ-BDF 25629 . 35104)) (35106 35429 (
-READ-DELIMITED-LIST-FROM-STRING 35106 . 35429)) (35431 42429 (READ-GLYPH 35431 . 42429)) (42431 43712 
-(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 42431 . 43712)) (43714 46131 (XLFD-SPLIT-FONT-NAME 43714 . 46131)
-) (46133 49145 (XLFD-TO-FACE 46133 . 49145)))))
+  (IL:FILEMAP (NIL (3113 10051 (BDF-TO-CHARSETINFO 3113 . 10051)) (10053 16503 (BDF-TO-FONTDESCRIPTOR 
+10053 . 16503)) (16505 20438 (BUILD-COMPOSITE 16505 . 20438)) (20440 21189 (CHAR-PRESENT-BIT 20440 . 
+21189)) (21191 21475 (COUNT-MCHARS 21191 . 21475)) (21477 24512 (GLYPHS-BY-CHARSET 21477 . 24512)) (
+24514 25939 (PACKFILENAME.STRING 24514 . 25939)) (25941 35416 (READ-BDF 25941 . 35416)) (35418 35741 (
+READ-DELIMITED-LIST-FROM-STRING 35418 . 35741)) (35743 42741 (READ-GLYPH 35743 . 42741)) (42743 44128 
+(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 42743 . 44128)) (44130 46547 (XLFD-SPLIT-FONT-NAME 44130 . 46547)
+) (46549 49561 (XLFD-TO-FACE 46549 . 49561)))))
 IL:STOP
diff --git a/lispusers/READ-BDF.DFASL b/lispusers/READ-BDF.DFASL
index 57065cd1..81ccb577 100644
Binary files a/lispusers/READ-BDF.DFASL and b/lispusers/READ-BDF.DFASL differ
diff --git a/lispusers/READ-BDF.TEDIT b/lispusers/READ-BDF.TEDIT
index 76027ebd..1f1add70 100644
Binary files a/lispusers/READ-BDF.TEDIT and b/lispusers/READ-BDF.TEDIT differ
