diff --git a/lispusers/READ-BDF b/lispusers/READ-BDF
index 062419e4..3a1d3bdf 100644
--- a/lispusers/READ-BDF
+++ b/lispusers/READ-BDF
@@ -1,17 +1,18 @@
 (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "BDF" (USE "XCL" "LISP") (EXPORT "READ-BDF" "BUILD-COMPOSITE"
  "WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE") (IMPORT-FROM "IL" "BITBLT" "BITMAPBIT" "BITMAPCREATE" 
-"BITMAPHEIGHT" "BITMAPWIDTH" "BLACKSHADE" "BLTSHADE" "BOLD" "COMPRESSED" "CHARSETINFO" "DISPLAY" 
-"FONTDESCRIPTOR" "FONTP" "FONTPROP" "INPUT" "ITALIC" "LIGHT" "LRSH" "MEDIUM" "REGULAR" "TCONC" 
-"UTOMCODE?" "MEDLEYFONT.FILENAME" "MEDLEYFONT.WRITE.FONT")) READTABLE "XCL" BASE 10)
+"BITMAPHEIGHT" "BITMAPWIDTH" "BLACKSHADE" "BLTSHADE" "BOLD" "COMPRESSED" "CHARSETINFO" "CHARSETPROP" 
+"DISPLAY" "FONTDESCRIPTOR" "FONTP" "FONTPROP" "INPUT" "ITALIC" "LIGHT" "LRSH" "MCCS" "MEDIUM" 
+"REGULAR" "TCONC" "UTOMCODE?" "MEDLEYFONT.FILENAME" "MEDLEYFONT.WRITE.FONT")) READTABLE "XCL" BASE 
+10)
 
