diff --git a/library/MASTERSCOPE b/library/MASTERSCOPE
index 9261c28d..a6006ac2 100644
--- a/library/MASTERSCOPE
+++ b/library/MASTERSCOPE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29 197994 
+(FILECREATED "24-Aug-2025 13:45:51" {WMEDLEY}<library>MASTERSCOPE.;30 197199 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MSOUTPUT)
+      :CHANGES-TO (FNS MSINTERPRET)
 
-      :PREVIOUS-DATE "14-Jul-2024 08:42:20" {WMEDLEY}<library>MASTERSCOPE.;28)
+      :PREVIOUS-DATE " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29)
 
 
 (PRETTYCOMPRINT MASTERSCOPECOMS)
@@ -2577,7 +2577,7 @@
 (* ; "interactive routines")
 
 
-(RPAQ MASTERSCOPEDATE " 5-Apr-2025")
+(RPAQ MASTERSCOPEDATE "24-Aug-2025")
 
 (ADDTOVAR HISTORYCOMS %.)
 (DEFINEQ
@@ -3258,7 +3258,8 @@
 (DEFINEQ
 
 (MSINTERPRET
-  [LAMBDA (COMMAND SUBROUTINE)                           (* ; "Edited 15-Aug-90 11:54 by jds")
+  [LAMBDA (COMMAND SUBROUTINE)                               (* ; "Edited 24-Aug-2025 13:45 by rmk")
+                                                             (* ; "Edited 15-Aug-90 11:54 by jds")
     (RESETLST
         [PROG (VAL EDITQUIETFLG)
               (SELECTQ (CAR COMMAND)
@@ -3288,12 +3289,12 @@
               (RETURN
                (SELECTQ (fetch (SENTENCE ID) of VAL)
                    (REANALYZE                                (* ; 
-                               "Definitly don't want to CHECKFORCHANGED before the ANALYZE is done")
+                                 "Definitly don't want to CHECKFORCHANGED before the ANALYZE is done")
 
                               (* ;; "From Lanning's Loops changes for Masterscope...")
 
                               (* ;; 
-         "(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)")
+           "(MAPC (MSLISTSET (CDR VAL) T 'KNOWN) (FUNCTION (LAMBDA (X) (UPDATEFN X T)))) (CL:VALUES)")
 
                               (* ;; "JRB - The MSANALYZEFNS hashtable hook is hereby flushed.")
 
@@ -3308,14 +3309,13 @@
                                (* ;; "SETTYPE is allowed to be NIL here...")
 
                                (if [AND SETTYPE (NULL (for MT in MSFNTYPES
-                                                             thereis (EQ SETTYPE
-                                                                             (fetch (MSANALYZABLE
-                                                                                         SETNAME)
+                                                         thereis (EQ SETTYPE (fetch (MSANALYZABLE
+                                                                                     SETNAME)
                                                                                 of MT]
                                    then (PRINTOUT T "Sorry, can't analyze " SETTYPE T)
-                                         (ERROR!)
+                                        (ERROR!)
                                  else (for X in SET do (UPDATEFN X T))
-                                       (CL:VALUES))))
+                                      (CL:VALUES))))
                    (ANALYZE (CHECKFORCHANGED (SETQ VAL (CDR VAL)))
 
                             (* ;; "From Lanning's Loops changes for Masterscope...")
@@ -3331,10 +3331,9 @@
 
                                   (COND
                                      ([AND SETTYPE (NULL (for MT in MSFNTYPES
-                                                            thereis (EQ SETTYPE
-                                                                            (fetch (MSANALYZABLE
+                                                            thereis (EQ SETTYPE (fetch (MSANALYZABLE
                                                                                         SETNAME)
-                                                                               of MT]
+                                                                                   of MT]
                                       (PRINTOUT T "Sorry, can't analyze " SETTYPE T)
                                       (ERROR!))
                                      ((EQ SET MSBLIP)
@@ -3343,8 +3342,7 @@
                                      (T (for X in SET do (UPDATEFN X T NIL SETTYPE))
                                         (CL:VALUES])
                    ((EDIT SHOW) 
-                        [PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID)
-                                                                       of VAL))
+                        [PROG (DONE NEEDUPDATE UPDATEALL TYPE (EDIT (fetch (SENTENCE ID) of VAL))
                                     REL SHOWSET (EDITCOMS (fetch OTHERSTUFF of VAL))
                                     (SUBJECT (fetch (SENTENCE SUBJECT) of VAL))
                                     (MSPRED (fetch (SENTENCE MSPRED) of VAL))
@@ -3352,7 +3350,7 @@
                               (DECLARE (SPECVARS TYPE SHOWSET EDIT EDITCOMS DONE))
                               [COND
                                  ((NULL MSPRED)              (* ; 
-                                                        "EDIT ANY CALLING FOO -- just call EDITFNS")
+                                                          "EDIT ANY CALLING FOO -- just call EDITFNS")
                                   (CHECKFORCHANGED SUBJECT)
                                   (RETURN (MAPC (MSLISTSET SUBJECT T)
                                                 (FUNCTION (LAMBDA (FN)
@@ -3365,10 +3363,8 @@
                                                                                       )
                                                                                T))
                                                                 (PRINT "failed" T]
-                              [SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch
-                                                                                   (MSSETPHRASE
-                                                                                    REP) of
-                                                                                         MSPRED]
+                              [SETQ REL (fetch (THAT MSVERB) of (SETQ REP (fetch (MSSETPHRASE REP)
+                                                                             of MSPRED]
                               (SETQ SHOWSET (fetch (THAT OTHERSET) of REP))
                               [COND
                                  ((EQ (fetch TENSE of REL)
@@ -3385,10 +3381,10 @@
                               (SETQ UPDATEALL (MSINTERPRETSET SUBJECT 'CHECK T))
                               [for FN in NEEDUPDATE
                                  do (COND
-                                           ((GETHASH FN MSCHANGEDARRAY)
-                                            (MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS)
-                                            (SETQ DONE (CONS FN DONE)))
-                                           (T (UPDATEFN FN]
+                                       ((GETHASH FN MSCHANGEDARRAY)
+                                        (MSSHOWUSE FN TYPE SHOWSET EDIT NIL EDITCOMS)
+                                        (SETQ DONE (CONS FN DONE)))
+                                       (T (UPDATEFN FN]
                               (COND
                                  (UPDATEALL [MAPHASH MSCHANGEDARRAY
                                                    (FUNCTION (LAMBDA (VAL KEY)
@@ -3397,28 +3393,28 @@
                                                                         (TESTRELQ (CALL NOTERROR)
                                                                                KEY T))
                                                                     (COND
-                                                                       ((MSSHOWUSE KEY TYPE 
-                                                                               SHOWSET EDIT
-                                                                               'CHANGED EDITCOMS)
+                                                                       ((MSSHOWUSE KEY TYPE SHOWSET 
+                                                                               EDIT 'CHANGED EDITCOMS
+                                                                               )
                                                                         (SETQ DONE (CONS KEY DONE]
                                         (MSCHECKEMPTY)))
                               (MAPC (MSLISTSET (MSJOINSET 'AND MSPRED SUBJECT)
                                            T)
                                     (FUNCTION (LAMBDA (AT)
                                                 (AND (NOT (FMEMB AT DONE))
-                                                     (MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS
-                                                            ]
+                                                     (MSSHOWUSE AT TYPE SHOWSET EDIT NIL EDITCOMS]
                         (CL:VALUES))
-                   (? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch MSPRED of VAL)
-                                                            (fetch SUBJECT of VAL]
+                   (? [CHECKFORCHANGED (SETQ VAL (MSJOINSET 'AND (fetch (SENTENCE MSPRED)
+                                                                    of VAL)
+                                                        (fetch (SENTENCE SUBJECT) of VAL]
                       (OR SUBROUTINE (TAB 0 0))
                       (MSSOLVE VAL))
                    (PATHS (PROG ([INVERTED
                                   (for X on (CDR VAL) bind FROMFOUND
                                      do (SELECTQ (CAAR X)
-                                                (FROM (SETQ FROMFOUND T))
-                                                (TO (RETURN (NOT FROMFOUND)))
-                                                NIL)
+                                            (FROM (SETQ FROMFOUND T))
+                                            (TO (RETURN (NOT FROMFOUND)))
+                                            NIL)
                                      finally
                                      (RETURN
                                       (COND
@@ -3439,8 +3435,7 @@
                                                          (CDR VAL)))
                                             NIL]
                                  NEEDUPDATE UPDATEALL TEM)
-                                (SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of
-                                                                                         VAL)))
+                                (SETQ UPDATEALL (CHECKPATHS (fetch MSPATHOPTIONS of VAL)))
                                 (for X in NEEDUPDATE do (UPDATEFN X))
                                 (COND
                                    (UPDATEALL (UPDATECHANGED)
@@ -3448,28 +3443,23 @@
                                 (COND
                                    ((SETQ TEM (fetch (PATHOPTIONS OUTPUT) of (CDR VAL)))
                                     (MSOUTPUT TEM)))
-                                (AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH)
-                                                  of (CDR VAL)))
+                                (AND (SETQ TEM (fetch (PATHOPTIONS LINELENGTH) of (CDR VAL)))
                                      (RESETSAVE (LINELENGTH TEM)))
 
                            (* ;; "Display paths;  must print all of FROM, with separate tree for all of SEPARATE (considered as a subset of FROM).  Stop when you get to a function in NOTRACE, -- unless TO is NIL, only print paths that eventually reach an element of TO.  If INVERTED is not NIL, print inverted tree.  Do not print out functions in AVOIDING")
 
                                 [SETQ MSTHOSE (MSPATHS [COND
-                                                              (INVERTED (fetch (PATHOPTIONS
-                                                                                    TO)
-                                                                           of (fetch 
-                                                                                        MSPATHOPTIONS
-                                                                                     of VAL)))
-                                                              (T (fetch (PATHOPTIONS FROM)
-                                                                    of (fetch MSPATHOPTIONS
-                                                                              of VAL]
+                                                          (INVERTED (fetch (PATHOPTIONS TO)
+                                                                       of (fetch MSPATHOPTIONS
+                                                                             of VAL)))
+                                                          (T (fetch (PATHOPTIONS FROM)
+                                                                of (fetch MSPATHOPTIONS of VAL]
                                                      [COND
                                                         (INVERTED (fetch (PATHOPTIONS FROM)
                                                                      of (fetch MSPATHOPTIONS
-                                                                               of VAL)))
+                                                                           of VAL)))
                                                         (T (fetch (PATHOPTIONS TO)
-                                                              of (fetch MSPATHOPTIONS
-                                                                        of VAL]
+                                                              of (fetch MSPATHOPTIONS of VAL]
                                                      INVERTED
                                                      (fetch (PATHOPTIONS AVOIDING)
                                                         of (fetch MSPATHOPTIONS of VAL))
@@ -3481,15 +3471,15 @@
                                                         of (fetch MSPATHOPTIONS of VAL]
                                 (RETURN (CL:VALUES))))
                    (ERASE                                    (* ; 
-                                                        "case of plain ERASE taken care of earlier")
+                                                          "case of plain ERASE taken care of earlier")
                           (MSERASE (MSLISTSET (CDR VAL)
-                                              T
-                                              'KNOWN))
+                                          T
+                                          'KNOWN))
                           (PRIN1 "Erased." T)
                           (CL:VALUES))
                    (DESCRIBE (CHECKFORCHANGED (CDR VAL)
                                     NIL T)                   (* ; 
-                                         "Need to update the world since will print out CALLED BY:")
+                                           "Need to update the world since will print out CALLED BY:")
                              (TAB 0 0)
                              (MAPC (MSLISTSET (CDR VAL)
                                           T)
@@ -3501,9 +3491,9 @@
                         (EVAL VAL))
                    (CHECK (CHECKFORCHANGED (CDR VAL))
                           [MSCHECKBLOCKS (AND (CDR VAL)
-                                                  (MSLISTSET (CDR VAL)
-                                                         'HARD
-                                                         'FILES])
+                                              (MSLISTSET (CDR VAL)
+                                                     'HARD
+                                                     'FILES])
                    (SHOULDNT 18])])
 
 (VERBNOTICELIST
@@ -3752,36 +3742,36 @@
 (ADDTOVAR LAMA MSEDITE MSEDITF)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) (
-MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 . 
-18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883
- . 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) (
-MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) (
-27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108 
-36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) (
-MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42754 (MSMARKCHANGE1 37543 . 38337) (
-MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41756) (STORETABLE 41758 . 
-42752)) (44155 49225 (PARSERELATION 44165 . 44765) (PARSERELATION1 44767 . 46222) (GETRELATION 46224
- . 47253) (MAPRELATION 47255 . 48389) (TESTRELATION 48391 . 49223)) (49226 50866 (ADDHASH 49236 . 
-49714) (SUBHASH 49716 . 49944) (MAKEHASH 49946 . 50090) (MSREHASH 50092 . 50545) (EQMEMBHASH 50547 . 
-50864)) (51205 57420 (MSVBTABLES 51215 . 56994) (MSUSERVBTABLES 56996 . 57418)) (57503 59714 (
-BUILDGETRELQ 57513 . 58619) (BUILDTESTRELQ 58621 . 59712)) (59885 60273 (MSERASE 59895 . 60271)) (
-60274 64734 (DUMPDATABASE 60284 . 62849) (DUMPDATABASE1 62851 . 63196) (READATABASE 63198 . 64732)) (
-65816 94875 (MSCHECKBLOCKS 65826 . 69646) (MSCHECKBLOCK 69648 . 78268) (MSCHECKFNINBLOCK 78270 . 81270
-) (MSCHECKBLOCKBASIC 81272 . 83692) (MSCHECKBOUNDFREE 83694 . 85593) (GLOBALVARP 85595 . 85762) (
-PRINTERROR 85764 . 88980) (MSCHECKVARS1 88982 . 91935) (UNECCSPEC 91937 . 92215) (NECCSPEC 92217 . 
-92564) (SPECVARP 92566 . 93093) (SHORTLST 93095 . 93551) (DOERROR 93553 . 94263) (MSMSGPRINT 94265 . 
-94873)) (96019 110847 (MSPATHS 96029 . 99431) (MSPATHS1 99433 . 103668) (MSPATHS2 103670 . 107080) (
-MSONPATH 107082 . 108310) (MSPATHS4 108312 . 109394) (DASHES 109396 . 109922) (DOTABS 109924 . 110165)
- (BELOWMARKER 110167 . 110630) (MSPATHSPRINTFN 110632 . 110845)) (111233 114657 (MSFIND 111243 . 
-111518) (MSEDITF 111520 . 112520) (MSEDITE 112522 . 113559) (EDITGETDEF 113561 . 114655)) (115599 
-124200 (MSMARKCHANGED 115609 . 117333) (CHANGEMACRO 117335 . 118040) (CHANGEVAR 118042 . 118358) (
-CHANGEI.S. 118360 . 119693) (CHANGERECORD 119695 . 120566) (MSNEEDUNSAVE 120568 . 121560) (UNSAVEFNS 
-121562 . 124198)) (124633 128123 (%. 124643 . 124783) (MASTERSCOPE 124785 . 125311) (MASTERSCOPE1 
-125313 . 126181) (MASTERSCOPEXEC 126183 . 128121)) (128162 167812 (MSINTERPRETSET 128172 . 156706) (
-MSINTERPA 156708 . 157242) (MSGETBLOCKDEC 157244 . 159757) (LISTHARD 159759 . 160977) (MSMEMBSET 
-160979 . 161124) (MSLISTSET 161126 . 161491) (MSHASHLIST 161493 . 161660) (MSHASHLIST1 161662 . 161988
-) (CHECKPATHS 161990 . 162630) (ONFILE 162632 . 167810)) (167813 192172 (MSINTERPRET 167823 . 184676) 
-(VERBNOTICELIST 184678 . 185788) (MSOUTPUT 185790 . 187300) (MSCHECKEMPTY 187302 . 188506) (
-CHECKFORCHANGED 188508 . 189028) (MSSOLVE 189030 . 192170)))))
+  (FILEMAP (NIL (3263 19510 (UPDATEFN 3273 . 4890) (MSGETDEF 4892 . 6298) (MSNOTICEFILE 6300 . 8693) (
+MSSHOWUSE 8695 . 14676) (MSUPDATEFN1 14678 . 15366) (MSUPDATE 15368 . 17794) (MSNLAMBDACHECK 17796 . 
+18678) (MSCOLLECTDATA 18680 . 19508)) (19511 20410 (UPDATECHANGED 19521 . 19884) (UPDATECHANGED1 19886
+ . 20408)) (20984 21407 (MSCLOSEFILES 20994 . 21405)) (22088 26520 (MSDESCRIBE 22098 . 24886) (
+MSDESCRIBE1 24888 . 25951) (FMAPRINT 25953 . 26518)) (26613 27053 (MSPRINTHELPFILE 26623 . 27051)) (
+27103 30241 (TEMPLATE 27113 . 28534) (GETTEMPLATE 28536 . 28671) (SETTEMPLATE 28673 . 30239)) (31111 
+36035 (ADDTEMPLATEWORD 31121 . 31793) (MSADDANALYZE 31795 . 33293) (MSADDMODIFIER 33295 . 34376) (
+MSADDRELATION 34378 . 35125) (MSADDTYPE 35127 . 36033)) (37536 42757 (MSMARKCHANGE1 37546 . 38340) (
+MSINIT 38342 . 39523) (GETVERBTABLES 39525 . 40078) (MSSTOREDATA 40080 . 41759) (STORETABLE 41761 . 
+42755)) (44158 49228 (PARSERELATION 44168 . 44768) (PARSERELATION1 44770 . 46225) (GETRELATION 46227
+ . 47256) (MAPRELATION 47258 . 48392) (TESTRELATION 48394 . 49226)) (49229 50869 (ADDHASH 49239 . 
+49717) (SUBHASH 49719 . 49947) (MAKEHASH 49949 . 50093) (MSREHASH 50095 . 50548) (EQMEMBHASH 50550 . 
+50867)) (51208 57423 (MSVBTABLES 51218 . 56997) (MSUSERVBTABLES 56999 . 57421)) (57506 59717 (
+BUILDGETRELQ 57516 . 58622) (BUILDTESTRELQ 58624 . 59715)) (59888 60276 (MSERASE 59898 . 60274)) (
+60277 64737 (DUMPDATABASE 60287 . 62852) (DUMPDATABASE1 62854 . 63199) (READATABASE 63201 . 64735)) (
+65819 94878 (MSCHECKBLOCKS 65829 . 69649) (MSCHECKBLOCK 69651 . 78271) (MSCHECKFNINBLOCK 78273 . 81273
+) (MSCHECKBLOCKBASIC 81275 . 83695) (MSCHECKBOUNDFREE 83697 . 85596) (GLOBALVARP 85598 . 85765) (
+PRINTERROR 85767 . 88983) (MSCHECKVARS1 88985 . 91938) (UNECCSPEC 91940 . 92218) (NECCSPEC 92220 . 
+92567) (SPECVARP 92569 . 93096) (SHORTLST 93098 . 93554) (DOERROR 93556 . 94266) (MSMSGPRINT 94268 . 
+94876)) (96022 110850 (MSPATHS 96032 . 99434) (MSPATHS1 99436 . 103671) (MSPATHS2 103673 . 107083) (
+MSONPATH 107085 . 108313) (MSPATHS4 108315 . 109397) (DASHES 109399 . 109925) (DOTABS 109927 . 110168)
+ (BELOWMARKER 110170 . 110633) (MSPATHSPRINTFN 110635 . 110848)) (111236 114660 (MSFIND 111246 . 
+111521) (MSEDITF 111523 . 112523) (MSEDITE 112525 . 113562) (EDITGETDEF 113564 . 114658)) (115602 
+124203 (MSMARKCHANGED 115612 . 117336) (CHANGEMACRO 117338 . 118043) (CHANGEVAR 118045 . 118361) (
+CHANGEI.S. 118363 . 119696) (CHANGERECORD 119698 . 120569) (MSNEEDUNSAVE 120571 . 121563) (UNSAVEFNS 
+121565 . 124201)) (124636 128126 (%. 124646 . 124786) (MASTERSCOPE 124788 . 125314) (MASTERSCOPE1 
+125316 . 126184) (MASTERSCOPEXEC 126186 . 128124)) (128165 167815 (MSINTERPRETSET 128175 . 156709) (
+MSINTERPA 156711 . 157245) (MSGETBLOCKDEC 157247 . 159760) (LISTHARD 159762 . 160980) (MSMEMBSET 
+160982 . 161127) (MSLISTSET 161129 . 161494) (MSHASHLIST 161496 . 161663) (MSHASHLIST1 161665 . 161991
+) (CHECKPATHS 161993 . 162633) (ONFILE 162635 . 167813)) (167816 191377 (MSINTERPRET 167826 . 183881) 
+(VERBNOTICELIST 183883 . 184993) (MSOUTPUT 184995 . 186505) (MSCHECKEMPTY 186507 . 187711) (
+CHECKFORCHANGED 187713 . 188233) (MSSOLVE 188235 . 191375)))))
 STOP
diff --git a/library/MASTERSCOPE.DFASL b/library/MASTERSCOPE.DFASL
index 889d0986..585c6b98 100644
Binary files a/library/MASTERSCOPE.DFASL and b/library/MASTERSCOPE.DFASL differ
diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES
index b9f3ee30..57e7feea 100644
--- a/lispusers/COMPAREDIRECTORIES
+++ b/lispusers/COMPAREDIRECTORIES
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267 133447 
+(FILECREATED "24-Aug-2025 13:38:35" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;268 133743 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS COMPAREDIRECTORIESCOMS)
-                  (FNS CD-MENUFN)
+      :CHANGES-TO (FNS CDENTRIES.SELECT CDPRINT.LINE)
 
-      :PREVIOUS-DATE "18-Feb-2025 23:37:14" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;264)
+      :PREVIOUS-DATE "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267)
 
 
 (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -262,7 +261,8 @@
                                                    INFO2 _ I2] FINALLY (RETURN CANDIDATES])
 
 (CDENTRIES.SELECT
-  [LAMBDA (CANDIDATES SELECT)                                (* ; "Edited 23-Feb-2022 20:45 by rmk")
+  [LAMBDA (CANDIDATES SELECT)                                (* ; "Edited 24-Aug-2025 13:36 by rmk")
+                                                             (* ; "Edited 23-Feb-2022 20:45 by rmk")
                                                              (* ; "Edited  4-Jan-2022 21:31 by rmk")
 
     (* ;; "Does the pairwise select filter and inserts the date relation")
@@ -273,8 +273,8 @@
              (SETQ INFO1 (FETCH (CDENTRY INFO1) OF CDE))
              (SETQ INFO2 (FETCH (CDENTRY INFO2) OF CDE))
              (if (AND INFO1 INFO2)
-                 then (SETQ IDATE1 (IDATE (fetch DATE of INFO1)))
-                      (SETQ IDATE2 (IDATE (fetch DATE of INFO2)))
+                 then (SETQ IDATE1 (IDATE (fetch (CDINFO DATE) of INFO1)))
+                      (SETQ IDATE2 (IDATE (fetch (CDINFO DATE) of INFO2)))
                       (SETQ DATEREL (if (IGREATERP IDATE1 IDATE2)
                                         then '>
                                       elseif (ILESSP IDATE1 IDATE2)
@@ -643,23 +643,24 @@
 
 (CDPRINT.LINE
   [LAMBDA (STREAM ENTRY PRINTAUTHOR DATE1POS ENDDATE1 NCHARSDIR1 NCHARSDIR2 LENGTH2END)
+                                                             (* ; "Edited 24-Aug-2025 13:38 by rmk")
                                                              (* ; "Edited 16-Jul-2022 10:19 by rmk")
                                                             (* ; "Edited 22-Nov-2021 22:38 by rmk:")
                                                             (* ; "Edited  9-Jan-2021 10:12 by rmk:")
 
     (* ;; "Format one line of the directory comparison listing.  If PRINTAUTHOR and AUTHOR1 or AUTHOR2 are non-NIL, list the author in parens; otherwise omit it.")
 
-    (LET ((INFO1 (fetch INFO1 of ENTRY))
-          (INFO2 (fetch INFO2 of ENTRY)))
-         (PRINTOUT STREAM (SELECTQ (fetch EQUIV of ENTRY)
+    (LET ((INFO1 (fetch (CDENTRY INFO1) of ENTRY))
+          (INFO2 (fetch (CDENTRY INFO2) of ENTRY)))
+         (PRINTOUT STREAM (SELECTQ (fetch (CDENTRY EQUIV) of ENTRY)
                               (T "==")
                               (NIL "  ")
-                              (CONCAT (SELECTQ (CAR (fetch EQUIV of ENTRY))
+                              (CONCAT (SELECTQ (CAR (fetch (CDENTRY EQUIV) of ENTRY))
                                           (CR 'C)
                                           (LF 'L)
                                           (CRLF 2)
                                           "x")
-                                     (SELECTQ (CADR (fetch EQUIV of ENTRY))
+                                     (SELECTQ (CADR (fetch (CDENTRY EQUIV) of ENTRY))
                                          (CR 'C)
                                          (LF 'L)
                                          (CRLF 2)
@@ -677,7 +678,7 @@
              (PRINTOUT STREAM .FR (IDIFFERENCE DATE1POS 2)
                     (fetch (CDINFO LENGTH) OF INFO1)
                     "  "
-                    (fetch DATE of INFO1)))
+                    (fetch (CDINFO DATE) of INFO1)))
          (PRINTOUT STREAM .TAB0 ENDDATE1 "  " (SELECTQ (fetch DATEREL of ENTRY)
                                                   (< "< ")
                                                   (> " >")
@@ -687,7 +688,7 @@
                                                   (SHOULDNT))
                 "  ")
          (CL:WHEN INFO2
-             (PRINTOUT STREAM (fetch DATE of INFO2)
+             (PRINTOUT STREAM (fetch (CDINFO DATE) of INFO2)
                     "  "
                     (SUBSTRING (fetch (CDINFO FULLNAME) OF INFO2)
                            (ADD1 NCHARSDIR2)
@@ -2250,25 +2251,25 @@
 
 (MOVD? 'NILL 'TEDIT.FILEDATE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2701 23064 (COMPAREDIRECTORIES 2711 . 8046) (COMPAREDIRECTORIES.INFOS 8048 . 11006) (
-COMPAREDIRECTORIES.CANDIDATES 11008 . 14393) (CDENTRIES.SELECT 14395 . 19170) (
-COMPAREDIRECTORIES.INFOS.TYPE 19172 . 20298) (MATCHNAME 20300 . 20980) (CD.INSURECDVALUE 20982 . 22596
-) (CD.UPDATEWIDTHS 22598 . 23062)) (23065 33687 (CDFILES 23075 . 29089) (CDFILES.MATCH 29091 . 30716) 
-(CDFILES.PATS 30718 . 33685)) (33688 51509 (CDPRINT 33698 . 36215) (CDPRINT.HEADER 36217 . 37114) (
-CDPRINT.LINE 37116 . 40348) (CDPRINT.MAXWIDTHS 40350 . 44465) (CDPRINT.COLHEADERS 44467 . 45752) (
-CDPRINT.COLUMNS 45754 . 50874) (CDTEDIT 50876 . 51507)) (51510 60631 (CDMAP 51520 . 52952) (CDENTRY 
-52954 . 53263) (CDSUBSET 53265 . 54704) (CDMERGE 54706 . 58690) (CDMERGE.COMMON 58692 . 60007) (
-CD.SORT 60009 . 60629)) (60632 68170 (BINCOMP 60642 . 64931) (EOLTYPE 64933 . 67495) (EOLTYPE.SHOW 
-67497 . 68168)) (68698 81225 (FIND-UNCOMPILED-FILES 68708 . 72351) (FIND-UNSOURCED-FILES 72353 . 74737
-) (FIND-SOURCE-FILES 74739 . 76477) (FIND-COMPILED-FILES 76479 . 78356) (FIND-UNLOADED-FILES 78358 . 
-79211) (FIND-LOADED-FILES 79213 . 79641) (FIND-MULTICOMPILED-FILES 79643 . 81223)) (81226 89657 (
-CREATED-AS 81236 . 86033) (SOURCE-FOR-COMPILED-P 86035 . 88962) (COMPILE-SOURCE-DATE-DIFF 88964 . 
-89655)) (89658 100421 (FIX-DIRECTORY-DATES 89668 . 93118) (FIX-EQUIV-DATES 93120 . 94645) (
-COPY-COMPARED-FILES 94647 . 96468) (COPY-MISSING-FILES 96470 . 98627) (COMPILED-ON-SAME-SOURCE 98629
- . 100419)) (100615 108453 (CDBROWSER 100625 . 104552) (CDBROWSER.STRINGS 104554 . 108451)) (108615 
-110351 (CD.TABLEITEM 108625 . 108845) (CD.TABLEITEM.PRINTFN 108847 . 109046) (CD.TABLEITEM.COPYFN 
-109048 . 110106) (CDTABLEBROWSER.HEADING.REPAINTFN 110108 . 110349)) (110352 132922 (
-CDTABLEBROWSER.WHENSELECTEDFN 110362 . 110830) (CD.COMMANDSELECTEDFN 110832 . 115933) (CD-MENUFN 
-115935 . 122161) (CD-COMPARE-FILES 122163 . 125515) (CDBROWSER-COPY 125517 . 129186) (
-CDBROWSER-DELETE-FILE 129188 . 132401) (CD-SWAPDIRS 132403 . 132920)))))
+  (FILEMAP (NIL (2673 23163 (COMPAREDIRECTORIES 2683 . 8018) (COMPAREDIRECTORIES.INFOS 8020 . 10978) (
+COMPAREDIRECTORIES.CANDIDATES 10980 . 14365) (CDENTRIES.SELECT 14367 . 19269) (
+COMPAREDIRECTORIES.INFOS.TYPE 19271 . 20397) (MATCHNAME 20399 . 21079) (CD.INSURECDVALUE 21081 . 22695
+) (CD.UPDATEWIDTHS 22697 . 23161)) (23164 33786 (CDFILES 23174 . 29188) (CDFILES.MATCH 29190 . 30815) 
+(CDFILES.PATS 30817 . 33784)) (33787 51805 (CDPRINT 33797 . 36314) (CDPRINT.HEADER 36316 . 37213) (
+CDPRINT.LINE 37215 . 40644) (CDPRINT.MAXWIDTHS 40646 . 44761) (CDPRINT.COLHEADERS 44763 . 46048) (
+CDPRINT.COLUMNS 46050 . 51170) (CDTEDIT 51172 . 51803)) (51806 60927 (CDMAP 51816 . 53248) (CDENTRY 
+53250 . 53559) (CDSUBSET 53561 . 55000) (CDMERGE 55002 . 58986) (CDMERGE.COMMON 58988 . 60303) (
+CD.SORT 60305 . 60925)) (60928 68466 (BINCOMP 60938 . 65227) (EOLTYPE 65229 . 67791) (EOLTYPE.SHOW 
+67793 . 68464)) (68994 81521 (FIND-UNCOMPILED-FILES 69004 . 72647) (FIND-UNSOURCED-FILES 72649 . 75033
+) (FIND-SOURCE-FILES 75035 . 76773) (FIND-COMPILED-FILES 76775 . 78652) (FIND-UNLOADED-FILES 78654 . 
+79507) (FIND-LOADED-FILES 79509 . 79937) (FIND-MULTICOMPILED-FILES 79939 . 81519)) (81522 89953 (
+CREATED-AS 81532 . 86329) (SOURCE-FOR-COMPILED-P 86331 . 89258) (COMPILE-SOURCE-DATE-DIFF 89260 . 
+89951)) (89954 100717 (FIX-DIRECTORY-DATES 89964 . 93414) (FIX-EQUIV-DATES 93416 . 94941) (
+COPY-COMPARED-FILES 94943 . 96764) (COPY-MISSING-FILES 96766 . 98923) (COMPILED-ON-SAME-SOURCE 98925
+ . 100715)) (100911 108749 (CDBROWSER 100921 . 104848) (CDBROWSER.STRINGS 104850 . 108747)) (108911 
+110647 (CD.TABLEITEM 108921 . 109141) (CD.TABLEITEM.PRINTFN 109143 . 109342) (CD.TABLEITEM.COPYFN 
+109344 . 110402) (CDTABLEBROWSER.HEADING.REPAINTFN 110404 . 110645)) (110648 133218 (
+CDTABLEBROWSER.WHENSELECTEDFN 110658 . 111126) (CD.COMMANDSELECTEDFN 111128 . 116229) (CD-MENUFN 
+116231 . 122457) (CD-COMPARE-FILES 122459 . 125811) (CDBROWSER-COPY 125813 . 129482) (
+CDBROWSER-DELETE-FILE 129484 . 132697) (CD-SWAPDIRS 132699 . 133216)))))
 STOP
diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM
index 47036b4e..3a75fdb0 100644
Binary files a/lispusers/COMPAREDIRECTORIES.LCOM and b/lispusers/COMPAREDIRECTORIES.LCOM differ
diff --git a/sources/TTYIN b/sources/TTYIN
index ff65aad0..67964d42 100644
--- a/sources/TTYIN
+++ b/sources/TTYIN
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "29-Feb-2024 10:48:51" {WMEDLEY}<sources>TTYIN.;20 328623 
+(FILECREATED "24-Aug-2025 14:07:41" {WMEDLEY}<sources>TTYIN.;21 328618 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TTYIN TTYINPROMPTFORWORD TTUNREADBUF)
+      :CHANGES-TO (MACROS AT.END.OF.LINE)
 
-      :PREVIOUS-DATE "19-Jul-2022 23:34:14" {WMEDLEY}<sources>TTYIN.;17)
+      :PREVIOUS-DATE "29-Feb-2024 10:48:51" {WMEDLEY}<sources>TTYIN.;20)
 
 
 (PRETTYCOMPRINT TTYINCOMS)
@@ -5790,7 +5790,7 @@
 
 (PUTPROPS AT.END.OF.BUF MACRO (NIL (EQ \CURSOR \ENDBUFFER)))
 
-(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch END of \ARROW)
+(PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW)
                                         \CURSOR)))
 
 (PUTPROPS AT.START.OF.BUF MACRO (NIL (EQ \CURSOR \BUFFER)))
@@ -5831,7 +5831,7 @@
 
 (PUTPROPS ON.FIRST.LINE MACRO (NIL (EQ \FIRSTLINE \ARROW)))
 
-(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch END of \ARROW)
+(PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch (LINE END) of \ARROW)
                                       \ENDBUFFER)))
 
 (PUTPROPS METACHARP MACRO ((C)
@@ -6068,62 +6068,62 @@ DONTEVAL@LOAD EVAL@COMPILE
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7690 207621 (TTYIN 7700 . 20347) (TTYIN.SETUP 20349 . 23425) (TTYIN.CLEANUP 23427 . 
-24255) (TTYIN1 24257 . 51141) (TTYIN1RESTART 51143 . 52407) (TTYIN.FINISH 52409 . 61826) (
-TTYIN.BALANCE 61828 . 62954) (ADDCHAR 62956 . 65142) (TTMAKECOMPLEXCHAR 65144 . 65618) (ADDNAKEDCHAR 
-65620 . 67130) (TTADDTAB 67132 . 68067) (ADJUSTLINE 68069 . 81980) (ADJUSTLINE.AND.RESTORE 81982 . 
-82420) (AT.END.OF.SCREEN 82422 . 82710) (AT.END.OF.TEXT 82712 . 83167) (AUTOCR? 83169 . 83643) (
-BACKSKREAD 83645 . 88230) (BACKWARD.DELETE.TO 88232 . 88414) (BREAKLINE 88416 . 90683) (BUFTAILP 90685
- . 91003) (CHECK.MARGIN 91005 . 91628) (CLEAR.LINE? 91630 . 91923) (CURRENT.WORD 91925 . 94325) (
-DELETE.TO.END 94327 . 95046) (DELETELINE 95048 . 98005) (DELETETO 98007 . 99829) (DELETETO1 99831 . 
-101174) (DO.EDIT.COMMAND 101176 . 118495) (DO.EDIT.PP 118497 . 121159) (TTDOTABS 121161 . 122531) (
-EDITCOLUMN 122533 . 122989) (EDITNUMBERP 122991 . 123222) (END.DELETE.MODE 123224 . 123741) (ENDREAD? 
-123743 . 126178) (FIND.LINE 126180 . 127716) (FIND.LINE.BREAK 127718 . 128388) (FIND.MATCHING.QUOTE 
-128390 . 129235) (FIND.NEXT.WORD 129237 . 130616) (FIND.NON.SPACE 130618 . 130891) (FIND.START.OF.WORD
- 130893 . 131256) (FORWARD.DELETE.TO 131258 . 133480) (GO.TO.ADDRESSING 133482 . 134438) (
-GO.TO.FREELINE 134440 . 135021) (GO.TO.RELATIVE 135023 . 135803) (INIT.CURSOR 135805 . 136702) (
-INSERT.NODE 136704 . 137226) (INSERTLINE 137228 . 138732) (KILL.LINES 138734 . 139272) (KILLSEGMENT 
-139274 . 140397) (L-CASECODE 140399 . 140560) (MOVE.BACK.TO 140562 . 140791) (MOVE.FORWARD.TO 140793
- . 141214) (MOVE.TO.LINE 141216 . 142131) (MOVE.TO.NEXT.LINE 142133 . 142403) (MOVE.TO.START.OF.WORD 
-142405 . 143169) (MOVE.TO.WHEREVER 143171 . 143394) (NTH.COLUMN.OF 143396 . 143727) (
-NTH.RELATIVE.COLUMN.OF 143729 . 145029) (OVERFLOW? 145031 . 145979) (OVERFLOWLINE? 145981 . 146307) (
-PREVLINE 146309 . 147489) (PREVWORD 147491 . 149632) (PROPERTAILP 149634 . 149841) (READFROMBUF 149843
- . 152432) (RENUMBER.LINES 152434 . 152827) (RESTORE.CURSOR 152829 . 152983) (RESTOREBUF 152985 . 
-155169) (RETYPE.BUFFER 155171 . 157434) (SAVE.CURSOR 157436 . 157608) (SCANBACK 157610 . 158968) (
-SCANFORWARD 158970 . 159838) (SCRATCHCONS 159840 . 160442) (SEGMENT.LENGTH 160444 . 160980) (
-SEGMENT.BIT.LENGTH 160982 . 161589) (SETLASTC 161591 . 161888) (SETTAIL? 161890 . 162706) (
-SHOW.MATCHING.PAREN 162708 . 165208) (SKIP/ZAP 165210 . 167689) (START.NEW.LINE 167691 . 168023) (
-START.OF.PARAGRAPH? 168025 . 168406) (TTADJUSTWORD 168408 . 169582) (TTBIN 169584 . 170790) (
-TTBITWIDTH 170792 . 170941) (TTCRLF 170943 . 171150) (TTCRLF.ACCOUNT 171152 . 171792) (TTDELETECHAR 
-171794 . 172938) (TTDELETELINE 172940 . 174888) (TTDELETEWORD 174890 . 175558) (TTECHO.TO.FILE 175560
- . 179119) (TTGIVEHELP 179121 . 180386) (TTGIVEHELP1 180388 . 180970) (TTGIVEHELP2 180972 . 181667) (
-TTLASTLINE 181669 . 182037) (TTLOADBUF 182039 . 185533) (TTNEXTLINE 185535 . 185855) (TTNEXTNODE 
-185857 . 186096) (TTNLEFT 186098 . 187325) (TTNTH 187327 . 187786) (TTNTHLINE 187788 . 188320) (
-TTPRIN1 188322 . 192135) (TTPRINSPACE 192137 . 192530) (TTPRIN1COMMENT 192532 . 192856) (TTPRIN2 
-192858 . 195177) (TTPROMPTCHAR 195179 . 196075) (TTRUBOUT 196077 . 197040) (TTUNREADBUF 197042 . 
-197933) (TTWAITFORINPUT 197935 . 202143) (TTYINSTRING 202145 . 203104) (TYPE.BUFFER 203106 . 204858) (
-U-CASECODE 204860 . 205019) (U/L-CASE 205021 . 207619)) (207776 217135 (TTRATOM 207786 . 208230) (
-TTREADLIST 208232 . 208599) (TTSKIPSEPR 208601 . 208975) (TTSKREAD 208977 . 213617) (TTYIN.READ 213619
- . 217133)) (217182 237226 (FIND.MATCHING.WORD 217192 . 217720) (TTCOMPLETEWORD 217722 . 232150) (
-WORD.MATCHES.BUFFER 232152 . 233712) (TTYIN.SHOW.?ALTERNATIVES 233714 . 237224)) (237260 255570 (
-DO?CMD 237270 . 243172) (TTYIN.PRINTARGS 243174 . 254032) (TTYIN.READ?=ARGS 254034 . 254815) (
-DO?CMD.ERRORHANDLER 254817 . 255568)) (255604 263677 (BEEP 255614 . 255789) (BITBLT.DELETE 255791 . 
-256438) (BITBLT.ERASE 256440 . 256625) (BITBLT.INSERT 256627 . 256938) (DO.CRLF 256940 . 257259) (
-DO.DELETE.LINES 257261 . 258305) (DO.INSERT.LINE 258307 . 260241) (DO.LF 260243 . 260409) (
-ERASE.TO.END.OF.LINE 260411 . 260736) (ERASE.TO.END.OF.PAGE 260738 . 261343) (INSERT.TEXT 261345 . 
-261849) (TTDELSECTION 261851 . 262149) (TTADJUSTWIDTH 262151 . 263015) (TTINSERTSECTION 263017 . 
-263356) (TTSETCURSOR 263358 . 263675)) (263712 268843 (TTYINBUFFERDEVICE 263722 . 265038) (
-TTYINBUFFERSTREAM 265040 . 265956) (TTYINBUFFERBIN 265958 . 266494) (TTYINBUFFERPEEK 266496 . 266974) 
-(TTYINBUFFERREADP 266976 . 267231) (TTYINBUFFEREOFP 267233 . 267485) (TTYINBUFFERBACKPTR 267487 . 
-268039) (TTYINWORDRDTBL 268041 . 268841)) (269004 294561 (DO.MOUSE 269014 . 271771) (
-DO.SHIFTED.SELECTION 271773 . 282212) (COPY.SEGMENT 282214 . 282418) (DELETE.LONG.SEGMENT 282420 . 
-282779) (DELETE.LONG.SEGMENT1 282781 . 285257) (INVERT.LONG.SEGMENT 285259 . 286288) (INVERT.SEGMENT 
-286290 . 287805) (BRACKET.CURRENT.WORD 287807 . 289341) (TTBEFOREPOS 289343 . 290073) (TTNEXTPOS 
-290075 . 290783) (TTRACKMOUSE 290785 . 294559)) (294705 300078 (SETREADFN 294715 . 295193) (
-TTYINENTRYFN 295195 . 295620) (TTYINREADP 295622 . 296204) (TTYINREAD 296206 . 297600) (TTYINFIX 
-297602 . 298801) (CHARMACRO? 298803 . 299370) (TTYINMETA 299372 . 299500) (TTYIN.LASTINPUT 299502 . 
-300076)) (300079 308348 (TTYINEDIT 300089 . 302206) (SIMPLETEXTEDIT 302208 . 305252) (
-SET.TTYINEDIT.WINDOW 305254 . 306405) (TTYIN.PPTOFILE 306407 . 308346)) (308406 308583 (
-MAKE-TTSCRATCHFILE 308416 . 308581)) (308730 309863 (TTYIN.SCRATCHFILE 308740 . 309186) (\TTYIN.RPEOF 
-309188 . 309861)) (310075 313709 (TTYINPROMPTFORWORD 310085 . 313707)))))
+  (FILEMAP (NIL (7671 207602 (TTYIN 7681 . 20328) (TTYIN.SETUP 20330 . 23406) (TTYIN.CLEANUP 23408 . 
+24236) (TTYIN1 24238 . 51122) (TTYIN1RESTART 51124 . 52388) (TTYIN.FINISH 52390 . 61807) (
+TTYIN.BALANCE 61809 . 62935) (ADDCHAR 62937 . 65123) (TTMAKECOMPLEXCHAR 65125 . 65599) (ADDNAKEDCHAR 
+65601 . 67111) (TTADDTAB 67113 . 68048) (ADJUSTLINE 68050 . 81961) (ADJUSTLINE.AND.RESTORE 81963 . 
+82401) (AT.END.OF.SCREEN 82403 . 82691) (AT.END.OF.TEXT 82693 . 83148) (AUTOCR? 83150 . 83624) (
+BACKSKREAD 83626 . 88211) (BACKWARD.DELETE.TO 88213 . 88395) (BREAKLINE 88397 . 90664) (BUFTAILP 90666
+ . 90984) (CHECK.MARGIN 90986 . 91609) (CLEAR.LINE? 91611 . 91904) (CURRENT.WORD 91906 . 94306) (
+DELETE.TO.END 94308 . 95027) (DELETELINE 95029 . 97986) (DELETETO 97988 . 99810) (DELETETO1 99812 . 
+101155) (DO.EDIT.COMMAND 101157 . 118476) (DO.EDIT.PP 118478 . 121140) (TTDOTABS 121142 . 122512) (
+EDITCOLUMN 122514 . 122970) (EDITNUMBERP 122972 . 123203) (END.DELETE.MODE 123205 . 123722) (ENDREAD? 
+123724 . 126159) (FIND.LINE 126161 . 127697) (FIND.LINE.BREAK 127699 . 128369) (FIND.MATCHING.QUOTE 
+128371 . 129216) (FIND.NEXT.WORD 129218 . 130597) (FIND.NON.SPACE 130599 . 130872) (FIND.START.OF.WORD
+ 130874 . 131237) (FORWARD.DELETE.TO 131239 . 133461) (GO.TO.ADDRESSING 133463 . 134419) (
+GO.TO.FREELINE 134421 . 135002) (GO.TO.RELATIVE 135004 . 135784) (INIT.CURSOR 135786 . 136683) (
+INSERT.NODE 136685 . 137207) (INSERTLINE 137209 . 138713) (KILL.LINES 138715 . 139253) (KILLSEGMENT 
+139255 . 140378) (L-CASECODE 140380 . 140541) (MOVE.BACK.TO 140543 . 140772) (MOVE.FORWARD.TO 140774
+ . 141195) (MOVE.TO.LINE 141197 . 142112) (MOVE.TO.NEXT.LINE 142114 . 142384) (MOVE.TO.START.OF.WORD 
+142386 . 143150) (MOVE.TO.WHEREVER 143152 . 143375) (NTH.COLUMN.OF 143377 . 143708) (
+NTH.RELATIVE.COLUMN.OF 143710 . 145010) (OVERFLOW? 145012 . 145960) (OVERFLOWLINE? 145962 . 146288) (
+PREVLINE 146290 . 147470) (PREVWORD 147472 . 149613) (PROPERTAILP 149615 . 149822) (READFROMBUF 149824
+ . 152413) (RENUMBER.LINES 152415 . 152808) (RESTORE.CURSOR 152810 . 152964) (RESTOREBUF 152966 . 
+155150) (RETYPE.BUFFER 155152 . 157415) (SAVE.CURSOR 157417 . 157589) (SCANBACK 157591 . 158949) (
+SCANFORWARD 158951 . 159819) (SCRATCHCONS 159821 . 160423) (SEGMENT.LENGTH 160425 . 160961) (
+SEGMENT.BIT.LENGTH 160963 . 161570) (SETLASTC 161572 . 161869) (SETTAIL? 161871 . 162687) (
+SHOW.MATCHING.PAREN 162689 . 165189) (SKIP/ZAP 165191 . 167670) (START.NEW.LINE 167672 . 168004) (
+START.OF.PARAGRAPH? 168006 . 168387) (TTADJUSTWORD 168389 . 169563) (TTBIN 169565 . 170771) (
+TTBITWIDTH 170773 . 170922) (TTCRLF 170924 . 171131) (TTCRLF.ACCOUNT 171133 . 171773) (TTDELETECHAR 
+171775 . 172919) (TTDELETELINE 172921 . 174869) (TTDELETEWORD 174871 . 175539) (TTECHO.TO.FILE 175541
+ . 179100) (TTGIVEHELP 179102 . 180367) (TTGIVEHELP1 180369 . 180951) (TTGIVEHELP2 180953 . 181648) (
+TTLASTLINE 181650 . 182018) (TTLOADBUF 182020 . 185514) (TTNEXTLINE 185516 . 185836) (TTNEXTNODE 
+185838 . 186077) (TTNLEFT 186079 . 187306) (TTNTH 187308 . 187767) (TTNTHLINE 187769 . 188301) (
+TTPRIN1 188303 . 192116) (TTPRINSPACE 192118 . 192511) (TTPRIN1COMMENT 192513 . 192837) (TTPRIN2 
+192839 . 195158) (TTPROMPTCHAR 195160 . 196056) (TTRUBOUT 196058 . 197021) (TTUNREADBUF 197023 . 
+197914) (TTWAITFORINPUT 197916 . 202124) (TTYINSTRING 202126 . 203085) (TYPE.BUFFER 203087 . 204839) (
+U-CASECODE 204841 . 205000) (U/L-CASE 205002 . 207600)) (207757 217116 (TTRATOM 207767 . 208211) (
+TTREADLIST 208213 . 208580) (TTSKIPSEPR 208582 . 208956) (TTSKREAD 208958 . 213598) (TTYIN.READ 213600
+ . 217114)) (217163 237207 (FIND.MATCHING.WORD 217173 . 217701) (TTCOMPLETEWORD 217703 . 232131) (
+WORD.MATCHES.BUFFER 232133 . 233693) (TTYIN.SHOW.?ALTERNATIVES 233695 . 237205)) (237241 255551 (
+DO?CMD 237251 . 243153) (TTYIN.PRINTARGS 243155 . 254013) (TTYIN.READ?=ARGS 254015 . 254796) (
+DO?CMD.ERRORHANDLER 254798 . 255549)) (255585 263658 (BEEP 255595 . 255770) (BITBLT.DELETE 255772 . 
+256419) (BITBLT.ERASE 256421 . 256606) (BITBLT.INSERT 256608 . 256919) (DO.CRLF 256921 . 257240) (
+DO.DELETE.LINES 257242 . 258286) (DO.INSERT.LINE 258288 . 260222) (DO.LF 260224 . 260390) (
+ERASE.TO.END.OF.LINE 260392 . 260717) (ERASE.TO.END.OF.PAGE 260719 . 261324) (INSERT.TEXT 261326 . 
+261830) (TTDELSECTION 261832 . 262130) (TTADJUSTWIDTH 262132 . 262996) (TTINSERTSECTION 262998 . 
+263337) (TTSETCURSOR 263339 . 263656)) (263693 268824 (TTYINBUFFERDEVICE 263703 . 265019) (
+TTYINBUFFERSTREAM 265021 . 265937) (TTYINBUFFERBIN 265939 . 266475) (TTYINBUFFERPEEK 266477 . 266955) 
+(TTYINBUFFERREADP 266957 . 267212) (TTYINBUFFEREOFP 267214 . 267466) (TTYINBUFFERBACKPTR 267468 . 
+268020) (TTYINWORDRDTBL 268022 . 268822)) (268985 294542 (DO.MOUSE 268995 . 271752) (
+DO.SHIFTED.SELECTION 271754 . 282193) (COPY.SEGMENT 282195 . 282399) (DELETE.LONG.SEGMENT 282401 . 
+282760) (DELETE.LONG.SEGMENT1 282762 . 285238) (INVERT.LONG.SEGMENT 285240 . 286269) (INVERT.SEGMENT 
+286271 . 287786) (BRACKET.CURRENT.WORD 287788 . 289322) (TTBEFOREPOS 289324 . 290054) (TTNEXTPOS 
+290056 . 290764) (TTRACKMOUSE 290766 . 294540)) (294686 300059 (SETREADFN 294696 . 295174) (
+TTYINENTRYFN 295176 . 295601) (TTYINREADP 295603 . 296185) (TTYINREAD 296187 . 297581) (TTYINFIX 
+297583 . 298782) (CHARMACRO? 298784 . 299351) (TTYINMETA 299353 . 299481) (TTYIN.LASTINPUT 299483 . 
+300057)) (300060 308329 (TTYINEDIT 300070 . 302187) (SIMPLETEXTEDIT 302189 . 305233) (
+SET.TTYINEDIT.WINDOW 305235 . 306386) (TTYIN.PPTOFILE 306388 . 308327)) (308387 308564 (
+MAKE-TTSCRATCHFILE 308397 . 308562)) (308711 309844 (TTYIN.SCRATCHFILE 308721 . 309167) (\TTYIN.RPEOF 
+309169 . 309842)) (310056 313690 (TTYINPROMPTFORWORD 310066 . 313688)))))
 STOP
diff --git a/sources/TTYIN.LCOM b/sources/TTYIN.LCOM
index 2bc599ff..7cd974d2 100644
Binary files a/sources/TTYIN.LCOM and b/sources/TTYIN.LCOM differ
