diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 33afdd27..5efe755e 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;4| 15853  
+(FILECREATED "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2| 15771  
 
-      :CHANGES-TO (FNS PICK)
+      :CHANGES-TO (FNS MAKE-FULLER-DB)
 
-      :PREVIOUS-DATE "25-Jun-2022 10:57:30" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;3|)
+      :PREVIOUS-DATE "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -107,11 +107,13 @@
         (HELP))))
 
 (MAKE-FULLER-DB
-  (LAMBDA NIL                                             (* \; "Edited 20-Jun-2022 17:23 by larry")
+  (LAMBDA NIL                                             (* \; "Edited 16-Jul-2022 22:07 by larry")
+                                                          (* \; "Edited 20-Jun-2022 17:23 by larry")
     (FILESLOAD (SOURCE)
            FILESETS)
     (DRIBBLE (MEDLEYDIR "tmp" "fuller.dribble" T T))
-    (DOFILESLOAD (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL))
+    (DOFILESLOAD (SUBSET (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
+                        'FINDFILE))
     (GATHER-INFO 'ALL)
     (MASTERSCOPE '(WHO CALLS XYZZY))
     (DUMPDATABASE NIL (MKATOM (MEDLEYDIR "tmp" "fuller.database" T T)))
@@ -153,13 +155,10 @@
 (RPAQQ OKSOURCES (RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT))
 
 (RPAQQ OKLIBRARY
-       (POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS TEDITDCL PCTREE TEXTOFD TEDITCOMMAND 
-              TEDITSCREEN TEDITABBREV TEDITLOOKS TEDITFIND TEDITHISTORY TEDITFILE TEDITWINDOW 
-              TEDITSELECTION READNUMBER EDITBITMAP IMAGEOBJ TFBRAVO TEDITHCPY TEDITPAGE TEDITMENU 
-              TEDITFNKEYS TEDIT HRULE TEDITCHAT TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS 
-              COPYFILES MSANALYZE MSPARSE MSCOMMON MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH 
-              CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT 
-              SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR))
+       (POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS READNUMBER EDITBITMAP IMAGEOBJ TEDIT HRULE 
+              TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MSCOMMON 
+              MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH 
+              SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR))
 
 (RPAQQ OKLISPUSERS (THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE
                           BACKGROUND-YIELD OBJECTWINDOW REGIONMANAGER COMPARETEXT EXAMINEDEFS 
@@ -288,10 +287,9 @@
 
 (RPAQ? BADFILES )
 
-(DEFCOMMAND "pick" (FIRST . REST)
-   (PICK FIRST REST))
+(DEFCOMMAND "pick" (FIRST . REST) (PICK FIRST REST))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (724 8547 (GATHER-INFO 734 . 6144) (MAKE-FULLER-DB 6146 . 6684) (MEDLEY-FIX-LINKS 6686
- . 7083) (MEDLEY-FIX-DATES 7085 . 7327) (PICK 7329 . 8545)) (9823 11616 (MAKE-EXPORTS-ALL 9833 . 10792
-) (MAKE-WHEREIS-HASH 10794 . 11614)) (11651 15716 (HCFILES 11661 . 15401) (BADFILE 15403 . 15714)))))
+  (FILEMAP (NIL (734 8709 (GATHER-INFO 744 . 6154) (MAKE-FULLER-DB 6156 . 6846) (MEDLEY-FIX-LINKS 6848
+ . 7245) (MEDLEY-FIX-DATES 7247 . 7489) (PICK 7491 . 8707)) (9748 11541 (MAKE-EXPORTS-ALL 9758 . 10717
+) (MAKE-WHEREIS-HASH 10719 . 11539)) (11576 15641 (HCFILES 11586 . 15326) (BADFILE 15328 . 15639)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.LCOM b/internal/MEDLEY-UTILS.LCOM
index d57fcdf9..a9a140aa 100644
Binary files a/internal/MEDLEY-UTILS.LCOM and b/internal/MEDLEY-UTILS.LCOM differ
diff --git a/library/TEXEC b/library/TEXEC
index d5340b5f..93958a4c 100644
--- a/library/TEXEC
+++ b/library/TEXEC
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED " 1-Feb-2022 09:24:13" |{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;2| 195948 
+(FILECREATED "16-Jul-2022 23:42:20" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;3| 196212 
 
       :CHANGES-TO (VARS TEXECCOMS TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
-                  (FNS TEXEC.OPENTEXTSTREAM TEXEC.INCLUDE)
 
-      :PREVIOUS-DATE "30-May-91 19:21:21" 
-|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEXEC.;1|)
+      :PREVIOUS-DATE " 1-Feb-2022 09:24:13" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEXEC.;2|)
 
 
 ; Copyright (c) 1985, 1900, 1986-1991 by Venue & Xerox Corporation.
@@ -17,7 +17,7 @@
        ((COMS                                                (* \; 
                                                              "To support development and compilation")
               (DECLARE\: DONTCOPY EVAL@COMPILE (FILES (LOADCOMP)
-                                                      ATERM TEDITDCL)))
+                                                      ATERM TEDIT-DCL)))
         (COMS 
               (* |;;| "THE FILLBUFFER REPLACEMENT CODE")
 
@@ -57,7 +57,7 @@
 (DECLARE\: DONTCOPY EVAL@COMPILE 
 
 (FILESLOAD (LOADCOMP)
-       ATERM TEDITDCL)
+       ATERM TEDIT-DCL)
 )
 
 
@@ -2833,314 +2833,314 @@
                                              "Starts TEXEC in a new window."))
 
 (READVARS-FROM-STRINGS '(TEXEC.ICON TEXEC.ICON.MASK TEXEC.TITLED.ICON.TEMPLATE)
-       " ( {(READBITMAP)(64 77
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@OH@@@@@@@@@\"
-\"@@@@COL@@@@@@@@@\"
-\"@@@@CON@@@@@@@@@\"
-\"@@@@GHC@@@@@@@@@\"
-\"@@@@O@AH@@@@@@@@\"
-\"@@@AKBEL@@@@@@@@\"
-\"@@@AC@BD@@@@@@@@\"
-\"@@@AAHBD@@@@@@@@\"
-\"@@@A@LBD@@@@@@@@\"
-\"@@@A@NDD@@@@@@@@\"
-\"@@@AGOOL@@@@@@@@\"
-\"@@@AHFDF@@@@@@@@\"
-\"@@@AHBDB@@@@@@@@\"
-\"@@@A@BDC@@@@@@@@\"
-\"@@@A@AHA@@@@@@@@\"
-\"@@@A@AIAH@@@@@@@\"
-\"@@@AA@I@H@@@@@@@\"
-\"@@@CA@HHH@@@@@@@\"
-\"@@@BA@HHHC@@@@@@\"
-\"@@@CA@I@DB@@@@@@\"
-\"@@@AAH@HBF@@@@@@\"
-\"@@@AHF@HNL@@@@@@\"
-\"@@@ALC@GIL@@@@@@\"
-\"@@@ADNLC@H@@@@@@\"
-\"OOOOOHGOMOOOH@@@\"
-\"O@@@@HDDGH@@O@@@\"
-\"ON@@@GHC@F@@AN@@\"
-\"LOL@@@@AOOH@@CL@\"
-\"LAOH@@@@@@@@@@GH\"
-\"L@COOOOOOOOOOOOO\"
-\"L@@GOOOOOOOOOOOO\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"O@@CH@@@@@@@@@@C\"
-\"ON@CH@@@@@@@@@@C\"
-\"LOLCH@@@@@@@@@@C\"
-\"LAOKH@@@@@@@@@@C\"
-\"@@COOOOOOOOOOOOO\"
-\"@@@GH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@AH@@@@@@@@@@C\")}  {(READBITMAP)(64 77
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@OH@@@@@@@@@\"
-\"@@@@COL@@@@@@@@@\"
-\"@@@@CON@@@@@@@@@\"
-\"@@@@GOO@@@@@@@@@\"
-\"@@@@OOOH@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOON@@@@@@@@\"
-\"@@@AOOON@@@@@@@@\"
-\"@@@AOOOO@@@@@@@@\"
-\"@@@AOOOO@@@@@@@@\"
-\"@@@AOOOOH@@@@@@@\"
-\"@@@AOOOOH@@@@@@@\"
-\"@@@COOOOH@@@@@@@\"
-\"@@@COOOOHC@@@@@@\"
-\"@@@COOOOLB@@@@@@\"
-\"@@@AOOOONF@@@@@@\"
-\"@@@AOOOONL@@@@@@\"
-\"@@@AOOOOOL@@@@@@\"
-\"@@@AOOOOOH@@@@@@\"
-\"OOOOOOOOOOOOH@@@\"
-\"OOOOOOOOOOOOO@@@\"
-\"OOOOOOOOOOOOON@@\"
-\"OOOOOOOOOOOOOOL@\"
-\"OOOOOOOOOOOOOOOH\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"LOOOOOOOOOOOOOOO\"
-\"LAOOOOOOOOOOOOOO\"
-\"@@COOOOOOOOOOOOO\"
-\"@@@GH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@AH@@@@@@@@@@C\")}  ( {(READBITMAP)(64 77
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@OH@@@@@@@@@\"
-\"@@@@COL@@@@@@@@@\"
-\"@@@@CON@@@@@@@@@\"
-\"@@@@GHC@@@@@@@@@\"
-\"@@@@O@AH@@@@@@@@\"
-\"@@@AKBEL@@@@@@@@\"
-\"@@@AC@BD@@@@@@@@\"
-\"@@@AAHBD@@@@@@@@\"
-\"@@@A@LBD@@@@@@@@\"
-\"@@@A@NDD@@@@@@@@\"
-\"@@@AGOOL@@@@@@@@\"
-\"@@@AHFDF@@@@@@@@\"
-\"@@@AHBDB@@@@@@@@\"
-\"@@@A@BDC@@@@@@@@\"
-\"@@@A@AHA@@@@@@@@\"
-\"@@@A@AIAH@@@@@@@\"
-\"@@@AA@I@H@@@@@@@\"
-\"@@@CA@HHH@@@@@@@\"
-\"@@@BA@HHHC@@@@@@\"
-\"@@@CA@I@DB@@@@@@\"
-\"@@@AAH@HBF@@@@@@\"
-\"@@@AHF@HNL@@@@@@\"
-\"@@@ALC@GIL@@@@@@\"
-\"@@@ADNLC@H@@@@@@\"
-\"OOOOOHGOMOOOH@@@\"
-\"O@@@@HDDGH@@O@@@\"
-\"ON@@@GHC@F@@AN@@\"
-\"LOL@@@@AOOH@@CL@\"
-\"LAOH@@@@@@@@@@GH\"
-\"L@COOOOOOOOOOOOO\"
-\"L@@GOOOOOOOOOOOO\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"L@@CH@@@@@@@@@@C\"
-\"O@@CH@@@@@@@@@@C\"
-\"ON@CH@@@@@@@@@@C\"
-\"LOLCH@@@@@@@@@@C\"
-\"LAOKH@@@@@@@@@@C\"
-\"@@COOOOOOOOOOOOO\"
-\"@@@GH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@AH@@@@@@@@@@C\")}  {(READBITMAP)(64 77
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"@@@@@@@@@@@@@@@@\"
-\"@@@@@OH@@@@@@@@@\"
-\"@@@@COL@@@@@@@@@\"
-\"@@@@CON@@@@@@@@@\"
-\"@@@@GOO@@@@@@@@@\"
-\"@@@@OOOH@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOOL@@@@@@@@\"
-\"@@@AOOON@@@@@@@@\"
-\"@@@AOOON@@@@@@@@\"
-\"@@@AOOOO@@@@@@@@\"
-\"@@@AOOOO@@@@@@@@\"
-\"@@@AOOOOH@@@@@@@\"
-\"@@@AOOOOH@@@@@@@\"
-\"@@@COOOOH@@@@@@@\"
-\"@@@COOOOHC@@@@@@\"
-\"@@@COOOOLB@@@@@@\"
-\"@@@AOOOONF@@@@@@\"
-\"@@@AOOOONL@@@@@@\"
-\"@@@AOOOOOL@@@@@@\"
-\"@@@AOOOOOH@@@@@@\"
-\"OOOOOOOOOOOOH@@@\"
-\"OOOOOOOOOOOOO@@@\"
-\"OOOOOOOOOOOOON@@\"
-\"OOOOOOOOOOOOOOL@\"
-\"OOOOOOOOOOOOOOOH\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"OOOOOOOOOOOOOOOO\"
-\"LOOOOOOOOOOOOOOO\"
-\"LAOOOOOOOOOOOOOO\"
-\"@@COOOOOOOOOOOOO\"
-\"@@@GH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
-\"@@@CH@@@@@@@@@@C\"
+       " ( {(READBITMAP)(64 77\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@OH@@@@@@@@@\"\
+\"@@@@COL@@@@@@@@@\"\
+\"@@@@CON@@@@@@@@@\"\
+\"@@@@GHC@@@@@@@@@\"\
+\"@@@@O@AH@@@@@@@@\"\
+\"@@@AKBEL@@@@@@@@\"\
+\"@@@AC@BD@@@@@@@@\"\
+\"@@@AAHBD@@@@@@@@\"\
+\"@@@A@LBD@@@@@@@@\"\
+\"@@@A@NDD@@@@@@@@\"\
+\"@@@AGOOL@@@@@@@@\"\
+\"@@@AHFDF@@@@@@@@\"\
+\"@@@AHBDB@@@@@@@@\"\
+\"@@@A@BDC@@@@@@@@\"\
+\"@@@A@AHA@@@@@@@@\"\
+\"@@@A@AIAH@@@@@@@\"\
+\"@@@AA@I@H@@@@@@@\"\
+\"@@@CA@HHH@@@@@@@\"\
+\"@@@BA@HHHC@@@@@@\"\
+\"@@@CA@I@DB@@@@@@\"\
+\"@@@AAH@HBF@@@@@@\"\
+\"@@@AHF@HNL@@@@@@\"\
+\"@@@ALC@GIL@@@@@@\"\
+\"@@@ADNLC@H@@@@@@\"\
+\"OOOOOHGOMOOOH@@@\"\
+\"O@@@@HDDGH@@O@@@\"\
+\"ON@@@GHC@F@@AN@@\"\
+\"LOL@@@@AOOH@@CL@\"\
+\"LAOH@@@@@@@@@@GH\"\
+\"L@COOOOOOOOOOOOO\"\
+\"L@@GOOOOOOOOOOOO\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"O@@CH@@@@@@@@@@C\"\
+\"ON@CH@@@@@@@@@@C\"\
+\"LOLCH@@@@@@@@@@C\"\
+\"LAOKH@@@@@@@@@@C\"\
+\"@@COOOOOOOOOOOOO\"\
+\"@@@GH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@AH@@@@@@@@@@C\")}  {(READBITMAP)(64 77\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@OH@@@@@@@@@\"\
+\"@@@@COL@@@@@@@@@\"\
+\"@@@@CON@@@@@@@@@\"\
+\"@@@@GOO@@@@@@@@@\"\
+\"@@@@OOOH@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOON@@@@@@@@\"\
+\"@@@AOOON@@@@@@@@\"\
+\"@@@AOOOO@@@@@@@@\"\
+\"@@@AOOOO@@@@@@@@\"\
+\"@@@AOOOOH@@@@@@@\"\
+\"@@@AOOOOH@@@@@@@\"\
+\"@@@COOOOH@@@@@@@\"\
+\"@@@COOOOHC@@@@@@\"\
+\"@@@COOOOLB@@@@@@\"\
+\"@@@AOOOONF@@@@@@\"\
+\"@@@AOOOONL@@@@@@\"\
+\"@@@AOOOOOL@@@@@@\"\
+\"@@@AOOOOOH@@@@@@\"\
+\"OOOOOOOOOOOOH@@@\"\
+\"OOOOOOOOOOOOO@@@\"\
+\"OOOOOOOOOOOOON@@\"\
+\"OOOOOOOOOOOOOOL@\"\
+\"OOOOOOOOOOOOOOOH\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"LOOOOOOOOOOOOOOO\"\
+\"LAOOOOOOOOOOOOOO\"\
+\"@@COOOOOOOOOOOOO\"\
+\"@@@GH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@AH@@@@@@@@@@C\")}  ( {(READBITMAP)(64 77\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@OH@@@@@@@@@\"\
+\"@@@@COL@@@@@@@@@\"\
+\"@@@@CON@@@@@@@@@\"\
+\"@@@@GHC@@@@@@@@@\"\
+\"@@@@O@AH@@@@@@@@\"\
+\"@@@AKBEL@@@@@@@@\"\
+\"@@@AC@BD@@@@@@@@\"\
+\"@@@AAHBD@@@@@@@@\"\
+\"@@@A@LBD@@@@@@@@\"\
+\"@@@A@NDD@@@@@@@@\"\
+\"@@@AGOOL@@@@@@@@\"\
+\"@@@AHFDF@@@@@@@@\"\
+\"@@@AHBDB@@@@@@@@\"\
+\"@@@A@BDC@@@@@@@@\"\
+\"@@@A@AHA@@@@@@@@\"\
+\"@@@A@AIAH@@@@@@@\"\
+\"@@@AA@I@H@@@@@@@\"\
+\"@@@CA@HHH@@@@@@@\"\
+\"@@@BA@HHHC@@@@@@\"\
+\"@@@CA@I@DB@@@@@@\"\
+\"@@@AAH@HBF@@@@@@\"\
+\"@@@AHF@HNL@@@@@@\"\
+\"@@@ALC@GIL@@@@@@\"\
+\"@@@ADNLC@H@@@@@@\"\
+\"OOOOOHGOMOOOH@@@\"\
+\"O@@@@HDDGH@@O@@@\"\
+\"ON@@@GHC@F@@AN@@\"\
+\"LOL@@@@AOOH@@CL@\"\
+\"LAOH@@@@@@@@@@GH\"\
+\"L@COOOOOOOOOOOOO\"\
+\"L@@GOOOOOOOOOOOO\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"L@@CH@@@@@@@@@@C\"\
+\"O@@CH@@@@@@@@@@C\"\
+\"ON@CH@@@@@@@@@@C\"\
+\"LOLCH@@@@@@@@@@C\"\
+\"LAOKH@@@@@@@@@@C\"\
+\"@@COOOOOOOOOOOOO\"\
+\"@@@GH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@AH@@@@@@@@@@C\")}  {(READBITMAP)(64 77\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"@@@@@@@@@@@@@@@@\"\
+\"@@@@@OH@@@@@@@@@\"\
+\"@@@@COL@@@@@@@@@\"\
+\"@@@@CON@@@@@@@@@\"\
+\"@@@@GOO@@@@@@@@@\"\
+\"@@@@OOOH@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOOL@@@@@@@@\"\
+\"@@@AOOON@@@@@@@@\"\
+\"@@@AOOON@@@@@@@@\"\
+\"@@@AOOOO@@@@@@@@\"\
+\"@@@AOOOO@@@@@@@@\"\
+\"@@@AOOOOH@@@@@@@\"\
+\"@@@AOOOOH@@@@@@@\"\
+\"@@@COOOOH@@@@@@@\"\
+\"@@@COOOOHC@@@@@@\"\
+\"@@@COOOOLB@@@@@@\"\
+\"@@@AOOOONF@@@@@@\"\
+\"@@@AOOOONL@@@@@@\"\
+\"@@@AOOOOOL@@@@@@\"\
+\"@@@AOOOOOH@@@@@@\"\
+\"OOOOOOOOOOOOH@@@\"\
+\"OOOOOOOOOOOOO@@@\"\
+\"OOOOOOOOOOOOON@@\"\
+\"OOOOOOOOOOOOOOL@\"\
+\"OOOOOOOOOOOOOOOH\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"OOOOOOOOOOOOOOOO\"\
+\"LOOOOOOOOOOOOOOO\"\
+\"LAOOOOOOOOOOOOOO\"\
+\"@@COOOOOOOOOOOOO\"\
+\"@@@GH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
+\"@@@CH@@@@@@@@@@C\"\
 \"@@@AH@@@@@@@@@@C\")}  (8 30 60 60)))
 ")
 
@@ -3160,21 +3160,21 @@
 (RPAQ? TEXEC.BUFFERLIMIT 10000)
 (PUTPROPS TEXEC COPYRIGHT ("Venue & Xerox Corporation" 1985 1900 1986 1987 1988 1989 1990 1991))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (3269 182029 (TEXEC.BACKSKREAD 3279 . 7903) (TEXEC.OPENTEXTSTREAM 7905 . 9963) (
-TEXEC.DEFAULT.MENUFN 9965 . 14519) (TEXEC.DO?CMD 14521 . 19839) (TEXEC.CREATEMENU 19841 . 20299) (
-TEXEC.GET 20301 . 29136) (TEXEC.INCLUDE 29138 . 42523) (TEXEC.FIND.FORWARD 42525 . 55413) (
-TEXEC.FIND.BACKWARD 55415 . 68917) (TEDIT.FIND.BACKWARD 68919 . 74396) (TEDIT.BASICFIND.BACKWARD 74398
- . 79052) (TEXEC.MENU.WHENHELDFN 79054 . 79713) (TEXEC.SHRINK.ICONCREATE 79715 . 82518) (
-TEXEC.FILLBUFFER 82520 . 98954) (TEXEC.FILLBUFFER.TCLASS 98956 . 105296) (TEXEC.CHSELPENDING 105298 . 
-113788) (TEXEC.FILLBUFFER.CHARDELETE 113790 . 115845) (TEXEC.FILLBUFFER.WORDDELETE 115847 . 120975) (
-TEXEC.FILLBUFFER.LINEDELETE 120977 . 123859) (TEXEC.PARENCOUNT 123861 . 125250) (TEXEC.PARENMATCH 
-125252 . 126792) (TEXEC.FLASHCARET 126794 . 129453) (TEXEC.TEXTSTREAM.TO.LINEBUF 129455 . 132142) (
-TEXEC.FIX 132144 . 135313) (TEXEC.NTHBUFCHARBACK 135315 . 136378) (TEXEC.NTHBACKCHNUM 136380 . 137665)
- (TEXEC.EOTP 137667 . 138400) (TEXEC.GETKEY 138402 . 141318) (TEXEC.INSERTCHAR 141320 . 143621) (
-TEXEC.DELETE 143623 . 144398) (TEXEC.\\CHDEL1 144400 . 147525) (TEXEC.?EQUAL 147527 . 148576) (
-TEDIT.SCROLL? 148578 . 153541) (TEXEC.DISPLAYTEXT 153543 . 160318) (\\TEXEC.TEXTBOUT 160320 . 163328) 
-(\\TEXEC.TEXTBOUT1 163330 . 168964) (\\TEXEC.TEXTBOUT2 168966 . 171297) (\\TEXEC.TEXTBOUT3 171299 . 
-172689) (\\TEXEC.TEXTBOUT4 172691 . 174734) (\\TEXEC.SELFN 174736 . 176111) (TEXEC.PRINTARGS 176113 . 
-181076) (TEXEC.PROCENTRYFN 181078 . 181619) (TEXEC.PROCEXITFN 181621 . 182027)) (182089 188464 (TEXEC 
-182099 . 186521) (TTEXEC 186523 . 188462)))))
+  (FILEMAP (NIL (3225 181985 (TEXEC.BACKSKREAD 3235 . 7859) (TEXEC.OPENTEXTSTREAM 7861 . 9919) (
+TEXEC.DEFAULT.MENUFN 9921 . 14475) (TEXEC.DO?CMD 14477 . 19795) (TEXEC.CREATEMENU 19797 . 20255) (
+TEXEC.GET 20257 . 29092) (TEXEC.INCLUDE 29094 . 42479) (TEXEC.FIND.FORWARD 42481 . 55369) (
+TEXEC.FIND.BACKWARD 55371 . 68873) (TEDIT.FIND.BACKWARD 68875 . 74352) (TEDIT.BASICFIND.BACKWARD 74354
+ . 79008) (TEXEC.MENU.WHENHELDFN 79010 . 79669) (TEXEC.SHRINK.ICONCREATE 79671 . 82474) (
+TEXEC.FILLBUFFER 82476 . 98910) (TEXEC.FILLBUFFER.TCLASS 98912 . 105252) (TEXEC.CHSELPENDING 105254 . 
+113744) (TEXEC.FILLBUFFER.CHARDELETE 113746 . 115801) (TEXEC.FILLBUFFER.WORDDELETE 115803 . 120931) (
+TEXEC.FILLBUFFER.LINEDELETE 120933 . 123815) (TEXEC.PARENCOUNT 123817 . 125206) (TEXEC.PARENMATCH 
+125208 . 126748) (TEXEC.FLASHCARET 126750 . 129409) (TEXEC.TEXTSTREAM.TO.LINEBUF 129411 . 132098) (
+TEXEC.FIX 132100 . 135269) (TEXEC.NTHBUFCHARBACK 135271 . 136334) (TEXEC.NTHBACKCHNUM 136336 . 137621)
+ (TEXEC.EOTP 137623 . 138356) (TEXEC.GETKEY 138358 . 141274) (TEXEC.INSERTCHAR 141276 . 143577) (
+TEXEC.DELETE 143579 . 144354) (TEXEC.\\CHDEL1 144356 . 147481) (TEXEC.?EQUAL 147483 . 148532) (
+TEDIT.SCROLL? 148534 . 153497) (TEXEC.DISPLAYTEXT 153499 . 160274) (\\TEXEC.TEXTBOUT 160276 . 163284) 
+(\\TEXEC.TEXTBOUT1 163286 . 168920) (\\TEXEC.TEXTBOUT2 168922 . 171253) (\\TEXEC.TEXTBOUT3 171255 . 
+172645) (\\TEXEC.TEXTBOUT4 172647 . 174690) (\\TEXEC.SELFN 174692 . 176067) (TEXEC.PRINTARGS 176069 . 
+181032) (TEXEC.PROCENTRYFN 181034 . 181575) (TEXEC.PROCEXITFN 181577 . 181983)) (182045 188420 (TEXEC 
+182055 . 186477) (TTEXEC 186479 . 188418)))))
 STOP
diff --git a/library/TEXEC.LCOM b/library/TEXEC.LCOM
index 15c3ed65..27c71006 100644
Binary files a/library/TEXEC.LCOM and b/library/TEXEC.LCOM differ
diff --git a/library/lafite/LAFITETEDIT b/library/lafite/LAFITETEDIT
index a20584d4..91ae9ffb 100644
--- a/library/lafite/LAFITETEDIT
+++ b/library/lafite/LAFITETEDIT
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "30-Sep-2021 23:07:55" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;3 12516  
 
-      changes to%:  (VARS LAFITETEDITCOMS)
-                    (FNS LA.ADJUST.FORMATTING LA.SKIP.LOOKS.LIST LA.DETACH.TEDIT LA.TEDIT.INCLUDE 
-                         LA.WINDOW.FROM.TEXTSTREAM TEDIT.ASSURE.NO.BACKING.FILE)
-                    (FILES LAFITEDECLS)
+(FILECREATED "16-Jul-2022 23:37:24" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;5 12306  
 
-      previous date%: "30-Sep-2021 22:59:28" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>LAFITETEDIT.;2)
+      :CHANGES-TO (VARS LAFITETEDITCOMS)
+
+      :PREVIOUS-DATE "30-Sep-2021 23:07:55" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>lafite>LAFITETEDIT.;4)
 
 
 (* ; "
@@ -27,8 +25,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
 
                (* ;; "Need TEDIT internal declarations for LA.ADJUST.FORMATTING.  Can't just do (FILES (SOURCE) TEDITDCL), because there is a compiled version that is already loaded that isn't enough.")
 
-               (P (CL:UNLESS (GET 'TEDITDCL 'FILE)
-                         (FILESLOAD TEDITDCL)))
+               (P (CL:UNLESS (GET 'TEDIT-DCL 'FILE)
+                         (FILESLOAD TEDIT-DCL)))
                (FILES (SOURCE)
                       LAFITEDECLS)
                (GLOBALVARS *TEDIT-FILE-READTABLE*)
@@ -185,8 +183,8 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
-(CL:UNLESS (GET 'TEDITDCL 'FILE)
-       (FILESLOAD TEDITDCL))
+(CL:UNLESS (GET 'TEDIT-DCL 'FILE)
+       (FILESLOAD TEDIT-DCL))
 
 
 (FILESLOAD (SOURCE)
@@ -204,7 +202,7 @@ Copyright (c) 1988, 1990, 1992, 2021 by Xerox Corporation.
 )
 (PUTPROPS LAFITETEDIT COPYRIGHT ("Xerox Corporation" 1988 1990 1992 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1549 12147 (LA.ADJUST.FORMATTING 1559 . 7695) (LA.SKIP.LOOKS.LIST 7697 . 8271) (
-LA.DETACH.TEDIT 8273 . 8638) (LA.TEDIT.INCLUDE 8640 . 9129) (LA.WINDOW.FROM.TEXTSTREAM 9131 . 9577) (
-TEDIT.ASSURE.NO.BACKING.FILE 9579 . 12145)))))
+  (FILEMAP (NIL (1337 11935 (LA.ADJUST.FORMATTING 1347 . 7483) (LA.SKIP.LOOKS.LIST 7485 . 8059) (
+LA.DETACH.TEDIT 8061 . 8426) (LA.TEDIT.INCLUDE 8428 . 8917) (LA.WINDOW.FROM.TEXTSTREAM 8919 . 9365) (
+TEDIT.ASSURE.NO.BACKING.FILE 9367 . 11933)))))
 STOP
