diff --git a/library/tedit/TEDIT-OLDFILE.LCOM b/library/tedit/TEDIT-OLDFILE.LCOM
index 18bcf0b7..c5e337db 100644
Binary files a/library/tedit/TEDIT-OLDFILE.LCOM and b/library/tedit/TEDIT-OLDFILE.LCOM differ
diff --git a/library/tedit/TEDIT-STREAM b/library/tedit/TEDIT-STREAM
index 3d4abb27..94102138 100644
--- a/library/tedit/TEDIT-STREAM
+++ b/library/tedit/TEDIT-STREAM
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "29-Jul-2025 11:58:01" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;912 190401 
+(FILECREATED " 9-Sep-2025 22:08:09" {WMEDLEY}<library>tedit>TEDIT-STREAM.;915 190872 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS)
+      :CHANGES-TO (FNS OPENTEXTSTREAM)
+                  (RECORDS TEXTOBJ)
 
-      :PREVIOUS-DATE "28-Jul-2025 23:52:41" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;911)
+      :PREVIOUS-DATE " 8-Sep-2025 22:10:32" {WMEDLEY}<library>tedit>TEDIT-STREAM.;913)
 
 
 (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -234,7 +235,7 @@
                    TXTRAWINCLUDESTREAM                       (* ; 
                        "NODIRCORE stream used to cache RAW includes (and maybe later, all includes?)")
                    DOCPROPS                                  (* ; 
-                               "Document properties that are stored with the document (not used yet)")
+                      "Document properties that are stored with the document. Not used before 9/2025")
                    TXTSTYLESHEET                             (* ; 
                       "Style sheet local to this document.  Not currently saved as part of the file.")
                    )
@@ -1232,6 +1233,8 @@
 (OPENTEXTSTREAM
   [LAMBDA (TEXT WINDOW START/PROPS END PROPS)
 
+    (* ;; "Edited  9-Sep-2025 22:07 by rmk")
+
     (* ;; "Edited 17-Feb-2025 08:57 by rmk")
 
     (* ;; "Edited 30-Jan-2025 11:15 by rmk")
@@ -1244,32 +1247,14 @@
 
     (* ;; "Edited 30-Jun-2024 16:17 by rmk")
 
-    (* ;; "Edited 25-Jun-2024 11:59 by rmk")
-
     (* ;; "Edited 10-May-2024 22:42 by rmk")
 
-    (* ;; "Edited  6-May-2024 12:38 by rmk")
-
     (* ;; "Edited 31-Mar-2024 11:43 by rmk")
 
-    (* ;; "Edited 17-Mar-2024 12:05 by rmk")
-
-    (* ;; "Edited 15-Mar-2024 14:23 by rmk")
-
-    (* ;; "Edited 10-Mar-2024 22:10 by rmk")
-
     (* ;; "Edited 21-Jan-2024 10:31 by rmk")
 
     (* ;; "Edited 20-Dec-2023 10:47 by rmk")
 
-    (* ;; "Edited 11-Dec-2023 09:50 by rmk")
-
-    (* ;; "Edited 26-Oct-2023 10:59 by rmk")
-
-    (* ;; "Edited 23-Oct-2023 22:14 by rmk")
-
-    (* ;; "Edited 21-Oct-2023 12:21 by rmk")
-
     (* ;; "Edited 12-Oct-2023 23:44 by rmk")
 
     (* ;; "Edited 31-Jan-2022 17:25 by rmk: A string TEXT is converted here to a stream")
@@ -1330,10 +1315,17 @@
                                      else (\TEDIT.WINDOW.CREATE WINDOW TSTREAM PROPS)))
                else (SETQ TSTREAM (\TEDIT.CREATE.TEXTSTREAM PROPS))
                     (SETQ TEXTOBJ (FGETTSTR TSTREAM TEXTOBJ))
