diff --git a/library/SYSEDIT b/library/SYSEDIT
index 32af010f..d7393b8e 100644
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1377   
-
-      :EDIT-BY "lmm"
+(FILECREATED "18-Jul-2023 12:07:08" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;2 1397   
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;1)
 
 
 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -24,7 +22,7 @@
               (MSRECORDTRANFLG T))
         (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
            (RESETVARS ((CROSSCOMPILING T))
-                  (FILESLOAD (SOURCE)
+                  (FILESLOAD (SOURCE FROM LOADUPS)
                          EXPORTS.ALL])
 
 (RPAQQ CLISPIFYPRETTYFLG NIL)
@@ -50,7 +48,7 @@
 (MOVD? 'APPLY* 'SPREADAPPLY*X)
 
 (RESETVARS ((CROSSCOMPILING T))
-           (FILESLOAD (SOURCE)
+           (FILESLOAD (SOURCE FROM LOADUPS)
                   EXPORTS.ALL))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
diff --git a/lispusers/EVALOBJ b/lispusers/EVALOBJ
index 28be07a3..954f0d27 100644
--- a/lispusers/EVALOBJ
+++ b/lispusers/EVALOBJ
@@ -1,22 +1,19 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED "11-May-2018 08:22:13" 
-{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;2 15206  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS EVALOBJCOMS)
+(FILECREATED "18-Jul-2023 12:27:33" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;2 15110  
 
-      previous date%: " 6-May-2000 09:24:45" 
-{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;1)
+      :CHANGES-TO (VARS EVALOBJCOMS)
 
+      :PREVIOUS-DATE "11-May-2018 08:22:13" {DSK}<home>frank>il>medley>gmedley>lispusers>EVALOBJ.;1
+)
 
-(* ; "
-Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights reserved.
-")
 
 (PRETTYCOMPRINT EVALOBJCOMS)
 
 (RPAQQ EVALOBJCOMS
        [(FILES IMOBJAPPLICATION)
-        (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES EXPORTS.ALL))
+        (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES (FROM LOADUPS)
+                                               EXPORTS.ALL))
         (FNS EVALOBJ.BUTTONEVENTINFN EVALOBJ.DISPLAYFN EVALOBJ.IMAGEBOXFN EVALOBJ.COPYFN 
              EVALOBJ.CREATE EVALOBJ.GETFN EVALOBJ.PUTFN)
         (FNS PARAMS TEXTSTREAMPARAM)
@@ -51,7 +48,8 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res
 (FILESLOAD IMOBJAPPLICATION)
 (DECLARE%: DOEVAL@LOAD DONTCOPY 
 
-(FILESLOAD EXPORTS.ALL)
+(FILESLOAD (FROM LOADUPS)
+       EXPORTS.ALL)
 )
 (DEFINEQ
 
@@ -264,7 +262,7 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res
                                                                                             SELECTION
                                                                                             )
                                                                                      (
-                                                                                   EVALOBJ.SELTOOBJ
+                                                                                     EVALOBJ.SELTOOBJ
                                                                                       TEXTSTREAM 
                                                                                       SELECTION
                                                                                       'CREATE/LOAD]
@@ -291,11 +289,10 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation.  All rights res
 
 (ADDTOVAR LAMA )
 )
-(PUTPROPS EVALOBJ COPYRIGHT ("Xerox Corporation" 1997 1998 1999 2000 2018))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3038 9319 (EVALOBJ.BUTTONEVENTINFN 3048 . 4241) (EVALOBJ.DISPLAYFN 4243 . 5418) (
-EVALOBJ.IMAGEBOXFN 5420 . 6963) (EVALOBJ.COPYFN 6965 . 7188) (EVALOBJ.CREATE 7190 . 8606) (
-EVALOBJ.GETFN 8608 . 9009) (EVALOBJ.PUTFN 9011 . 9317)) (9320 11885 (PARAMS 9330 . 11261) (
-TEXTSTREAMPARAM 11263 . 11883)) (11886 13031 (EVALOBJ.DISMANTLEFN 11896 . 12179) (EVALOBJ.SELTOOBJ 
-12181 . 13029)))))
+  (FILEMAP (NIL (3016 9297 (EVALOBJ.BUTTONEVENTINFN 3026 . 4219) (EVALOBJ.DISPLAYFN 4221 . 5396) (
+EVALOBJ.IMAGEBOXFN 5398 . 6941) (EVALOBJ.COPYFN 6943 . 7166) (EVALOBJ.CREATE 7168 . 8584) (
+EVALOBJ.GETFN 8586 . 8987) (EVALOBJ.PUTFN 8989 . 9295)) (9298 11863 (PARAMS 9308 . 11239) (
+TEXTSTREAMPARAM 11241 . 11861)) (11864 13009 (EVALOBJ.DISMANTLEFN 11874 . 12157) (EVALOBJ.SELTOOBJ 
+12159 . 13007)))))
 STOP
