diff --git a/library/tedit/TEDIT-FILE b/library/tedit/TEDIT-FILE
index e6776c36..333be147 100644
--- a/library/tedit/TEDIT-FILE
+++ b/library/tedit/TEDIT-FILE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "31-Mar-2024 23:54:56" {WMEDLEY}<library>tedit>TEDIT-FILE.;528 154611 
+(FILECREATED " 7-Apr-2024 17:22:52" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;531 155019 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.PUT)
+      :CHANGES-TO (FNS \TEDIT.GET.CHARLOOKS.LIST \TEDIT.GET.SINGLE.CHARLOOKS \TEDIT.GET.PIECES3)
 
-      :PREVIOUS-DATE "26-Mar-2024 22:10:58" {WMEDLEY}<library>tedit>TEDIT-FILE.;527)
+      :PREVIOUS-DATE " 2-Apr-2024 12:15:23" {WMEDLEY}<library>TEDIT>TEDIT-FILE.;529)
 
 
 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -26,9 +26,6 @@
 
               (FNS TEDIT.GET TEDIT.FORMATTEDFILEP TEDIT.FILEDATE TEDIT.INCLUDE TEDIT.RAW.INCLUDE 
                    TEDIT.PUT TEDIT.PUT.STREAM)
-              
-              (* ;; "Getting (pageframe functions on TEDIT-PAGE)")
-
               (FNS \TEDIT.GET.FOREIGN.FILE \TEDIT.GET.UNFORMATTED.FILE \TEDIT.GET.FORMATTED.FILE 
                    \TEDIT.FORMATTEDSTREAMP \ARBIN \ATMIN \DWIN \STRINGIN \TEDIT.GET.TRAILER 
                    \TEDIT.CACHEFILE)
@@ -536,11 +533,6 @@
                           (FULLNAME DESTSTREAM))
                else DESTSTREAM)))])
 )