-                    (CL:WHEN TEXT                            (* ; 
+                    (if TEXT
+                        then                                 (* ; 
                                                              "Verify/open the file before the window")
-                        (SETQ TEXT (\TEDIT.OPENTEXTFILE TEXT PROPS))
-                        (FSETTOBJ TEXTOBJ TXTFILE TEXT)) 
+                             (SETQ TEXT (\TEDIT.OPENTEXTFILE TEXT PROPS))
+                             (FSETTOBJ TEXTOBJ TXTFILE TEXT)
+                      else 
+                           (* ;; "An empty document starts in an MCCS environment")
+
+                           (FPUTMULTI (FGETTOBJ TEXTOBJ DOCPROPS)
+                                  'CHARENCODING
+                                  'MCCS)) 
 
                     (* ;; "If we swap the window before the pieces, the local promptwindow is availabe for messages and queries. Otherwise, those show up in the system prompt.  But if we do it in the opposite order, we don't know how to estimate the width for the window region.")
 
@@ -1441,7 +1433,8 @@
     TSTREAM])
 
 (\TEDIT.OPENTEXTSTREAM.PIECES
-  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "Edited 29-May-2025 19:02 by rmk")
+  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "Edited  8-Sep-2025 22:05 by rmk")
+                                                             (* ; "Edited 29-May-2025 19:02 by rmk")
                                                              (* ; "Edited 26-Apr-2025 12:59 by rmk")
                                                              (* ; "Edited 24-Apr-2025 17:09 by rmk")
                                                              (* ; "Edited 26-Sep-2024 22:27 by rmk")
