diff --git a/library/tedit/TEDIT-STREAM b/library/tedit/TEDIT-STREAM
index 94102138..259b7c43 100644
--- a/library/tedit/TEDIT-STREAM
+++ b/library/tedit/TEDIT-STREAM
@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Sep-2025 22:08:09" {WMEDLEY}<library>tedit>TEDIT-STREAM.;915 190872 
+(FILECREATED "20-Sep-2025 08:49:36" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;919 191988 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS OPENTEXTSTREAM)
-                  (RECORDS TEXTOBJ)
+      :CHANGES-TO (RECORDS TEXTSTREAM)
+                  (FNS \TEDIT.TEXTINIT \TEDIT.TEXTDSPXPOSITION)
 
-      :PREVIOUS-DATE " 8-Sep-2025 22:10:32" {WMEDLEY}<library>tedit>TEDIT-STREAM.;913)
+      :PREVIOUS-DATE "18-Sep-2025 23:09:35" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;917)
 
 
 (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -285,14 +285,14 @@
                           ACCESS _ 'BOTH
                           USERCLOSEABLE _ T
                           USERVISIBLE _ T
-                          DEVICE _ \TEXTFDEV
+                          DEVICE _ \TEDITFDEV
                           F1 _ NIL
                           F2 _ 0
                           F3 _ NIL
                           F4 _ NIL
                           F5 _ NIL
                           MAXBUFFERS _ 10
-                          IMAGEOPS _ \TEXTIMAGEOPS
+                          IMAGEOPS _ \TEDITIMAGEOPS
                           IMAGEDATA _ NIL)))
 )
 