diff --git a/lispusers/EVALOBJ.LCOM b/lispusers/EVALOBJ.LCOM
index 21408e2c..cc59731c 100644
Binary files a/lispusers/EVALOBJ.LCOM and b/lispusers/EVALOBJ.LCOM differ
diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS
index 0f02b0ce..74b9f2ad 100644
--- a/lispusers/PSEUDOHOSTS
+++ b/lispusers/PSEUDOHOSTS
@@ -1,10 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "31-Oct-2022 23:32:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;151 27537  
+(FILECREATED "18-Jul-2023 13:12:35" {DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;2 28158  
 
-      :CHANGES-TO (FNS OPENFILE.PH)
+      :CHANGES-TO (VARS PSEUDOHOSTSCOMS)
+                  (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME 
+                       EXPAND.PH CONTRACT.PH SLASHIT UNSLASHIT GETHOSTINFO.PH OPENFILE.PH 
+                       GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH 
+                       OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH 
+                       SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH)
 
-      :PREVIOUS-DATE "14-Jul-2022 17:54:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;150)
+      :PREVIOUS-DATE "31-Oct-2022 23:32:43" 
+{DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;1)
 
 
 (PRETTYCOMPRINT PSEUDOHOSTSCOMS)
@@ -27,7 +33,8 @@
         (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
                (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
                (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-                      (LOAD 'EXPORTS.ALL))])
+                      (FILESLOAD (FROM LOADUPS)
+                             EXPORTS.ALL))])
 
 
 
@@ -53,8 +60,8 @@
                  (CHARCODE }))
         (SETQ HOST (SUBSTRING HOST 1 -2)))
     (SETQ HOST (U-CASE (MKATOM HOST)))