diff --git a/library/lafite/LAFITETEDIT.LCOM b/library/lafite/LAFITETEDIT.LCOM
index 040f78b3..ef5ac6d3 100644
Binary files a/library/lafite/LAFITETEDIT.LCOM and b/library/lafite/LAFITETEDIT.LCOM differ
diff --git a/lispusers/TEDITDORADOKEYS b/lispusers/TEDITDORADOKEYS
index f4aa3122..4f459d0a 100644
--- a/lispusers/TEDITDORADOKEYS
+++ b/lispusers/TEDITDORADOKEYS
@@ -1,22 +1,23 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-(FILECREATED "19-Apr-2018 12:27:21" 
-|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;2| 22264  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-      |changes| |to:|  (VARS TEDITDORADOKEYSCOMS)
+(FILECREATED "16-Jul-2022 23:40:36" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2| 22214  
 
-      |previous| |date:| "28-Oct-87 19:53:12" 
-|{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>TEDITDORADOKEYS.;1|)
+      :CHANGES-TO (VARS TEDITDORADOKEYSCOMS)
+
+      :PREVIOUS-DATE "19-Apr-2018 12:27:21" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;1|)
 
 
-; Copyright (c) 1987, 2018 by Xerox Corporation.  All rights reserved.
+; Copyright (c) 1987, 2018 by Xerox Corporation.
 
 (PRETTYCOMPRINT TEDITDORADOKEYSCOMS)
 
 (RPAQQ TEDITDORADOKEYSCOMS
-       ((FILES TEDITDCL TEDITFNKEYS)
+       ((FILES TEDIT-DCL TEDIT-FNKEYS)
         (COMS 
-              (* |;;| 
-       "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
+              (* |;;| 
+         "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
 
               (FNS \\TEDIT.BOLD.SEL.OFF \\TEDIT.BOLD.SEL.ON \\TEDIT.CENTER.SEL \\TEDIT.CENTER.SEL.REV
                    \\TEDIT.DEFAULTS.CARET \\TEDIT.DEFAULTSSEL \\TEDIT.SETDEFAULT.FROM.SEL 
@@ -25,7 +26,7 @@
                    \\TEDIT.SUPERSCRIPTSEL \\TEDIT.UCASE.SEL \\TEDIT.UNDERLINE.SEL.OFF 
                    \\TEDIT.UNDERLINE.SEL.ON \\TEDIT.STRIKEOUT.SEL.ON \\TEDIT.STRIKEOUT.SEL.OFF))
         (COMS 
-              (* |;;| "Specialized functions for this module")
+              (* |;;| "Specialized functions for this module")
 
               (FNS \\TEDIT.DK.ABORT \\TEDIT.DK.FIND \\TEDIT.DK.SUBSTITUTE \\TEDIT.DK.INSERT-PARENS 
                    \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))
@@ -65,12 +66,11 @@
                                                        (TEDIT.SETSYNTAX (CAR ENTRY)
                                                               (CADR ENTRY)))))))
 
-(FILESLOAD TEDITDCL TEDITFNKEYS)
+(FILESLOAD TEDIT-DCL TEDIT-FNKEYS)
 
 
 
-(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down."
-)
+(* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down.")
 
 (DEFINEQ
 
@@ -442,22 +442,22 @@
         ("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)))
 
 (FOR ENTRY IN \\TEDIT.DORADO.KEYS DO (SELECTQ (CADR ENTRY)
-                                                     (FN (TEDIT.SETFUNCTION (CAR ENTRY)
-                                                                (CADDR ENTRY)))
-                                                     (TEDIT.SETSYNTAX (CAR ENTRY)
-                                                            (CADR ENTRY))))
+                                         (FN (TEDIT.SETFUNCTION (CAR ENTRY)
+                                                    (CADDR ENTRY)))
+                                         (TEDIT.SETSYNTAX (CAR ENTRY)
+                                                (CADR ENTRY))))
 (PUTPROPS TEDITDORADOKEYS COPYRIGHT ("Xerox Corporation" 1987 2018))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (4082 15770 (\\TEDIT.BOLD.SEL.OFF 4092 . 4330) (\\TEDIT.BOLD.SEL.ON 4332 . 4566) (
-\\TEDIT.CENTER.SEL 4568 . 5638) (\\TEDIT.CENTER.SEL.REV 5640 . 6735) (\\TEDIT.DEFAULTS.CARET 6737 . 
-7029) (\\TEDIT.DEFAULTSSEL 7031 . 7369) (\\TEDIT.SETDEFAULT.FROM.SEL 7371 . 7828) (\\TEDIT.FIND 7830
- . 10691) (\\TEDIT.ITALIC.SEL.OFF 10693 . 10935) (\\TEDIT.ITALIC.SEL.ON 10937 . 11123) (
-\\TEDIT.LARGERSEL 11125 . 11420) (\\TEDIT.LCASE.SEL 11422 . 12138) (\\TEDIT.SHOWCARETLOOKS 12140 . 
-13523) (\\TEDIT.SMALLERSEL 13525 . 13823) (\\TEDIT.SUBSCRIPTSEL 13825 . 14032) (\\TEDIT.SUPERSCRIPTSEL
- 14034 . 14242) (\\TEDIT.UCASE.SEL 14244 . 15000) (\\TEDIT.UNDERLINE.SEL.OFF 15002 . 15193) (
-\\TEDIT.UNDERLINE.SEL.ON 15195 . 15384) (\\TEDIT.STRIKEOUT.SEL.ON 15386 . 15575) (
-\\TEDIT.STRIKEOUT.SEL.OFF 15577 . 15768)) (15828 20622 (\\TEDIT.DK.ABORT 15838 . 15905) (
-\\TEDIT.DK.FIND 15907 . 18936) (\\TEDIT.DK.SUBSTITUTE 18938 . 19195) (\\TEDIT.DK.INSERT-PARENS 19197
- . 19584) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19586 . 20078) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES 
-20080 . 20620)))))
+  (FILEMAP (NIL (4080 15768 (\\TEDIT.BOLD.SEL.OFF 4090 . 4328) (\\TEDIT.BOLD.SEL.ON 4330 . 4564) (
+\\TEDIT.CENTER.SEL 4566 . 5636) (\\TEDIT.CENTER.SEL.REV 5638 . 6733) (\\TEDIT.DEFAULTS.CARET 6735 . 
+7027) (\\TEDIT.DEFAULTSSEL 7029 . 7367) (\\TEDIT.SETDEFAULT.FROM.SEL 7369 . 7826) (\\TEDIT.FIND 7828
+ . 10689) (\\TEDIT.ITALIC.SEL.OFF 10691 . 10933) (\\TEDIT.ITALIC.SEL.ON 10935 . 11121) (
+\\TEDIT.LARGERSEL 11123 . 11418) (\\TEDIT.LCASE.SEL 11420 . 12136) (\\TEDIT.SHOWCARETLOOKS 12138 . 
+13521) (\\TEDIT.SMALLERSEL 13523 . 13821) (\\TEDIT.SUBSCRIPTSEL 13823 . 14030) (\\TEDIT.SUPERSCRIPTSEL
+ 14032 . 14240) (\\TEDIT.UCASE.SEL 14242 . 14998) (\\TEDIT.UNDERLINE.SEL.OFF 15000 . 15191) (
+\\TEDIT.UNDERLINE.SEL.ON 15193 . 15382) (\\TEDIT.STRIKEOUT.SEL.ON 15384 . 15573) (
+\\TEDIT.STRIKEOUT.SEL.OFF 15575 . 15766)) (15826 20620 (\\TEDIT.DK.ABORT 15836 . 15903) (
+\\TEDIT.DK.FIND 15905 . 18934) (\\TEDIT.DK.SUBSTITUTE 18936 . 19193) (\\TEDIT.DK.INSERT-PARENS 19195
+ . 19582) (\\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 19584 . 20076) (\\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES 
+20078 . 20618)))))
 STOP