@@ -1460,11 +1453,10 @@
     (* ;; "The intent is that the window's promptwindow is available for local messages during the fetch, and the RESETSAVE of PROMPTWINDOW would make even messages to the global promptwindow appear locally.  An example is the mouseconfirm in READIMAGEOBJ that asks whether the imageobj code should be loaded from a given file.  The problem is that the Tedit prompt window is usually just 1 line hight and doesn't automatically grow to show multiple lines, so key information may not be displayed.  If the Tedit prompt grows (and it can be determined when/if it should later shrink), then this feature can be enabled.")
 
     (RESETLST
-        (LET* [(TEXTOBJ (TEXTOBJ! (fetch (TEXTSTREAM TEXTOBJ) of TSTREAM)))
+        (LET* [(TEXTOBJ (FTEXTOBJ TSTREAM))
                (PWINDOW (GETTOBJ TEXTOBJ PROMPTWINDOW))
                (READONLY (GETTEXTPROP TEXTOBJ 'READONLY]     (* ; 
                                                          "READONLY only after creation, if specified")
-              (AND NIL (CL:WHEN PWINDOW (RESETSAVE PROMPTWINDOW PWINDOW)))
               (FSETTOBJ TEXTOBJ TXTREADONLY NIL)
               (FSETTOBJ TEXTOBJ TXTDON'TUPDATE T)            (* ; 
                                                        "Don't display or record histories until done")
@@ -1666,7 +1658,8 @@
          (SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
 
 (\TEDIT.OPENTEXTFILE
-  [LAMBDA (TEXT PROPS)                                       (* ; "Edited 21-Nov-2024 11:38 by rmk")
+  [LAMBDA (TEXT PROPS)                                       (* ; "Edited  8-Sep-2025 21:52 by rmk")
+                                                             (* ; "Edited 21-Nov-2024 11:38 by rmk")
                                                              (* ; "Edited 20-Dec-2023 10:49 by rmk")
                                                              (* ; "Edited 28-Oct-2023 10:33 by rmk")
                                                              (* ; "Edited 26-Sep-2023 18:00 by rmk")
@@ -1678,15 +1671,19 @@
                 (STRINGP TEXT)
                 (CL:PATHNAMEP TEXT))
             then                                             (* ; "String detects empty extension")
-                 [OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
-                                         (FILENAMEFIELD.STRING TEXT 'EXTENSION))
-                                     then (FINDFILE TEXT T)
-                                   elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL *TEDIT-EXTENSIONS*))
-                                 TEXT)
-                        'INPUT
-                        'OLD
-                        `((TYPE TEXT)
-                          (FORMAT ,(LISTGET PROPS 'FORMAT]
+                 [RESETSAVE [SETQ TEXT (OPENSTREAM (OR (if (OR (CL:PATHNAMEP TEXT)
+                                                               (FILENAMEFIELD.STRING TEXT
+                                                                      'EXTENSION))
+                                                           then (FINDFILE TEXT T)
+                                                         elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL 
+                                                                       *TEDIT-EXTENSIONS*))
+                                                       TEXT)
+                                              'INPUT
+                                              'OLD
+                                              `((TYPE TEXT)
+                                                (FORMAT ,(LISTGET PROPS 'FORMAT]
+                        '(PROGN (AND RESETSTATE (CLOSEF? OLDVALUE]
+                 TEXT
           elseif (\GETSTREAM TEXT 'INPUT T)
           else 
                (* ;; "Don't know what it is")
@@ -3123,34 +3120,34 @@
 (ADDTOVAR LAMA TEXTPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (36908 67724 (\TEDIT.TEXTBIN 36918 . 47668) (\TEDIT.TEXTPEEKBIN 47670 . 53220) (
-\TEDIT.TEXTBACKFILEPTR 53222 . 58895) (\TEDIT.TEXTBOUT 58897 . 63514) (\TEDIT.INSTALL.FILEBUFFER 63516
- . 67722)) (68622 72913 (\TEDIT.TEXTOUTCHARFN 68632 . 70188) (\TEDIT.TEXTINCCODEFN 70190 . 70929) (
-\TEDIT.TEXTBACKCCODEFN 70931 . 71523) (\TEDIT.TEXTFORMATBYTESTREAM 71525 . 72362) (
-\TEDIT.TEXTFORMATBYTESTRING 72364 . 72911)) (72960 84601 (OPENTEXTSTREAM 72970 . 79922) (
-COPYTEXTSTREAM 79924 . 83824) (TEDIT.STREAMCHANGEDP 83826 . 84128) (TXTFILE 84130 . 84599)) (84602 
-114584 (\TEDIT.REOPENTEXTSTREAM 84612 . 85964) (\TEDIT.OPENTEXTSTREAM.PIECES 85966 . 90900) (
-\TEDIT.OPENTEXTSTREAM.PROPS 90902 . 92004) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92006 . 97247) (
-\TEDIT.OPENTEXTSTREAM.WINDOW 97249 . 100040) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100042 . 101981) (
-\TEDIT.OPENTEXTFILE 101983 . 103696) (\TEDIT.CREATE.TEXTSTREAM 103698 . 104845) (\TEDIT.REOPEN.STREAM 
-104847 . 107183) (\TEDIT.TEXTINIT 107185 . 114582)) (114622 115810 (\TEDIT.TTYBOUT 114632 . 115808)) (
-115928 135925 (\TEDIT.TEXTCLOSEF 115938 . 117262) (\TEDIT.TEXTDSPFONT 117264 . 118462) (
-\TEDIT.TEXTEOFP 118464 . 120219) (\TEDIT.TEXTGETEOFPTR 120221 . 120544) (\TEDIT.TEXTSETEOFPTR 120546
- . 121833) (\TEDIT.TEXTGETFILEPTR 121835 . 124670) (\TEDIT.TEXTSETFILEINFO 124672 . 125180) (
-\TEDIT.TEXTOPENF 125182 . 126113) (\TEDIT.TEXTSETEOF 126115 . 126731) (\TEDIT.TEXTSETFILEPTR 126733 . 
-128843) (\TEDIT.TEXTDSPXPOSITION 128845 . 129862) (\TEDIT.TEXTDSPYPOSITION 129864 . 130605) (
-\TEDIT.TEXTLEFTMARGIN 130607 . 131198) (\TEDIT.TEXTCOLOR 131200 . 131783) (\TEDIT.TEXTRIGHTMARGIN 
-131785 . 135074) (\TEDIT.TEXTDSPCHARWIDTH 135076 . 135380) (\TEDIT.TEXTDSPSTRINGWIDTH 135382 . 135688)
- (\TEDIT.TEXTDSPLINEFEED 135690 . 135923)) (135963 148576 (\TEDIT.NTHCHARCODE 135973 . 137424) (
-\TEDIT.PIECE.NTHCHARCODE 137426 . 141336) (\TEDIT.RPLCHARCODE 141338 . 142796) (
-\TEDIT.PIECE.RPLCHARCODE 142798 . 148221) (\TEDIT.NTHCHARLOOKS 148223 . 148574)) (149623 170717 (
-\TEDIT.DELETE.SELPIECES 149633 . 153258) (\TEDIT.INSERTCH 153260 . 161299) (\TEDIT.INSERTCH.HISTORY 
-161301 . 164765) (\TEDIT.INSERTEOL 164767 . 166592) (\TEDIT.INSERTCH.INSERTION 166594 . 169431) (
-\TEDIT.INSERTCH.EXTEND 169433 . 170715)) (170718 172222 (\TEDIT.NEXTCHANGEABLE.CHNO 170728 . 171443) (
-\TEDIT.LASTCHANGEABLE.CHNO 171445 . 172220)) (172223 173927 (\SETUPGETCH 172233 . 173925)) (173985 
-178443 (\TEDIT.INSTALL.PIECE 173995 . 178441)) (178481 187582 (TEXTPROP 178491 . 178838) (GETTEXTPROP 
-178840 . 179084) (PUTTEXTPROP 179086 . 179343) (GETTEXTPROPS 179345 . 179789) (PUTTEXTPROPS 179791 . 
-180695) (TEXTPROP.ADD 180697 . 180960) (\TEDIT.TEXTPROP 180962 . 187580)) (187583 189653 (
-\TEDIT.TEXTOBJ.PROPNAMES 187593 . 188545) (\TEDIT.TEXTOBJ.PROPFETCHFN 188547 . 189063) (
-\TEDIT.TEXTOBJ.PROPSTOREFN 189065 . 189651)))))
+  (FILEMAP (NIL (36924 67740 (\TEDIT.TEXTBIN 36934 . 47684) (\TEDIT.TEXTPEEKBIN 47686 . 53236) (
+\TEDIT.TEXTBACKFILEPTR 53238 . 58911) (\TEDIT.TEXTBOUT 58913 . 63530) (\TEDIT.INSTALL.FILEBUFFER 63532
+ . 67738)) (68638 72929 (\TEDIT.TEXTOUTCHARFN 68648 . 70204) (\TEDIT.TEXTINCCODEFN 70206 . 70945) (
+\TEDIT.TEXTBACKCCODEFN 70947 . 71539) (\TEDIT.TEXTFORMATBYTESTREAM 71541 . 72378) (
+\TEDIT.TEXTFORMATBYTESTRING 72380 . 72927)) (72976 84540 (OPENTEXTSTREAM 72986 . 79861) (
+COPYTEXTSTREAM 79863 . 83763) (TEDIT.STREAMCHANGEDP 83765 . 84067) (TXTFILE 84069 . 84538)) (84541 
+115055 (\TEDIT.REOPENTEXTSTREAM 84551 . 85903) (\TEDIT.OPENTEXTSTREAM.PIECES 85905 . 90833) (
+\TEDIT.OPENTEXTSTREAM.PROPS 90835 . 91937) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91939 . 97180) (
+\TEDIT.OPENTEXTSTREAM.WINDOW 97182 . 99973) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 99975 . 101914) (
+\TEDIT.OPENTEXTFILE 101916 . 104167) (\TEDIT.CREATE.TEXTSTREAM 104169 . 105316) (\TEDIT.REOPEN.STREAM 
+105318 . 107654) (\TEDIT.TEXTINIT 107656 . 115053)) (115093 116281 (\TEDIT.TTYBOUT 115103 . 116279)) (
+116399 136396 (\TEDIT.TEXTCLOSEF 116409 . 117733) (\TEDIT.TEXTDSPFONT 117735 . 118933) (
+\TEDIT.TEXTEOFP 118935 . 120690) (\TEDIT.TEXTGETEOFPTR 120692 . 121015) (\TEDIT.TEXTSETEOFPTR 121017
+ . 122304) (\TEDIT.TEXTGETFILEPTR 122306 . 125141) (\TEDIT.TEXTSETFILEINFO 125143 . 125651) (
+\TEDIT.TEXTOPENF 125653 . 126584) (\TEDIT.TEXTSETEOF 126586 . 127202) (\TEDIT.TEXTSETFILEPTR 127204 . 
+129314) (\TEDIT.TEXTDSPXPOSITION 129316 . 130333) (\TEDIT.TEXTDSPYPOSITION 130335 . 131076) (
+\TEDIT.TEXTLEFTMARGIN 131078 . 131669) (\TEDIT.TEXTCOLOR 131671 . 132254) (\TEDIT.TEXTRIGHTMARGIN 
+132256 . 135545) (\TEDIT.TEXTDSPCHARWIDTH 135547 . 135851) (\TEDIT.TEXTDSPSTRINGWIDTH 135853 . 136159)
+ (\TEDIT.TEXTDSPLINEFEED 136161 . 136394)) (136434 149047 (\TEDIT.NTHCHARCODE 136444 . 137895) (
+\TEDIT.PIECE.NTHCHARCODE 137897 . 141807) (\TEDIT.RPLCHARCODE 141809 . 143267) (
+\TEDIT.PIECE.RPLCHARCODE 143269 . 148692) (\TEDIT.NTHCHARLOOKS 148694 . 149045)) (150094 171188 (
+\TEDIT.DELETE.SELPIECES 150104 . 153729) (\TEDIT.INSERTCH 153731 . 161770) (\TEDIT.INSERTCH.HISTORY 
+161772 . 165236) (\TEDIT.INSERTEOL 165238 . 167063) (\TEDIT.INSERTCH.INSERTION 167065 . 169902) (
+\TEDIT.INSERTCH.EXTEND 169904 . 171186)) (171189 172693 (\TEDIT.NEXTCHANGEABLE.CHNO 171199 . 171914) (
+\TEDIT.LASTCHANGEABLE.CHNO 171916 . 172691)) (172694 174398 (\SETUPGETCH 172704 . 174396)) (174456 
+178914 (\TEDIT.INSTALL.PIECE 174466 . 178912)) (178952 188053 (TEXTPROP 178962 . 179309) (GETTEXTPROP 
+179311 . 179555) (PUTTEXTPROP 179557 . 179814) (GETTEXTPROPS 179816 . 180260) (PUTTEXTPROPS 180262 . 
+181166) (TEXTPROP.ADD 181168 . 181431) (\TEDIT.TEXTPROP 181433 . 188051)) (188054 190124 (
+\TEDIT.TEXTOBJ.PROPNAMES 188064 . 189016) (\TEDIT.TEXTOBJ.PROPFETCHFN 189018 . 189534) (
+\TEDIT.TEXTOBJ.PROPSTOREFN 189536 . 190122)))))
 STOP
diff --git a/library/tedit/TEDIT-STREAM.LCOM b/library/tedit/TEDIT-STREAM.LCOM
index db865580..c061e90d 100644
Binary files a/library/tedit/TEDIT-STREAM.LCOM and b/library/tedit/TEDIT-STREAM.LCOM differ
diff --git a/library/tedit/TEDIT-TFBRAVO b/library/tedit/TEDIT-TFBRAVO
index 9e2b9b10..68f72383 100644
--- a/library/tedit/TEDIT-TFBRAVO
+++ b/library/tedit/TEDIT-TFBRAVO
@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "28-Jul-2025 23:34:14" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-TFBRAVO.;185 97353  
+(FILECREATED " 7-Sep-2025 11:11:43" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-TFBRAVO.;187 97463  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TFBRAVO.INSERT.RUN \TFBRAVO.INIT.PARALOOKS)
+      :CHANGES-TO (FNS TEDITFROMBRAVO \TFBRAVO.FONT.FROM.CHARLOOKS)
 
-      :PREVIOUS-DATE "10-May-2025 12:53:24" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;183)
+      :PREVIOUS-DATE "28-Jul-2025 23:34:14" {WMEDLEY}<library>TEDIT>TEDIT-TFBRAVO.;185)
 
 
 (PRETTYCOMPRINT TEDIT-TFBRAVOCOMS)
@@ -186,7 +186,8 @@
           (RETURN T])
 
 (TEDITFROMBRAVO
-  [LAMBDA (BFILE TSTREAM PROPS USER.CM)                      (* ; "Edited  9-May-2025 09:18 by rmk")
+  [LAMBDA (BFILE TSTREAM PROPS USER.CM)                      (* ; "Edited  7-Sep-2025 11:09 by rmk")
+                                                             (* ; "Edited  9-May-2025 09:18 by rmk")
                                                              (* ; "Edited 28-Mar-2025 14:16 by rmk")
                                                              (* ; "Edited 19-Feb-2025 12:13 by rmk")
                                                              (* ; "Edited  8-Feb-2025 23:03 by rmk")
@@ -248,7 +249,7 @@
                  (for CHARLOOKS in (GETTOBJ TEXTOBJ TXTCHARLOOKSLIST)
                     do (SETCLOOKS CHARLOOKS CLUSERINFO NIL))
                  (\TEDIT.UNIQUIFY.ALL TEXTOBJ)               (* ; "Lists are complete and unique")
-                 (\TEDIT.TRANSLATE.ASCIICHARS TSTREAM)
+                 (\TEDIT.MCCS.TRANSLATE TSTREAM)
                  (TEDIT.SETSEL TEXTOBJ 1 0 'LEFT)
                  (RETURN TSTREAM)))])
 )
@@ -783,11 +784,12 @@
                             RUNLAST _ LAST])
 
 (\TFBRAVO.FONT.FROM.CHARLOOKS
-  [LAMBDA (CHARLOOKS FAMILY SIZE BOLD ITALIC)                (* ; "Edited  2-Jan-2025 23:43 by rmk")
+  [LAMBDA (CHARLOOKS FAMILY SIZE BOLD ITALIC)                (* ; "Edited  7-Sep-2025 11:02 by rmk")
+                                                             (* ; "Edited  2-Jan-2025 23:43 by rmk")
                                                              (* ; "Edited  1-Aug-2023 13:21 by rmk")
                                                              (* ; "Edited 31-May-91 15:26 by jds")
 
-    (* ;; "Takes a TEDIT CHARLOOKS with fields filled in (CLNAME = family name) and creates the font to fill it.")
+    (* ;; "Takes a TEDIT CHARLOOKS with fields filled in and creates the font to fill it.")
 
     [LET ((OLDFONT (GETCLOOKS CHARLOOKS CLFONT)))
          (CL:WHEN (EQ FAMILY 'OFF)
@@ -798,14 +800,13 @@
              [SETQ BOLD (EQ 'BOLD (FONTPROP OLDFONT 'WEIGHT])
          (CL:WHEN (EQ ITALIC 'OFF)
              [SETQ ITALIC (EQ 'ITALIC (FONTPROP OLDFONT 'SLOPE])
-         [SETCLOOKS CHARLOOKS CLFONT (FONTCREATE FAMILY SIZE (LIST (CL:IF BOLD
+         (SETCLOOKS CHARLOOKS CLFONT (FONTCREATE FAMILY SIZE (LIST (CL:IF BOLD
                                                                        'BOLD
                                                                        'MEDIUM)
                                                                    (CL:IF ITALIC
                                                                        'ITALIC
                                                                        'REGULAR)
                                                                    'REGULAR]
-         (SETCLOOKS CHARLOOKS CLNAME (FONTUNPARSE (GETCLOOKS CHARLOOKS CLFONT]
     CHARLOOKS])
 
 (\TFBRAVO.READNUM?
@@ -1555,18 +1556,18 @@
 (AND NIL (\TEDIT.NAMEDTAB.INIT))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7665 14656 (TEDIT.BRAVOFILE? 7675 . 9405) (TEDITFROMBRAVO 9407 . 14654)) (14767 31183 (
-\TFBRAVO.GET.USER.CM 14777 . 17957) (\TFBRAVO.USER.CM.LOOKS 17959 . 19452) (\TFBRAVO.READ.USER.CM 
-19454 . 24077) (\TFBRAVO.INIT.PARALOOKS 24079 . 26296) (\TFBRAVO.INIT.PAGEFORMAT 26298 . 27178) (
-\TFBRAVO.GETPARAMS 27180 . 30034) (\TFBRAVO.FIND.LAST.TRAILER 30036 . 31181)) (31225 51923 (
-\TFBRAVO.PARSE.PARA 31235 . 35162) (\TFBRAVO.READ.PARALOOKS 35164 . 42054) (\TFBRAVO.CREATE.RUNS 42056
- . 43444) (\TFBRAVO.READ.CHARLOOKS 43446 . 48475) (\TFBRAVO.FONT.FROM.CHARLOOKS 48477 . 50024) (
-\TFBRAVO.READNUM? 50026 . 51921)) (51960 63001 (\TFBRAVO.HANDLE.HEADING 51970 . 54697) (
-\TFBRAVO.PARSE.PROFILE.PARA 54699 . 62999)) (63044 85378 (\TFBRAVO.INSERT.PARA 63054 . 63895) (
-\TFBRAVO.INSERT.RUN 63897 . 67388) (\TFBRAVO.SPLIT.PARA 67390 . 74814) (\TFBRAVO.RUN.TABSPEC 74816 . 
-79683) (\TFBRAVO.INSTALL.PAGEFORMAT 79685 . 85376)) (85379 89522 (\TFBRAVO.ASSERT 85389 . 85919) (
-\TEST.CHARACTER.LOOKS 85921 . 87807) (\TEST.PARAGRAPH.LOOKS 87809 . 89520)) (90532 97187 (
-\TFBRAVO.ADD.NAMEDTAB 90542 . 94145) (\TFBRAVO.COPY.NAMEDTAB 94147 . 94595) (\TFBRAVO.PUT.NAMEDTAB 
-94597 . 94877) (\TFBRAVO.GET.NAMEDTAB 94879 . 95256) (\NAMEDTABNYET 95258 . 95418) (\NAMEDTABSIZE 
-95420 . 95935) (\NAMEDTABPREPRINT 95937 . 96135) (\TEDIT.NAMEDTAB.INIT 96137 . 97185)))))
+  (FILEMAP (NIL (7665 14759 (TEDIT.BRAVOFILE? 7675 . 9405) (TEDITFROMBRAVO 9407 . 14757)) (14870 31286 (
+\TFBRAVO.GET.USER.CM 14880 . 18060) (\TFBRAVO.USER.CM.LOOKS 18062 . 19555) (\TFBRAVO.READ.USER.CM 
+19557 . 24180) (\TFBRAVO.INIT.PARALOOKS 24182 . 26399) (\TFBRAVO.INIT.PAGEFORMAT 26401 . 27281) (
+\TFBRAVO.GETPARAMS 27283 . 30137) (\TFBRAVO.FIND.LAST.TRAILER 30139 . 31284)) (31328 52033 (
+\TFBRAVO.PARSE.PARA 31338 . 35265) (\TFBRAVO.READ.PARALOOKS 35267 . 42157) (\TFBRAVO.CREATE.RUNS 42159
+ . 43547) (\TFBRAVO.READ.CHARLOOKS 43549 . 48578) (\TFBRAVO.FONT.FROM.CHARLOOKS 48580 . 50134) (
+\TFBRAVO.READNUM? 50136 . 52031)) (52070 63111 (\TFBRAVO.HANDLE.HEADING 52080 . 54807) (
+\TFBRAVO.PARSE.PROFILE.PARA 54809 . 63109)) (63154 85488 (\TFBRAVO.INSERT.PARA 63164 . 64005) (
+\TFBRAVO.INSERT.RUN 64007 . 67498) (\TFBRAVO.SPLIT.PARA 67500 . 74924) (\TFBRAVO.RUN.TABSPEC 74926 . 
+79793) (\TFBRAVO.INSTALL.PAGEFORMAT 79795 . 85486)) (85489 89632 (\TFBRAVO.ASSERT 85499 . 86029) (
+\TEST.CHARACTER.LOOKS 86031 . 87917) (\TEST.PARAGRAPH.LOOKS 87919 . 89630)) (90642 97297 (
+\TFBRAVO.ADD.NAMEDTAB 90652 . 94255) (\TFBRAVO.COPY.NAMEDTAB 94257 . 94705) (\TFBRAVO.PUT.NAMEDTAB 
+94707 . 94987) (\TFBRAVO.GET.NAMEDTAB 94989 . 95366) (\NAMEDTABNYET 95368 . 95528) (\NAMEDTABSIZE 
+95530 . 96045) (\NAMEDTABPREPRINT 96047 . 96245) (\TEDIT.NAMEDTAB.INIT 96247 . 97295)))))
 STOP
diff --git a/library/tedit/TEDIT-TFBRAVO.LCOM b/library/tedit/TEDIT-TFBRAVO.LCOM
index b6b5aa02..70a477eb 100644
Binary files a/library/tedit/TEDIT-TFBRAVO.LCOM and b/library/tedit/TEDIT-TFBRAVO.LCOM differ
diff --git a/library/tedit/TEDIT.LCOM b/library/tedit/TEDIT.LCOM
index b65f4bca..3f9c88b3 100644
Binary files a/library/tedit/TEDIT.LCOM and b/library/tedit/TEDIT.LCOM differ