@@ -1658,7 +1658,8 @@
          (SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])
 
 (\TEDIT.OPENTEXTFILE
-  [LAMBDA (TEXT PROPS)                                       (* ; "Edited  8-Sep-2025 21:52 by rmk")
+  [LAMBDA (TEXT PROPS)                                       (* ; "Edited 16-Sep-2025 00:28 by rmk")
+                                                             (* ; "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")
@@ -1667,24 +1668,26 @@
                                                              (* ; "Edited 18-Sep-2023 22:40 by rmk")
                                                              (* ; "Edited 17-Sep-2023 21:29 by rmk")
     (CL:WHEN TEXT
-        (if (OR (LITATOM TEXT)
-                (STRINGP TEXT)
-                (CL:PATHNAMEP TEXT))
+        (if (\GETSTREAM TEXT 'INPUT T)
+          elseif (OR (LITATOM TEXT)
+                     (STRINGP TEXT)
+                     (CL:PATHNAMEP TEXT)
+                     (STREAMP TEXT))
             then                                             (* ; "String detects empty extension")
-                 [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)
+                 [RESETSAVE [SETQ TEXT (OPENSTREAM (if (STREAMP TEXT)
+                                                     elseif (OR (CL:PATHNAMEP TEXT)
+                                                                (FILENAMEFIELD.STRING TEXT
+                                                                       'EXTENSION))
+                                                       then (FINDFILE TEXT T)
+                                                     elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL 
+                                                                   *TEDIT-EXTENSIONS*)
+                                                     else 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")
 
@@ -1749,7 +1752,9 @@
                 NEWSTREAM])
 
 (\TEDIT.TEXTINIT
-  [LAMBDA NIL                                                (* ; "Edited 10-Jul-2025 11:28 by rmk")
+  [LAMBDA NIL                                                (* ; "Edited 20-Sep-2025 08:48 by rmk")
+                                                             (* ; "Edited 18-Sep-2025 14:52 by rmk")
+                                                             (* ; "Edited 10-Jul-2025 11:28 by rmk")
                                                              (* ; "Edited 15-Apr-2025 23:10 by rmk")
                                                              (* ; "Edited  4-Sep-2024 22:05 by rmk")
                                                              (* ; "Edited 22-May-2024 14:53 by rmk")
@@ -1763,11 +1768,11 @@
                                                              (* ; "Edited  5-May-2022 15:12 by rmk")
                                                             (* ; "Edited  7-Oct-2021 08:40 by rmk:")
                                                              (* ; 
-                                            "Create the FDEV and STREAM prototypes for TEXT streams.")
+                                           "Create the FDEV and STREAM prototypes for TEDIT streams.")
 
-    (* ;; "TEXT streams make use of the following STREAM fields:")
+    (* ;; "TEDIT streams make use of the following STREAM fields:")
 
-    (* ;; "(DEVICE (* FDEV of this guy -- The TEXT device)")
+    (* ;; "(DEVICE (* FDEV of this guy -- The TEDIT device)")
 
     (* ;; "F1 Number of characters to the end of the current piece")
 
@@ -1785,24 +1790,28 @@
 
     (* ;; "(FW8 WORD)")
 
-    (SETQ \TEXTIMAGEOPS (create IMAGEOPS
-                               IMAGETYPE _ 'TEXT
-                               IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION)
-                               IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION)
-                               IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN)
-                               IMRIGHTMARGIN _ (FUNCTION \TEDIT.TEXTRIGHTMARGIN)
-                               IMFONT _ (FUNCTION \TEDIT.TEXTDSPFONT)
-                               IMCLOSEFN _ (FUNCTION NILL)
-                               IMFONTCREATE _ 'DISPLAY
-                               IMLINEFEED _ (FUNCTION \TEDIT.TEXTDSPLINEFEED)
-                               IMCHARWIDTH _ (FUNCTION \TEDIT.TEXTDSPCHARWIDTH)
-                               IMSTRINGWIDTH _ (FUNCTION \TEDIT.TEXTDSPSTRINGWIDTH)
-                               IMSCALE _ [FUNCTION (LAMBDA NIL 1]
-                               IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR)))
+    (SETQ \TEDITIMAGEOPS (create IMAGEOPS
+                                IMAGETYPE _ 'TEDIT
+                                IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION)
+                                IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION)
+                                IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN)
+                                IMRIGHTMARGIN _ (FUNCTION \TEDIT.TEXTRIGHTMARGIN)
+                                IMFONT _ (FUNCTION \TEDIT.TEXTDSPFONT)
+                                IMCLOSEFN _ (FUNCTION NILL)
+                                IMFONTCREATE _ 'DISPLAY
+                                IMLINEFEED _ (FUNCTION \TEDIT.TEXTDSPLINEFEED)
+                                IMCHARWIDTH _ (FUNCTION \TEDIT.TEXTDSPCHARWIDTH)
+                                IMSTRINGWIDTH _ (FUNCTION \TEDIT.TEXTDSPSTRINGWIDTH)
+                                IMSCALE _ [FUNCTION (LAMBDA NIL 1]
+                                IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR)))
+
+    (* ;; "Do we need TEXT here?")
+
     (FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY)
     (ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT)
-                                     (FONTSAVAILABLE \SEARCHFONTFILES)
                                      (CREATECHARSET \CREATECHARSET.DISPLAY)))
+    (ADDTOVAR IMAGESTREAMTYPES (TEDIT (FONTCREATE \CREATEDISPLAYFONT)
+                                      (CREATECHARSET \CREATECHARSET.DISPLAY)))
 
     (* ;; "Maybe more functions later. The INCODE and BACK functions possibly need to count.  If \TEXTBACKFILEPTR takes a count variable, the extra level wouldn't be needed.  But INCCODE wants to go through the BIN opcode")
 
@@ -1812,41 +1821,41 @@
            (FUNCTION \TEDIT.TEXTOUTCHARFN)
            (FUNCTION \TEDIT.TEXTFORMATBYTESTREAM)
            'CR NIL (FUNCTION \TEDIT.TEXTFORMATBYTESTRING))
-    (SETQ \TEXTFDEV (create FDEV
-                           DEVICENAME _ 'TEXT
-                           RESETABLE _ T
-                           RANDOMACCESSP _ T
-                           PAGEMAPPED _ NIL
-                           GETFILENAME _ (FUNCTION NILL)
-                           BIN _ (FUNCTION \TEDIT.TEXTBIN)
-                           BOUT _ (FUNCTION \TEDIT.TEXTBOUT)
-                           CLOSEFILE _ (FUNCTION \TEDIT.TEXTCLOSEF)
-                           OPENFILE _ (FUNCTION \TEDIT.TEXTOPENF)
-                           DELETEFILE _ (FUNCTION NILL)
-                           DIRECTORYNAMEP _ (FUNCTION NILL)
-                           EVENTFN _ (FUNCTION NILL)
-                           GENERATEFILES _ (FUNCTION \GENERATENOFILES)
-                           GETFILEINFO _ (FUNCTION NILL)
-                           HOSTNAMEP _ (FUNCTION NILL)
-                           READPAGES _ (FUNCTION NILL)
-                           REOPENFILE _ [FUNCTION (LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV STREAM)
-                                                    (replace (STREAM ACCESS) of STREAM
-                                                       with 'BOTH)
-                                                    STREAM]
-                           SETFILEINFO _ (FUNCTION \TEDIT.TEXTSETFILEINFO)
-                           BACKFILEPTR _ (FUNCTION \TEDIT.TEXTBACKFILEPTR)
-                           SETFILEPTR _ (FUNCTION \TEDIT.TEXTSETFILEPTR)
-                           PEEKBIN _ (FUNCTION \TEDIT.TEXTPEEKBIN)
-                           GETEOFPTR _ (FUNCTION \TEDIT.TEXTGETEOFPTR)
-                           SETEOFPTR _ (FUNCTION \TEDIT.TEXTSETEOFPTR)
-                           GETFILEPTR _ (FUNCTION \TEDIT.TEXTGETFILEPTR)
-                           EOFP _ (FUNCTION \TEDIT.TEXTEOFP)
-                           FDBINABLE _ T
-                           FDBOUTABLE _ NIL
-                           FDEXTENDABLE _ NIL
-                           TRUNCATEFILE _ (FUNCTION NILL)
-                           WRITEPAGES _ (FUNCTION NILL)
-                           DEFAULTEXTERNALFORMAT _ :TEXTSTREAM))
+    (SETQ \TEDITFDEV (create FDEV
+                            DEVICENAME _ 'TEDIT
+                            RESETABLE _ T
+                            RANDOMACCESSP _ T
+                            PAGEMAPPED _ NIL
+                            GETFILENAME _ (FUNCTION NILL)
+                            BIN _ (FUNCTION \TEDIT.TEXTBIN)
+                            BOUT _ (FUNCTION \TEDIT.TEXTBOUT)
+                            CLOSEFILE _ (FUNCTION \TEDIT.TEXTCLOSEF)
+                            OPENFILE _ (FUNCTION \TEDIT.TEXTOPENF)
+                            DELETEFILE _ (FUNCTION NILL)
+                            DIRECTORYNAMEP _ (FUNCTION NILL)
+                            EVENTFN _ (FUNCTION NILL)
+                            GENERATEFILES _ (FUNCTION \GENERATENOFILES)
+                            GETFILEINFO _ (FUNCTION NILL)
+                            HOSTNAMEP _ (FUNCTION NILL)
+                            READPAGES _ (FUNCTION NILL)
+                            REOPENFILE _ [FUNCTION (LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV STREAM)
+                                                     (replace (STREAM ACCESS) of STREAM
+                                                        with 'BOTH)
+                                                     STREAM]
+                            SETFILEINFO _ (FUNCTION \TEDIT.TEXTSETFILEINFO)
+                            BACKFILEPTR _ (FUNCTION \TEDIT.TEXTBACKFILEPTR)
+                            SETFILEPTR _ (FUNCTION \TEDIT.TEXTSETFILEPTR)
+                            PEEKBIN _ (FUNCTION \TEDIT.TEXTPEEKBIN)
+                            GETEOFPTR _ (FUNCTION \TEDIT.TEXTGETEOFPTR)
+                            SETEOFPTR _ (FUNCTION \TEDIT.TEXTSETEOFPTR)
+                            GETFILEPTR _ (FUNCTION \TEDIT.TEXTGETFILEPTR)
+                            EOFP _ (FUNCTION \TEDIT.TEXTEOFP)
+                            FDBINABLE _ T
+                            FDBOUTABLE _ NIL
+                            FDEXTENDABLE _ NIL
+                            TRUNCATEFILE _ (FUNCTION NILL)
+                            WRITEPAGES _ (FUNCTION NILL)
+                            DEFAULTEXTERNALFORMAT _ :TEXTSTREAM))
     (CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN)
            (FUNCTION (LAMBDA (CONDITION)
                        (LET ((STREAM (STREAM-ERROR-STREAM CONDITION)))
@@ -2091,7 +2100,8 @@
              (\TEDIT.INSTALL.PIECE TSTREAM PC (- CH# START-OF-PIECE)))])
 
 (\TEDIT.TEXTDSPXPOSITION
-  [LAMBDA (TSTREAM XPOSITION)                                (* ; "Edited 25-Jun-2024 11:59 by rmk")
+  [LAMBDA (TSTREAM XPOSITION)                                (* ; "Edited 20-Sep-2025 08:30 by rmk")
+                                                             (* ; "Edited 25-Jun-2024 11:59 by rmk")
                                                              (* ; "Edited 17-Mar-2024 12:15 by rmk")
                                                             (* ; "Edited  3-Jan-2001 17:27 by rmk:")
                                                   (* ; 
@@ -2100,13 +2110,18 @@
     (* ;; 
   "Simply returns the XPOSITION of the primary window's display stream, this is a read-only function")
 
-    (LET ((WINDOW (\TEDIT.PRIMARYPANE TSTREAM)))             (* ; 
+    (LET ((WINDOW (\TEDIT.PRIMARYPANE TSTREAM))
+          SPACEWIDTH)                                        (* ; 
                                             "If there is no window, estimate from character position")
-         (CL:IF WINDOW
-             (DSPXPOSITION NIL WINDOW)
-             (TIMES (CHARWIDTH (CHARCODE SPACE)
-                           TSTREAM)
-                    (POSITION TSTREAM)))])
+         (if WINDOW
+             then (DSPXPOSITION XPOSITION WINDOW)
+           else (SETQ SPACEWIDTH (CHARWIDTH (CHARCODE SPACE)
+                                        TSTREAM))
+                (PROG1 (TIMES SPACEWIDTH (POSITION TSTREAM))
+                    (CL:WHEN (AND XPOSITION (IGEQ XPOSITION 0))
+                        (SPACES (IDIFFERENCE (QUOTIENT XPOSITION SPACEWIDTH)
+                                       (POSITION TSTREAM))
+                               TSTREAM)))])
 
 (\TEDIT.TEXTDSPYPOSITION
   [LAMBDA (TSTREAM YPOSITION)                                (* ; "Edited 25-Jun-2024 11:59 by rmk")
@@ -3120,34 +3135,34 @@
 (ADDTOVAR LAMA TEXTPROP)
 )
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (36954 67770 (\TEDIT.TEXTBIN 36964 . 47714) (\TEDIT.TEXTPEEKBIN 47716 . 53266) (
+\TEDIT.TEXTBACKFILEPTR 53268 . 58941) (\TEDIT.TEXTBOUT 58943 . 63560) (\TEDIT.INSTALL.FILEBUFFER 63562
+ . 67768)) (68668 72959 (\TEDIT.TEXTOUTCHARFN 68678 . 70234) (\TEDIT.TEXTINCCODEFN 70236 . 70975) (
+\TEDIT.TEXTBACKCCODEFN 70977 . 71569) (\TEDIT.TEXTFORMATBYTESTREAM 71571 . 72408) (
+\TEDIT.TEXTFORMATBYTESTRING 72410 . 72957)) (73006 84570 (OPENTEXTSTREAM 73016 . 79891) (
+COPYTEXTSTREAM 79893 . 83793) (TEDIT.STREAMCHANGEDP 83795 . 84097) (TXTFILE 84099 . 84568)) (84571 
+115705 (\TEDIT.REOPENTEXTSTREAM 84581 . 85933) (\TEDIT.OPENTEXTSTREAM.PIECES 85935 . 90863) (
+\TEDIT.OPENTEXTSTREAM.PROPS 90865 . 91967) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91969 . 97210) (
+\TEDIT.OPENTEXTSTREAM.WINDOW 97212 . 100003) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100005 . 101944) (
+\TEDIT.OPENTEXTFILE 101946 . 104423) (\TEDIT.CREATE.TEXTSTREAM 104425 . 105572) (\TEDIT.REOPEN.STREAM 
+105574 . 107910) (\TEDIT.TEXTINIT 107912 . 115703)) (115743 116931 (\TEDIT.TTYBOUT 115753 . 116929)) (
+117049 137512 (\TEDIT.TEXTCLOSEF 117059 . 118383) (\TEDIT.TEXTDSPFONT 118385 . 119583) (
+\TEDIT.TEXTEOFP 119585 . 121340) (\TEDIT.TEXTGETEOFPTR 121342 . 121665) (\TEDIT.TEXTSETEOFPTR 121667
+ . 122954) (\TEDIT.TEXTGETFILEPTR 122956 . 125791) (\TEDIT.TEXTSETFILEINFO 125793 . 126301) (
+\TEDIT.TEXTOPENF 126303 . 127234) (\TEDIT.TEXTSETEOF 127236 . 127852) (\TEDIT.TEXTSETFILEPTR 127854 . 
+129964) (\TEDIT.TEXTDSPXPOSITION 129966 . 131449) (\TEDIT.TEXTDSPYPOSITION 131451 . 132192) (
+\TEDIT.TEXTLEFTMARGIN 132194 . 132785) (\TEDIT.TEXTCOLOR 132787 . 133370) (\TEDIT.TEXTRIGHTMARGIN 
+133372 . 136661) (\TEDIT.TEXTDSPCHARWIDTH 136663 . 136967) (\TEDIT.TEXTDSPSTRINGWIDTH 136969 . 137275)
+ (\TEDIT.TEXTDSPLINEFEED 137277 . 137510)) (137550 150163 (\TEDIT.NTHCHARCODE 137560 . 139011) (
+\TEDIT.PIECE.NTHCHARCODE 139013 . 142923) (\TEDIT.RPLCHARCODE 142925 . 144383) (
+\TEDIT.PIECE.RPLCHARCODE 144385 . 149808) (\TEDIT.NTHCHARLOOKS 149810 . 150161)) (151210 172304 (
+\TEDIT.DELETE.SELPIECES 151220 . 154845) (\TEDIT.INSERTCH 154847 . 162886) (\TEDIT.INSERTCH.HISTORY 
+162888 . 166352) (\TEDIT.INSERTEOL 166354 . 168179) (\TEDIT.INSERTCH.INSERTION 168181 . 171018) (
+\TEDIT.INSERTCH.EXTEND 171020 . 172302)) (172305 173809 (\TEDIT.NEXTCHANGEABLE.CHNO 172315 . 173030) (
+\TEDIT.LASTCHANGEABLE.CHNO 173032 . 173807)) (173810 175514 (\SETUPGETCH 173820 . 175512)) (175572 
+180030 (\TEDIT.INSTALL.PIECE 175582 . 180028)) (180068 189169 (TEXTPROP 180078 . 180425) (GETTEXTPROP 
+180427 . 180671) (PUTTEXTPROP 180673 . 180930) (GETTEXTPROPS 180932 . 181376) (PUTTEXTPROPS 181378 . 
+182282) (TEXTPROP.ADD 182284 . 182547) (\TEDIT.TEXTPROP 182549 . 189167)) (189170 191240 (
+\TEDIT.TEXTOBJ.PROPNAMES 189180 . 190132) (\TEDIT.TEXTOBJ.PROPFETCHFN 190134 . 190650) (
+\TEDIT.TEXTOBJ.PROPSTOREFN 190652 . 191238)))))
 STOP
diff --git a/library/tedit/TEDIT-STREAM.LCOM b/library/tedit/TEDIT-STREAM.LCOM
index c061e90d..eef99860 100644
Binary files a/library/tedit/TEDIT-STREAM.LCOM and b/library/tedit/TEDIT-STREAM.LCOM differ
diff --git a/library/tedit/tedit-exports.all b/library/tedit/tedit-exports.all
index bf6bd542..7ad44b83 100644
--- a/library/tedit/tedit-exports.all
+++ b/library/tedit/tedit-exports.all
@@ -1,11 +1,9 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Sep-2025 21:49:59" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;241 52904  
+(FILECREATED "20-Sep-2025 11:04:51" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;242 52344  
 
-      :EDIT-BY rmk
-
-      :PREVIOUS-DATE " 8-Sep-2025 23:06:31" {WMEDLEY}<library>TEDIT>tedit-exports.all;240)
+      :EDIT-BY rmk)
 
 
 (PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION 
@@ -367,7 +365,7 @@ NEWVALUE)) (* ;
 ) (STARTINGCOFFSET (fetch (STREAM F2) of DATUM) (replace (STREAM F2) of DATUM with NEWVALUE))) (TYPE? 
 (AND (type? STREAM DATUM) (type? TEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of DATUM)))) (CREATE (create 
 STREAM BINABLE _ NIL BOUTABLE _ NIL ACCESS _ (QUOTE BOTH) USERCLOSEABLE _ T USERVISIBLE _ T DEVICE _ 
-\TEXTFDEV F1 _ NIL F2 _ 0 F3 _ NIL F4 _ NIL F5 _ NIL MAXBUFFERS _ 10 IMAGEOPS _ \TEXTIMAGEOPS 
+\TEDITFDEV F1 _ NIL F2 _ 0 F3 _ NIL F4 _ NIL F5 _ NIL MAXBUFFERS _ 10 IMAGEOPS _ \TEDITIMAGEOPS 
 IMAGEDATA _ NIL)))
 (PUTPROPS NEXTPIECE MACRO ((PC) (ffetch (PIECE NEXTPIECE) of PC)))
 (PUTPROPS PREVPIECE MACRO ((PC) (ffetch (PIECE PREVPIECE) of PC)))
@@ -440,7 +438,7 @@ UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE F
 BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE 
 THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
 (GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV)
-(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:49:53"))
+(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "20-Sep-2025 08:49:36"))
 (PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;; 
 "Test to see if only the specified mouse button is down.  DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called."
 ) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1))
@@ -537,7 +535,7 @@ LINELEAD _ 0)
 (PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with 
 NEWVALUE)))
 (PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS))))