diff --git a/lispusers/TEDITDORADOKEYS.LCOM b/lispusers/TEDITDORADOKEYS.LCOM
index 79b623ac..a7697372 100644
Binary files a/lispusers/TEDITDORADOKEYS.LCOM and b/lispusers/TEDITDORADOKEYS.LCOM differ
diff --git a/sources/MAIKOLOADUPFNS b/sources/MAIKOLOADUPFNS
index 5cd692de..0a36eb9d 100644
--- a/sources/MAIKOLOADUPFNS
+++ b/sources/MAIKOLOADUPFNS
@@ -1,14 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "26-Oct-2021 09:55:14" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;2 5969   
+(FILECREATED "16-Jul-2022 22:45:28" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;2 5827   
 
-      changes to%:  (FNS \BITBLTSUB \BLTCHAR)
+      :CHANGES-TO (VARS MAIKOLOADUPFNSCOMS)
+                  (FNS CL::%%COPY-TIME-STATS CHECKPAGEMAP CLOCK CLOCK0 DAYTIME SETTIME)
 
-      previous date%: " 2-Mar-2021 23:12:27" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;1)
+      :PREVIOUS-DATE "26-Oct-2021 09:55:14" {DSK}<home>larry>medley>sources>MAIKOLOADUPFNS.;1)
 
 
 (* ; "
-Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
+Copyright (c) 1989, 2018, 2021-2022 by ENVOS Corporation.
 ")
 
 (PRETTYCOMPRINT MAIKOLOADUPFNSCOMS)
@@ -20,39 +21,36 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
              \CHECKSUM \CLOCK0 \COUNTREALPAGES \DAYTIME0 \DIRTYBACKGROUND \DOLOCKPAGES \DONEWPAGE 
              \DORECLAIM \DOTEMPLOCKPAGES \LOADVMEMPAGE \LOCKEDPAGEP \LOCKPAGES \MOVEVMEMFILEPAGE 
              \NEWPAGE \PAGEFAULT \SHOWPAGETABLE \TEMPUNLOCKPAGES \UNLOCKPAGES \WRITEDIRTYPAGE)