-    [IF PREFIX
-        THEN (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
+    [if PREFIX
+        then (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
                                                        "Redefining: first clear out the previous one")
                  (PSEUDOHOST HOST NIL))
              [LET (TARGETHOST TARGETDEVICE PREFIXHOST)
@@ -85,8 +92,8 @@
                   (* ;; "Save the last directory marker to pack on if needed.")
 
                   (\DEFINEDEVICE HOST
-                         (CREATE FDEV
-                            USING TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
+                         (create FDEV
+                            using TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX
                                   OPENFILELST _ NIL OPENFILE _ (FUNCTION OPENFILE.PH)
                                   GETFILENAME _ (FUNCTION GETFILENAME.PH)
                                   DIRECTORYNAMEP _ (FUNCTION DIRECTORYNAMEP.PH)
@@ -103,7 +110,7 @@
 
                   (* ;; "The ultimate target device keeps a map of prefixes and the hostnames they map to.  The longest matching prefix is chosen when a name that expands to the target device is contracted.")
 
-                  (CHANGE (FETCH (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
+                  (change (fetch (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE)
                          (SORT (CONS (LIST PREFIX HOST (CL:IF (EQ (CHARCODE /)
                                                                   (NTHCHARCODE PREFIX -1))
                                                            '/
@@ -112,12 +119,12 @@
                                (FUNCTION (LAMBDA (P1 P2)
                                            (IGREATERP (NCHARS (CAR P1))
                                                   (NCHARS (CAR P2]
-      ELSEIF (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
-        THEN 
+      elseif (SETQ PREFIX (CADR (PSEUDOHOSTP HOST)))
+        then 
              (* ;; "\DEFINEDEVICE removes the name-mapping but doesn't remove the device.  Maybe that's on purpose for other devices, but not here.")
 
              (LET* ((PHHOST (\GETDEVICEFROMNAME HOST \FILEDEVICES))
-                    (TARGETDEV (FETCH (PHDEVICE TARGETDEV) OF PHHOST)))
+                    (TARGETDEV (fetch (PHDEVICE TARGETDEV) OF PHHOST)))
                    (UNINTERRUPTABLY
                        (CL:WHEN TARGETDEV                    (* ; 
                                                              "Don't want to fail uninterruptably")
@@ -132,13 +139,13 @@
   [LAMBDA (HOST)                                             (* ; "Edited 24-Feb-2022 23:51 by rmk")
                                                              (* ; "Edited 18-Jan-2022 11:29 by rmk")
     (LET ((DEV (\GETDEVICEFROMNAME HOST T T)))
-         (CL:WHEN (AND DEV (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV)))
+         (CL:WHEN (AND DEV (type? FDEV (fetch (PHDEVICE TARGETDEV) OF DEV)))
              (LIST (FETCH (FDEV DEVICENAME) OF DEV)
                    (FETCH (PHDEVICE PREFIX)
                           DEV)))])
 
 (PSEUDOHOSTS
-  [LAMBDA NIL                                                (* ; "Edited 17-Jan-2022 18:15 by rmk")
+  [LAMBDA NIL                                                (* ; "Edited 17-Jan-2022 18:15 by rmk")
     (FOR DEV IN \FILEDEVICES WHEN (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV))
        COLLECT (LIST (FETCH (FDEV DEVICENAME) OF DEV)
                      (FETCH (PHDEVICE PREFIX) OF DEV])
@@ -401,7 +408,7 @@
            STREAM])
 
 (GENERATEFILES.PH
-  [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS)                (* ; "Edited 17-Jan-2022 20:46 by rmk")
+  [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS)                (* ; "Edited 17-Jan-2022 20:46 by rmk")
 
     (* ;; "FDEV is the pseudohost. We will generate from the target directory using its GENFILESTATE, but fiddle the output so that it looks like it is coming from the pseudo host.")
 
@@ -428,7 +435,7 @@
     (PSEUDOHOST.TARGETVAL SETFILEINFO (STREAM ATTRIBUTE VALUE DEVICE])
 
 (NEXTFILEFN.PH
-  [LAMBDA (GENFILESTATE NAMEONLY)                            (* ; "Edited 17-Jan-2022 21:27 by rmk")
+  [LAMBDA (GENFILESTATE NAMEONLY)                            (* ; "Edited 17-Jan-2022 21:27 by rmk")
     (LET* ((TARGETGENOBJ (CADR GENFILESTATE))
            (TARGETGENFILESTATE (FETCH GENFILESTATE OF TARGETGENOBJ))
            (FILENAME (APPLY* (FETCH NEXTFILEFN OF TARGETGENOBJ)
@@ -439,13 +446,13 @@
           FILENAME])
 
 (FILEINFOFN.PH
-  [LAMBDA (GENFILESTATE ATTRIBUTE)                           (* ; "Edited 17-Jan-2022 20:52 by rmk")
+  [LAMBDA (GENFILESTATE ATTRIBUTE)                           (* ; "Edited 17-Jan-2022 20:52 by rmk")
     (APPLY* (FETCH FILEINFOFN OF (CADR GENFILESTATE))
            (FETCH GENFILESTATE OF (CADR GENFILESTATE))
            ATTRIBUTE])
 
 (RENAMEFILE.PH
-  [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME)          (* ; "Edited 18-Jan-2022 09:52 by rmk")
+  [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME)          (* ; "Edited 18-Jan-2022 09:52 by rmk")
     (LET ((OLDTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF OLD-DEVICE))
           (NEWTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF NEW-DEVICE))
           (NEWTARGETNAME NEW-NAME)
@@ -520,16 +527,17 @@
 
 
 (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-    (LOAD 'EXPORTS.ALL))
+    (FILESLOAD (FROM LOADUPS)
+           EXPORTS.ALL))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1268 9300 (PSEUDOHOST 1278 . 6837) (PSEUDOHOSTP 6839 . 7352) (PSEUDOHOSTS 7354 . 7711) 
-(TARGETHOST 7713 . 7987) (TRUEFILENAME 7989 . 8676) (PSEUDOFILENAME 8678 . 9298)) (9328 16867 (
-EXPAND.PH 9338 . 10591) (CONTRACT.PH 10593 . 13258) (SLASHIT 13260 . 14828) (UNSLASHIT 14830 . 16576) 
-(GETHOSTINFO.PH 16578 . 16865)) (16868 24872 (OPENFILE.PH 16878 . 17951) (GETFILENAME.PH 17953 . 18242
-) (DIRECTORYNAMEP.PH 18244 . 18868) (CLOSEFILE.PH 18870 . 19337) (REOPENFILE.PH 19339 . 19904) (
-DELETEFILE.PH 19906 . 20190) (OPENP.PH 20192 . 20487) (UNREGISTERFILE.PH 20489 . 21031) (
-REGISTERFILE.PH 21033 . 21567) (GENERATEFILES.PH 21569 . 22609) (GETFILEINFO.PH 22611 . 22913) (
-SETFILEINFO.PH 22915 . 23114) (NEXTFILEFN.PH 23116 . 23658) (FILEINFOFN.PH 23660 . 23931) (
-RENAMEFILE.PH 23933 . 24870)))))
+  (FILEMAP (NIL (1835 9871 (PSEUDOHOST 1845 . 7404) (PSEUDOHOSTP 7406 . 7919) (PSEUDOHOSTS 7921 . 8282) 
+(TARGETHOST 8284 . 8558) (TRUEFILENAME 8560 . 9247) (PSEUDOFILENAME 9249 . 9869)) (9899 17438 (
+EXPAND.PH 9909 . 11162) (CONTRACT.PH 11164 . 13829) (SLASHIT 13831 . 15399) (UNSLASHIT 15401 . 17147) 
+(GETHOSTINFO.PH 17149 . 17436)) (17439 25459 (OPENFILE.PH 17449 . 18522) (GETFILENAME.PH 18524 . 18813
+) (DIRECTORYNAMEP.PH 18815 . 19439) (CLOSEFILE.PH 19441 . 19908) (REOPENFILE.PH 19910 . 20475) (
+DELETEFILE.PH 20477 . 20761) (OPENP.PH 20763 . 21058) (UNREGISTERFILE.PH 21060 . 21602) (
+REGISTERFILE.PH 21604 . 22138) (GENERATEFILES.PH 22140 . 23184) (GETFILEINFO.PH 23186 . 23488) (
+SETFILEINFO.PH 23490 . 23689) (NEXTFILEFN.PH 23691 . 24237) (FILEINFOFN.PH 24239 . 24514) (
+RENAMEFILE.PH 24516 . 25457)))))
 STOP
diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM
index 22acb128..62acc97a 100644
Binary files a/lispusers/PSEUDOHOSTS.LCOM and b/lispusers/PSEUDOHOSTS.LCOM differ
diff --git a/lispusers/tmax/TMAX b/lispusers/tmax/TMAX
index 752cefc6..e37fada6 100644
--- a/lispusers/tmax/TMAX
+++ b/lispusers/tmax/TMAX
@@ -1,17 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "17-Mar-2022 23:12:47" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;3 25981  
+(FILECREATED "18-Jul-2023 12:34:39" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;2 25955  
 
       :CHANGES-TO (VARS TMAXCOMS)
 
-      :PREVIOUS-DATE "24-Oct-2021 23:45:20" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;2)
+      :PREVIOUS-DATE "17-Mar-2022 23:12:47" {DSK}<home>frank>il>medley>gmedley>lispusers>tmax>TMAX.;1
+)
 
 
-(* ; "
-Copyright (c) 1987, 1997, 1999 by Stanford University.
-")
-
 (PRETTYCOMPRINT TMAXCOMS)
 
 (RPAQQ TMAXCOMS
@@ -25,7 +21,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
         [DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* '(SOURCE)
                                                    TMAX.FILE.LIST)))
                (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETPROP 'EXPORTS.ALL 'FILE)
-                                                       (LOAD 'EXPORTS.ALL]
+                                                       (FILESLOAD (FROM LOADUPS)
+                                                              EXPORTS.ALL]
         (P (DOFILESLOAD TMAX.FILE.LIST))
         
 
@@ -103,7 +100,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
 (OR (GETPROP 'EXPORTS.ALL 'FILE)
-    (LOAD 'EXPORTS.ALL))
+    (FILESLOAD (FROM LOADUPS)
+           EXPORTS.ALL))
 )
 )
 
@@ -560,16 +558,15 @@ Copyright (c) 1987, 1997, 1999 by Stanford University.
                                                              "Displays number-group menu"]
 
 (TSP.FUNCTION.HOOKS)
-(PUTPROPS TMAX COPYRIGHT ("Stanford University" 1987 1997 1999))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (8231 15446 (TSP.DISPLAY.FMMENU 8241 . 8806) (TSP.SETUP.FILENAMES 8808 . 10059) (
-TSP.SETUP.FMMENU 10061 . 10521) (TSP.FMMENU 10523 . 11709) (TSP.FM.APPLY 11711 . 12030) (UPDATE.ALL 
-12032 . 12704) (DOWNDATE.ALL 12706 . 13076) (TSP.FUNCTION.HOOKS 13078 . 14508) (TSP.GETFN 14510 . 
-15070) (TSP.PUTFN 15072 . 15444)) (15492 17741 (AutoUpdate.TOGGLE 15502 . 15738) (UPDATE? 15740 . 
-15885) (NGROUP.Menu.TOGGLE 15887 . 16269) (NGROUPMENU.ENABLED? 16271 . 16507) (
-NGROUP.Text-Before.TOGGLE 16509 . 16759) (TEXTBEFORE.ENABLED? 16761 . 16924) (NGROUP.Text-After.TOGGLE
- 16926 . 17174) (TEXTAFTER.ENABLED? 17176 . 17337) (Manual.Index.TOGGLE 17339 . 17578) (
-MANUALINDEX.ENABLED? 17580 . 17739)) (17775 23248 (GET.TSP.FONT 17785 . 18949) (GET.TSP.FONT.FAMILY 
-18951 . 19799) (GET.TSP.FONT.SIZE 19801 . 20289) (GET.TSP.FONT.FACE 20291 . 20990) (ABBREVIATE.FONT 
-20992 . 22492) (TMAX.SHADEOBJ 22494 . 23246)) (23288 24504 (TSP.LIST.OF.OBJECTS 23298 . 24502)))))
+  (FILEMAP (NIL (8270 15485 (TSP.DISPLAY.FMMENU 8280 . 8845) (TSP.SETUP.FILENAMES 8847 . 10098) (
+TSP.SETUP.FMMENU 10100 . 10560) (TSP.FMMENU 10562 . 11748) (TSP.FM.APPLY 11750 . 12069) (UPDATE.ALL 
+12071 . 12743) (DOWNDATE.ALL 12745 . 13115) (TSP.FUNCTION.HOOKS 13117 . 14547) (TSP.GETFN 14549 . 
+15109) (TSP.PUTFN 15111 . 15483)) (15531 17780 (AutoUpdate.TOGGLE 15541 . 15777) (UPDATE? 15779 . 
+15924) (NGROUP.Menu.TOGGLE 15926 . 16308) (NGROUPMENU.ENABLED? 16310 . 16546) (
+NGROUP.Text-Before.TOGGLE 16548 . 16798) (TEXTBEFORE.ENABLED? 16800 . 16963) (NGROUP.Text-After.TOGGLE
+ 16965 . 17213) (TEXTAFTER.ENABLED? 17215 . 17376) (Manual.Index.TOGGLE 17378 . 17617) (
+MANUALINDEX.ENABLED? 17619 . 17778)) (17814 23287 (GET.TSP.FONT 17824 . 18988) (GET.TSP.FONT.FAMILY 
+18990 . 19838) (GET.TSP.FONT.SIZE 19840 . 20328) (GET.TSP.FONT.FACE 20330 . 21029) (ABBREVIATE.FONT 
+21031 . 22531) (TMAX.SHADEOBJ 22533 . 23285)) (23327 24543 (TSP.LIST.OF.OBJECTS 23337 . 24541)))))
 STOP
diff --git a/lispusers/tmax/TMAX.LCOM b/lispusers/tmax/TMAX.LCOM
index 65364f60..37df82b8 100644
Binary files a/lispusers/tmax/TMAX.LCOM and b/lispusers/tmax/TMAX.LCOM differ