-
-
-
-(* ;; "Getting (pageframe functions on TEDIT-PAGE)")
-
 (DEFINEQ
 
 (\TEDIT.GET.FOREIGN.FILE
@@ -863,7 +855,8 @@
 (DEFINEQ
 
 (\TEDIT.GET.PIECES3
-  [LAMBDA (TEXT TEXTOBJ PCCOUNT CURFILEBYTE# END)            (* ; "Edited 20-Mar-2024 10:59 by rmk")
+  [LAMBDA (TEXT TEXTOBJ PCCOUNT CURFILEBYTE# END)            (* ; "Edited  7-Apr-2024 17:20 by rmk")
+                                                             (* ; "Edited 20-Mar-2024 10:59 by rmk")
                                                              (* ; "Edited 15-Mar-2024 14:37 by rmk")
                                                              (* ; "Edited 14-Jan-2024 00:22 by rmk")
                                                              (* ; "Edited 11-Jan-2024 12:37 by rmk")
@@ -943,7 +936,7 @@
                                             (* ;; 
                                       "There are new character looks for this object.  Read them in.")
 
-                                            (\TEDIT.GET.SINGLE.CHARLOOKS TEXT))))
+                                            (\TEDIT.GET.SINGLE.CHARLOOKS TEXT TEXTOBJ))))
               (\PieceDescriptorPAGEFRAME                     (* ; 
                                                              "This is page layout info for the file")
                    (FSETTOBJ TEXTOBJ TXTPAGEFRAMES (\TEDIT.PARSE.PAGEFRAMES (READ TEXT))))
@@ -951,7 +944,7 @@
                                                  "Read the list of CHARLOOKSs used in this document.")
                    (add PCNO -1)                             (* ; 
                                                              "Lists don't count, in this format.")
-                   (FSETTOBJ TEXTOBJ TXTCHARLOOKSLIST (\TEDIT.GET.CHARLOOKS.LIST TEXT))
+                   (FSETTOBJ TEXTOBJ TXTCHARLOOKSLIST (\TEDIT.GET.CHARLOOKS.LIST TEXT TEXTOBJ))
                    [SETQ CHARLOOKSMAP (ARRAY (LENGTH (FGETTOBJ TEXTOBJ TXTCHARLOOKSLIST]
                                                              (* ; 
                                          "Build an array of the looks, so the reader can index them.")
@@ -1353,15 +1346,17 @@
 (DEFINEQ
 
 (\TEDIT.GET.CHARLOOKS.LIST
-  [LAMBDA (FILE)                                             (* ; "Edited 16-Jan-2024 22:44 by rmk")
+  [LAMBDA (FILE TEXTOBJ)                                     (* ; "Edited  7-Apr-2024 17:22 by rmk")
+                                                             (* ; "Edited 16-Jan-2024 22:44 by rmk")
                                                              (* ; "Edited 19-Dec-2023 10:13 by rmk")
                                                              (* jds "28-Jan-85 17:50")
                                                              (* ; 
                                                          "Read the list of CHARLOOKSs from the file.")
-    (for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE])
+    (for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE TEXTOBJ])
 
 (\TEDIT.GET.SINGLE.CHARLOOKS
-  [LAMBDA (FILE)                                             (* ; "Edited 16-Jan-2024 22:46 by rmk")
+  [LAMBDA (FILE TEXTOBJ)                                     (* ; "Edited  7-Apr-2024 17:21 by rmk")
+                                                             (* ; "Edited 16-Jan-2024 22:46 by rmk")
                                                              (* ; "Edited 21-Dec-2023 23:54 by rmk")
                                                              (* ; "Edited 19-Dec-2023 10:13 by rmk")
                                                              (* ; "Edited 25-Nov-2023 23:21 by rmk")
@@ -1371,10 +1366,12 @@
 
     (* ;; "Read one CHARLOOKS from FILE.  This gets and then sets the file pointer, based on the stored length.  But that won't work if the file is not random access.  Maybe that's not necessary?")
 
+    (* ;; "TEXTOBJ only for printing in the local promptwindow, if necessary.")
+
     (PROG* ((LOOKS (create CHARLOOKS))
             (FILEPOS (GETFILEPTR FILE))
             (LOOKSLEN (\WIN FILE))
-            FONT STR NAME NAMELEN SIZE SUPER SUB PROPS STYLESTR USERSTR)
+            FONT NAME SIZE SUPER PROPS STYLESTR)
            (SETQ NAME (\ARBIN FILE))                         (* ; "The font name")
            (SETQ SIZE (\WIN FILE))                           (* ; "Size of the type, in points")
            (SETQ SUPER (\SMALLPIN FILE))                     (* ; 
@@ -1398,20 +1395,20 @@
                  [SETQ CLCANCOPY (NOT (ZEROP (LOGAND 1 PROPS]
                  (SETQ CLSIZE SIZE)
                  (SETQ CLOFFSET SUPER))
-           [SETQ FONT (COND
-                         ((LISTP NAME)                       (* ; 
+           [SETQ FONT (if (LISTP NAME)
+                          then                               (* ; 
                                                              "This was a font class.  Restore it.")
-                          (FONTCLASS (pop NAME)
-                                 NAME))
-                         ((AND NAME (NOT (ZEROP SIZE)))
-                          (FONTCREATE NAME SIZE (COND
-                                                   ((AND (fetch (CHARLOOKS CLBOLD) of LOOKS)
-                                                         (fetch (CHARLOOKS CLITAL) of LOOKS))
-                                                    'BOLDITALIC)
-                                                   ((fetch (CHARLOOKS CLBOLD) of LOOKS)
-                                                    'BOLD)
-                                                   ((fetch (CHARLOOKS CLITAL) of LOOKS)
-                                                    'ITALIC]
+                               (FONTCLASS (pop NAME)
+                                      NAME)
+                        elseif (AND NAME (NOT (ZEROP SIZE)))
+                          then (FONTCREATE NAME SIZE (COND
+                                                        ((AND (fetch (CHARLOOKS CLBOLD) of LOOKS)
+                                                              (fetch (CHARLOOKS CLITAL) of LOOKS))
+                                                         'BOLDITALIC)
+                                                        ((fetch (CHARLOOKS CLBOLD) of LOOKS)
+                                                         'BOLD)
+                                                        ((fetch (CHARLOOKS CLITAL) of LOOKS)
+                                                         'ITALIC]
            (replace (CHARLOOKS CLNAME) of LOOKS
               with (if (type? FONTCLASS FONT)
                        then 
@@ -2452,27 +2449,27 @@
 
 (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4828 30439 (TEDIT.GET 4838 . 9680) (TEDIT.FORMATTEDFILEP 9682 . 10998) (TEDIT.FILEDATE 
-11000 . 12171) (TEDIT.INCLUDE 12173 . 19141) (TEDIT.RAW.INCLUDE 19143 . 19951) (TEDIT.PUT 19953 . 
-26896) (TEDIT.PUT.STREAM 26898 . 30437)) (30501 49665 (\TEDIT.GET.FOREIGN.FILE 30511 . 33696) (
-\TEDIT.GET.UNFORMATTED.FILE 33698 . 37572) (\TEDIT.GET.FORMATTED.FILE 37574 . 40362) (
-\TEDIT.FORMATTEDSTREAMP 40364 . 43264) (\ARBIN 43266 . 43986) (\ATMIN 43988 . 44525) (\DWIN 44527 . 
-44906) (\STRINGIN 44908 . 45616) (\TEDIT.GET.TRAILER 45618 . 48134) (\TEDIT.CACHEFILE 48136 . 49663)) 
-(49831 62818 (\TEDIT.GET.PIECES3 49841 . 59580) (\TEDIT.GET.IDATE3 59582 . 60977) (
-\TEDIT.MAKE.STRINGPIECE 60979 . 62816)) (62819 74762 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 62829 . 68945) 
-(\TEDIT.INTERPRET.XCCS.SHIFTS 68947 . 74760)) (74784 80806 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 74794 . 
-80804)) (80829 88965 (\TEDIT.GET.CHARLOOKS.LIST 80839 . 81453) (\TEDIT.GET.SINGLE.CHARLOOKS 81455 . 
-85777) (\TEDIT.GET.CHARLOOKS 85779 . 87109) (\TEDIT.GET.PARALOOKS.INDEX 87111 . 87655) (
-\TEDIT.GET.CHARLOOKS.INDEX 87657 . 88963)) (88966 97204 (\TEDIT.GET.PARALOOKS.LIST 88976 . 89598) (
-\TEDIT.GET.SINGLE.PARALOOKS 89600 . 96612) (\TEDIT.GET.PARALOOKS 96614 . 97202)) (97205 100604 (
-\TEDIT.GET.OBJECT 97215 . 100602)) (100666 133237 (\TEDIT.PUT.PCTB 100676 . 114679) (
-\TEDIT.PUT.TRAILER 114681 . 115448) (\TEDIT.PUT.PCTB.MERGEABLE 115450 . 118968) (
-\TEDIT.PUT.UTF8.SPLITPIECES 118970 . 124057) (\TEDIT.PUT.PCTB.NEXTNEW 124059 . 127834) (
-\TEDIT.INSERT.NEWPIECES 127836 . 130835) (\TEDIT.PUTRESET 130837 . 131079) (\ARBOUT 131081 . 131805) (
-\ATMOUT 131807 . 132412) (\DWOUT 132414 . 132693) (\STRINGOUT 132695 . 133235)) (133238 144631 (
-\TEDIT.PUT.CHARLOOKS.LIST 133248 . 134920) (\TEDIT.PUT.SINGLE.CHARLOOKS 134922 . 140166) (
-\TEDIT.PUT.CHARLOOKS 140168 . 141312) (\TEDIT.PUT.CHARLOOKS1 141314 . 142365) (\TEDIT.PUT.OBJECT 
-142367 . 144629)) (144632 152670 (\TEDIT.PUT.PARALOOKS.LIST 144642 . 145544) (
-\TEDIT.PUT.SINGLE.PARALOOKS 145546 . 151595) (\TEDIT.PUT.PARALOOKS 151597 . 152668)) (152765 154447 (
-TEDITFROMLISPSOURCE 152775 . 154445)))))
+  (FILEMAP (NIL (4804 30415 (TEDIT.GET 4814 . 9656) (TEDIT.FORMATTEDFILEP 9658 . 10974) (TEDIT.FILEDATE 
+10976 . 12147) (TEDIT.INCLUDE 12149 . 19117) (TEDIT.RAW.INCLUDE 19119 . 19927) (TEDIT.PUT 19929 . 
+26872) (TEDIT.PUT.STREAM 26874 . 30413)) (30416 49580 (\TEDIT.GET.FOREIGN.FILE 30426 . 33611) (
+\TEDIT.GET.UNFORMATTED.FILE 33613 . 37487) (\TEDIT.GET.FORMATTED.FILE 37489 . 40277) (
+\TEDIT.FORMATTEDSTREAMP 40279 . 43179) (\ARBIN 43181 . 43901) (\ATMIN 43903 . 44440) (\DWIN 44442 . 
+44821) (\STRINGIN 44823 . 45531) (\TEDIT.GET.TRAILER 45533 . 48049) (\TEDIT.CACHEFILE 48051 . 49578)) 
+(49746 62858 (\TEDIT.GET.PIECES3 49756 . 59620) (\TEDIT.GET.IDATE3 59622 . 61017) (
+\TEDIT.MAKE.STRINGPIECE 61019 . 62856)) (62859 74802 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 62869 . 68985) 
+(\TEDIT.INTERPRET.XCCS.SHIFTS 68987 . 74800)) (74824 80846 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 74834 . 
+80844)) (80869 89373 (\TEDIT.GET.CHARLOOKS.LIST 80879 . 81610) (\TEDIT.GET.SINGLE.CHARLOOKS 81612 . 
+86185) (\TEDIT.GET.CHARLOOKS 86187 . 87517) (\TEDIT.GET.PARALOOKS.INDEX 87519 . 88063) (
+\TEDIT.GET.CHARLOOKS.INDEX 88065 . 89371)) (89374 97612 (\TEDIT.GET.PARALOOKS.LIST 89384 . 90006) (
+\TEDIT.GET.SINGLE.PARALOOKS 90008 . 97020) (\TEDIT.GET.PARALOOKS 97022 . 97610)) (97613 101012 (
+\TEDIT.GET.OBJECT 97623 . 101010)) (101074 133645 (\TEDIT.PUT.PCTB 101084 . 115087) (
+\TEDIT.PUT.TRAILER 115089 . 115856) (\TEDIT.PUT.PCTB.MERGEABLE 115858 . 119376) (
+\TEDIT.PUT.UTF8.SPLITPIECES 119378 . 124465) (\TEDIT.PUT.PCTB.NEXTNEW 124467 . 128242) (
+\TEDIT.INSERT.NEWPIECES 128244 . 131243) (\TEDIT.PUTRESET 131245 . 131487) (\ARBOUT 131489 . 132213) (
+\ATMOUT 132215 . 132820) (\DWOUT 132822 . 133101) (\STRINGOUT 133103 . 133643)) (133646 145039 (
+\TEDIT.PUT.CHARLOOKS.LIST 133656 . 135328) (\TEDIT.PUT.SINGLE.CHARLOOKS 135330 . 140574) (
+\TEDIT.PUT.CHARLOOKS 140576 . 141720) (\TEDIT.PUT.CHARLOOKS1 141722 . 142773) (\TEDIT.PUT.OBJECT 
+142775 . 145037)) (145040 153078 (\TEDIT.PUT.PARALOOKS.LIST 145050 . 145952) (
+\TEDIT.PUT.SINGLE.PARALOOKS 145954 . 152003) (\TEDIT.PUT.PARALOOKS 152005 . 153076)) (153173 154855 (
+TEDITFROMLISPSOURCE 153183 . 154853)))))
 STOP
diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM
index e9f5dece..c1d43b62 100644
Binary files a/library/tedit/TEDIT-FILE.LCOM and b/library/tedit/TEDIT-FILE.LCOM differ