-        (GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (LOCALVARS . T)
-               (FILES (SOURCE)
-                      TEDITDCL))))
+        (GLOBALVARS \TimeZoneComp)))
 
 (PUTPROPS MAIKOLOADUPFNS FILETYPE CL:COMPILE-FILE)
 
-(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" 
-                                                             :BASE 10))
+(PUTPROPS MAIKOLOADUPFNS MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10))
 (DEFINEQ
 
 (CL::%%COPY-TIME-STATS
-  [LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK)        (* ; "Edited  2-May-88 17:16 by MASINTER")
+  [LAMBDA (REFERENCE-BLOCK DESTINIATION-BLOCK)            (* ; "Edited  2-May-88 17:16 by MASINTER")
     (SUBRCALL COPYTIMESTATS REFERENCE-BLOCK DESTINIATION-BLOCK])
 
 (CHECKPAGEMAP
-  [LAMBDA NIL                                          (* ; "Edited 25-Feb-2021 10:07 by larry")
+  [LAMBDA NIL                                              (* ; "Edited 25-Feb-2021 10:07 by larry")
     NIL])
 
 (CLOCK
-  [LAMBDA (N BOX)                                     (* ; "Edited  2-May-88 16:11 by MASINTER")
+  [LAMBDA (N BOX)                                         (* ; "Edited  2-May-88 16:11 by MASINTER")
     (SUBRCALL GETUNIXTIME N BOX])
 
 (CLOCK0
-  [LAMBDA (BOX)                                       (* ; "Edited  2-May-88 16:19 by MASINTER")
+  [LAMBDA (BOX)                                           (* ; "Edited  2-May-88 16:19 by MASINTER")
     (SUBRCALL GETUNIXTIME 0 BOX])
 
 (DAYTIME
-  [LAMBDA (BOX)                                       (* ; "Edited  2-May-88 16:20 by MASINTER")
+  [LAMBDA (BOX)                                           (* ; "Edited  2-May-88 16:20 by MASINTER")
     (SUBRCALL GETUNIXTIME 5 BOX])
 
 (SETTIME
-  [LAMBDA (RETFLG)                                    (* ; "Edited 13-May-88 15:22 by MASINTER")
+  [LAMBDA (RETFLG)                                         (* ; "Edited 16-Jul-2022 22:44 by larry")
+                                                             (* ; "Edited 13-May-88 15:22 by lmm")
     (CL:UNLESS (AND RETFLG (NOT (STRINGP RETFLG)))
         (SETQ \TimeZoneComp (SUBRCALL GETUNIXTIME 8 NIL)))
     (\PROCESS.RESET.TIMERS)
@@ -149,26 +147,16 @@ Copyright (c) 1989, 2018, 2021 by ENVOS Corporation.
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS \TimeZoneComp \RAWTRACING \MAXWATCHERGETS)
+(GLOBALVARS \TimeZoneComp)
 )
-(DECLARE%: EVAL@COMPILE DONTCOPY 
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(LOCALVARS . T)
-)
-
-
-(FILESLOAD (SOURCE)
-       TEDITDCL)
-)
-(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021))
+(PUTPROPS MAIKOLOADUPFNS COPYRIGHT ("ENVOS Corporation" 1989 2018 2021 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1335 5651 (CL::%%COPY-TIME-STATS 1345 . 1541) (CHECKPAGEMAP 1543 . 1675) (CLOCK 1677 . 
-1826) (CLOCK0 1828 . 1978) (DAYTIME 1980 . 2131) (SETTIME 2133 . 2407) (\BITBLTSUB 2409 . 2831) (
-\BLTCHAR 2833 . 3014) (\CHECKSUM 3016 . 3181) (\CLOCK0 3183 . 3334) (\COUNTREALPAGES 3336 . 3469) (
-\DAYTIME0 3471 . 3624) (\DIRTYBACKGROUND 3626 . 3762) (\DOLOCKPAGES 3764 . 3896) (\DONEWPAGE 3898 . 
-4047) (\DORECLAIM 4049 . 4195) (\DOTEMPLOCKPAGES 4197 . 4333) (\LOADVMEMPAGE 4335 . 4468) (
-\LOCKEDPAGEP 4470 . 4586) (\LOCKPAGES 4588 . 4718) (\MOVEVMEMFILEPAGE 4720 . 4841) (\NEWPAGE 4843 . 
-4990) (\PAGEFAULT 4992 . 5104) (\SHOWPAGETABLE 5106 . 5240) (\TEMPUNLOCKPAGES 5242 . 5378) (
-\UNLOCKPAGES 5380 . 5512) (\WRITEDIRTYPAGE 5514 . 5649)))))
+  (FILEMAP (NIL (1214 5661 (CL::%%COPY-TIME-STATS 1224 . 1424) (CHECKPAGEMAP 1426 . 1562) (CLOCK 1564 . 
+1717) (CLOCK0 1719 . 1873) (DAYTIME 1875 . 2030) (SETTIME 2032 . 2417) (\BITBLTSUB 2419 . 2841) (
+\BLTCHAR 2843 . 3024) (\CHECKSUM 3026 . 3191) (\CLOCK0 3193 . 3344) (\COUNTREALPAGES 3346 . 3479) (
+\DAYTIME0 3481 . 3634) (\DIRTYBACKGROUND 3636 . 3772) (\DOLOCKPAGES 3774 . 3906) (\DONEWPAGE 3908 . 
+4057) (\DORECLAIM 4059 . 4205) (\DOTEMPLOCKPAGES 4207 . 4343) (\LOADVMEMPAGE 4345 . 4478) (
+\LOCKEDPAGEP 4480 . 4596) (\LOCKPAGES 4598 . 4728) (\MOVEVMEMFILEPAGE 4730 . 4851) (\NEWPAGE 4853 . 
+5000) (\PAGEFAULT 5002 . 5114) (\SHOWPAGETABLE 5116 . 5250) (\TEMPUNLOCKPAGES 5252 . 5388) (
+\UNLOCKPAGES 5390 . 5522) (\WRITEDIRTYPAGE 5524 . 5659)))))
 STOP
diff --git a/sources/MAIKOLOADUPFNS.LCOM b/sources/MAIKOLOADUPFNS.LCOM
index f81b8f2f..bc2912be 100644
Binary files a/sources/MAIKOLOADUPFNS.LCOM and b/sources/MAIKOLOADUPFNS.LCOM differ