-(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:48:14"))
+(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 9-Sep-2025 21:55:31"))
 (PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43"))
 (DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition
  is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T
@@ -600,19 +598,9 @@ OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BOD
 GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO 
 $$OUT)))))
 (PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS))))
-(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "11-Aug-2025 21:22:37"))
+(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "18-Sep-2025 23:09:24"))
 (PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "30-Apr-2025 14:09:18"))
-(RPAQQ PTSPERPICA 12)
-(RPAQQ PTSPERINCH 72)
-(RPAQQ PICASPERINCH 6)
-(RPAQQ MICASPERINCH 2540)
-(RPAQ PTSPERCM (FQUOTIENT PTSPERINCH 2.54))
-(RPAQ PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH))
-(RPAQ MICASPERPOINT (FQUOTIENT MICASPERINCH PTSPERINCH))
-(CONSTANTS (PTSPERPICA 12) (PTSPERINCH 72) (PICASPERINCH 6) (MICASPERINCH 2540) (PTSPERCM (FQUOTIENT 
-PTSPERINCH 2.54)) (PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) (MICASPERPOINT (FQUOTIENT 
-MICASPERINCH PTSPERINCH)))
-(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:26:01"))
+(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "10-Sep-2025 17:08:43"))
 (PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57"))
 (RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) (
 UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT 
@@ -620,7 +608,7 @@ UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD
 (CONSTANTS \TEDIT.TTCCODES)
 (PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES)))))
 (PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 7-Aug-2025 15:00:51"))
-(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 19:07:23"))
+(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 17:08:05"))
 (DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (* 
 ; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?") 
 THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ; 
@@ -669,7 +657,7 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R
 $$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP 
 $$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES))))))))))))
 (PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS)))))
-(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE " 5-Jun-2025 08:24:12"))
+(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 22:09:03"))
 (PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE " 6-Sep-2025 00:10:45"))
 (PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 7-Sep-2025 11:11:43"))
 (DECLARE%: DONTCOPY