-(IL:FILECREATED " 2-Dec-2025 16:10:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;6| 50944  
+(IL:FILECREATED " 8-Dec-2025 12:13:40" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;9| 51309  
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (IL:FUNCTIONS BDF-TO-FONTDESCRIPTOR WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 
-                         BUILD-COMPOSITE READ-BDF)
+      :CHANGES-TO (IL:FUNCTIONS BDF-TO-CHARSETINFO BDF-TO-FONTDESCRIPTOR)
+                  (FILE-ENVIRONMENTS "READ-BDF")
 
-      :PREVIOUS-DATE "30-Nov-2025 17:43:25" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;1|
+      :PREVIOUS-DATE " 8-Dec-2025 12:12:47" IL:|{DSK}<home>matt>Interlisp>medley>lispusers>READ-BDF.;8|
 )
 
 
@@ -76,7 +77,8 @@
 
 (DEFCONSTANT NOMAPPINGCHARSET (1+ MAXCHARSET))
 
-(DEFUN BDF-TO-CHARSETINFO (FONT CSET SLUGWIDTH)       (IL:* IL:\; "Edited 30-Nov-2025 00:12 by mth")
+(DEFUN BDF-TO-CHARSETINFO (FONT CSET SLUGWIDTH)       (IL:* IL:\; "Edited  8-Dec-2025 12:13 by mth")
+                                                      (IL:* IL:\; "Edited 30-Nov-2025 00:12 by mth")
                                                       (IL:* IL:\; "Edited 28-Nov-2025 16:37 by mth")
                                                       (IL:* IL:\; "Edited 26-Nov-2025 21:18 by mth")
                                                       (IL:* IL:\; "Edited 20-Nov-2025 12:19 by mth")
@@ -124,6 +126,7 @@
                   (IMAGEWIDTHS (IL:\\CREATECSINFOELEMENT))
                   (DLEFT 0)
                   GLYPHS-LIMITS BMAP OFFSETS HEIGHT WIDTHS)
+                 (CHARSETPROP CSINFO 'IL:CSCHARENCODING 'MCCS)
                  (LOOP :FOR XGL :IN CSGLYPHS :DO (LET* ((MCODE (CAR XGL))
                                                         (GL (CDR XGL))
                                                         (GWIDTH (GLYPH-WIDTH GL))
@@ -199,6 +202,7 @@
                  CSINFO))))
 
 (DEFUN BDF-TO-FONTDESCRIPTOR (BDFONT FAMILY SIZE FACE ROTATION DEVICE)
+                                                      (IL:* IL:\; "Edited  8-Dec-2025 12:11 by mth")
                                                       (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")
@@ -295,7 +299,8 @@
                              IL:|\\SFHeight| IL:_ 0
                              IL:ROTATION IL:_ ROTATION
                              IL:FONTDEVICESPEC IL:_ (LIST FAMILY SIZE FACE ROTATION DEVICE)
-                             IL:FONTSLUGWIDTH IL:_ SLUGWIDTH))
+                             IL:FONTSLUGWIDTH IL:_ SLUGWIDTH
+                             IL:FONTCHARENCODING IL:_ 'MCCS))
                 (SETQ CHARSETS (LOOP :FOR CS :IN GBCSL :WITH CSET :WITH CSINFO :NCONC
                                      (WHEN (<= 0 (SETQ CSET (FIRST CS))
                                                MAXCHARSET)
@@ -875,21 +880,21 @@
                                                            "BITMAPCREATE" "BITMAPHEIGHT" 
                                                            "BITMAPWIDTH" "BLACKSHADE" "BLTSHADE" 
                                                            "BOLD" "COMPRESSED" "CHARSETINFO" 
-                                                           "DISPLAY" "FONTDESCRIPTOR" "FONTP" 
-                                                           "FONTPROP" "INPUT" "ITALIC" "LIGHT" "LRSH"
-                                                           "MEDIUM" "REGULAR" "TCONC" "UTOMCODE?" 
-                                                           "MEDLEYFONT.FILENAME" 
+                                                           "CHARSETPROP" "DISPLAY" "FONTDESCRIPTOR" 
+                                                           "FONTP" "FONTPROP" "INPUT" "ITALIC" 
+                                                           "LIGHT" "LRSH" "MCCS" "MEDIUM" "REGULAR" 
+                                                           "TCONC" "UTOMCODE?" "MEDLEYFONT.FILENAME"
                                                            "MEDLEYFONT.WRITE.FONT"))
    :READTABLE "XCL"
    :COMPILER :COMPILE-FILE)
 
 (IL:PUTPROPS IL:READ-BDF IL:DATABASE IL:NO)
 (IL:DECLARE\: IL:DONTCOPY
-  (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:FILEMAP (NIL (3116 10226 (BDF-TO-CHARSETINFO 3116 . 10226)) (10228 16847 (BDF-TO-FONTDESCRIPTOR 
+10228 . 16847)) (16849 20782 (BUILD-COMPOSITE 16849 . 20782)) (20784 21533 (CHAR-PRESENT-BIT 20784 . 
+21533)) (21535 21819 (COUNT-MCHARS 21535 . 21819)) (21821 24856 (GLYPHS-BY-CHARSET 21821 . 24856)) (
+24858 26283 (PACKFILENAME.STRING 24858 . 26283)) (26285 35760 (READ-BDF 26285 . 35760)) (35762 36085 (
+READ-DELIMITED-LIST-FROM-STRING 35762 . 36085)) (36087 43085 (READ-GLYPH 36087 . 43085)) (43087 44472 
+(WRITE-BDF-TO-MEDLEYDISPLAYFONT-FILE 43087 . 44472)) (44474 46891 (XLFD-SPLIT-FONT-NAME 44474 . 46891)
+) (46893 49905 (XLFD-TO-FACE 46893 . 49905)))))
 IL:STOP
diff --git a/lispusers/READ-BDF.DFASL b/lispusers/READ-BDF.DFASL
index 81ccb577..d112551a 100644
Binary files a/lispusers/READ-BDF.DFASL and b/lispusers/READ-BDF.DFASL differ
