diff --git a/lispusers/MANAGER b/lispusers/MANAGER
index e28d1fad..2dcc2a1c 100644
--- a/lispusers/MANAGER
+++ b/lispusers/MANAGER
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Feb-2023 23:53:39" {LU}MANAGER.;11 115662 
+(FILECREATED "22-Feb-2023 22:50:32" {LU}MANAGER.;15 115916 
 
-      :CHANGES-TO (FNS Manager.MAINOPEN)
-                  (VARS MANAGERCOMS)
+      :CHANGES-TO (VARS MANAGERCOMS)
+                  (FNS Manager.DO.COMMAND)
 
-      :PREVIOUS-DATE " 6-Feb-2023 16:47:42" {LU}MANAGER.;9)
+      :PREVIOUS-DATE "22-Feb-2023 14:13:20" {LU}MANAGER.;14)
 
 
 (* ; "
@@ -53,11 +53,12 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
         (* ;; "")
 
         (SPECVARS Manager.ACTIVEFLG MANAGER-CASES MANAGER-ADDTOFILES?)
-        (GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG 
+        (GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG
                MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS 
                MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS 
                MANAGER-MAIN-MENU-ITEMS MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW 
-               MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
+               MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR MANAGER.BM MANAGER.BM.MASK 
+               BackgroundMenuCommands BackgroundMenu)
         (VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES)
               (MANAGER-ADDTOFILES?)
               MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS 
@@ -186,11 +187,11 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG SAVEDBFLG 
+(GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADDBFLG SAVEDBFLG 
        MANAGER-ITEM-OPERATION-COMMANDS MANAGER-ITEM-FILE-RELATION-COMMANDS 
        MANAGER-FILE-OPERATIONS-COMMANDS MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-MAIN-MENU-ITEMS 
        MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR 
-       BackgroundMenuCommands BackgroundMenu)
+       MANAGER.BM MANAGER.BM.MASK BackgroundMenuCommands BackgroundMenu)
 )
 
 (RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK))
@@ -265,9 +266,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("Set to Ask" 'DBFILEASK
                                            ("Dump DB" 'DUMPDB 
               "Dump this file's MasterScope information, if it exists and make it's upkeep automatic"
                                                   ]
-        ("Compile" 'COMPILE "Compile this file" (SUBITEMS ("Compile" 'COMPILE "InterLisp compiler")
-                                                       (" CL:COMPILE-FILE " 'CL:COMPILE-FILE 
-                                                              "CommonLisp compiler")))
+        ("Compile" 'CL:COMPILE-FILE "Compile this file with the CommonLisp compiler"
+               (SUBITEMS ("Compile" 'COMPILE "InterLisp compiler")
+                      (" CL:COMPILE-FILE " 'CL:COMPILE-FILE "CommonLisp compiler")))
         ("Changes" 'CHANGES "Show the changes that have been made to this file."
                (SUBITEMS ("Brief" 'CHANGES "Show the changes that have been made to this file.")
                       (" Everything " 'PL "Display everything on this file's property list")
@@ -540,16 +541,16 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                                                                UPDATEFILES])
 
 (Manager.ANCHORED-SET-POSITION
-  [LAMBDA (IW IH)                                   (* ; "Edited  6-Feb-2023 15:15 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 15:13 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 15:10 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:51 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:43 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:40 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:37 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:32 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 14:26 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 13:44 by Matt Heffron")
+  [LAMBDA (IW IH)                                   (* ; "Edited  6-Feb-2023 15:15 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 15:13 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 15:10 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:51 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:43 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:40 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:37 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:32 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 14:26 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 13:44 by MattHeffron" )
     (LET (WREGION XPOS YPOS TEMP)
          (SETQ WREGION (WINDOWPROP MANAGER-MAIN-WINDOW 'REGION))
          (SETQ YPOS (fetch (REGION BOTTOM) of WREGION))
@@ -571,7 +572,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                 YCOORD _ YPOS])
 
 (Manager.DO.COMMAND
-  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)         (* ; "Edited  6-Feb-2023 15:23 by Matt Heffron")
+  [LAMBDA (COMMAND ITEM COMSTYPE FILE MENU)         (* ; "Edited 22-Feb-2023 22:48 by MattHeffron" )
+                                                    (* ; "Edited 22-Feb-2023 14:13 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 15:23 by MattHeffron" )
                                                              (* ; "Edited 18-Nov-87 14:30 by raf")
     (if (EQ COMSTYPE 'FILEVARS)
         then (SETQ COMSTYPE 'VARS)                           (* ; "The Manager currently does unnatural things with the FILEVARS type, this is a hack to compensate for it. E.g., editing a FILEVARS = editing the VARS, etc.")
@@ -881,50 +884,50 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                              (FILESLOAD 'DATABASEFNS)
                                              (CL:FORMAT T 
                                        "~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
-                                                    SAVEDBFLG LOADBFLG))
+                                                    SAVEDBFLG LOADDBFLG))
                                           (DBFILE 
                                              (FILESLOAD 'DATABASEFNS)
                                              (CL:FORMAT T "~&The DATABASE prop for ~a is: ~a" FILE
                                                     (GETPROP FILE 'DATABASE))
                                              (CL:FORMAT T 
                                        "~&Global DataBaseFNS Flags:~%%SAVEDBFLG = ~a, LOADDBFLG = ~a"
-                                                    SAVEDBFLG LOADBFLG))
+                                                    SAVEDBFLG LOADDBFLG))
                                           (DBON 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'ON)
+                                             (SETQ LOADDBFLG 'ON)
                                              (SETQ SAVEDBFLG 'ON))
                                           (DBOFF 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'OFF)
-                                             (SETQ SAVEDBFLG 'OFF))
+                                             (SETQ LOADDBFLG 'NO)
+                                             (SETQ SAVEDBFLG 'NO))
                                           (DBASK 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'ASK)
+                                             (SETQ LOADDBFLG 'ASK)
                                              (SETQ SAVEDBFLG 'ASK))
                                           (DBLOADON 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'ON))
+                                             (SETQ LOADDBFLG 'YES))
                                           (DBSAVEON 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ SAVEDBFLG 'ON))
+                                             (SETQ SAVEDBFLG 'YES))
                                           (DBLOADOFF 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'OFF))
+                                             (SETQ LOADDBFLG 'NO))
                                           (DBSAVEOFF 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ SAVEDBFLG 'OFF))
+                                             (SETQ SAVEDBFLG 'NO))
                                           (DBLOADASK 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (SETQ LOADBFLG 'ASK))
+                                             (SETQ LOADDBFLG 'ASK))
                                           (DBSAVEASK 
                                              (FILESLOAD 'DATABASEFNS)
                                              (SETQ SAVEDBFLG 'ASK))
                                           (DBFILEON 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (PUTPROP FILE 'DATABASE 'ON))
+                                             (PUTPROP FILE 'DATABASE 'YES))
                                           (DBFILEOFF 
                                              (FILESLOAD 'DATABASEFNS)
-                                             (PUTPROP FILE 'DATABASE 'OFF))
+                                             (PUTPROP FILE 'DATABASE 'NO))
                                           (DBFILEASK 
                                              (FILESLOAD 'DATABASEFNS)
                                              (PUTPROP FILE 'DATABASE 'ASK))
@@ -1428,9 +1431,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                                          FILE])
 
 (Manager.MAINOPEN
-  [LAMBDA (POSITION)                                (* ; "Edited  6-Feb-2023 23:53 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 23:38 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 15:19 by Matt Heffron")
+  [LAMBDA (POSITION)                                (* ; "Edited  6-Feb-2023 23:53 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 23:38 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 15:19 by MattHeffron" )
                                                              (* ; "Edited 17-Aug-87 13:59 by raf")
 
 (* ;;; "Builds the manager main (FILELST) menu at the indicated position.")
@@ -1605,8 +1608,8 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                                                      " submenu for the file " FILE])
 
 (Manager.SET-ANCHOR
-  [LAMBDA (NEWANCHOR)                               (* ; "Edited  6-Feb-2023 16:47 by Matt Heffron")
-                                                    (* ; "Edited  6-Feb-2023 16:45 by Matt Heffron")
+  [LAMBDA (NEWANCHOR)                               (* ; "Edited  6-Feb-2023 16:47 by MattHeffron" )
+                                                    (* ; "Edited  6-Feb-2023 16:45 by MattHeffron" )
                                                              (* ; "")
     (if (AND (FMEMB NEWANCHOR '(ANCHOR-TL ANCHOR-TR ANCHOR-BL ANCHOR-BR))
              (NEQ Manager.WINDOW-ANCHOR NEWANCHOR))
@@ -1815,20 +1818,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
 )
 (PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25491 105786 (MANAGER 25501 . 26300) (MANAGER.RESET 26302 . 27816) (Manager.ADDADV 
-27818 . 29171) (Manager.ADDTOFILES? 29173 . 29451) (Manager.ALTERMARKING 29453 . 31063) (
-Manager.ANCHORED-SET-POSITION 31065 . 33149) (Manager.DO.COMMAND 33151 . 65421) (Manager.HIGHLIGHT 
-65423 . 65720) (Manager.PROMPT 65722 . 66035) (Manager.WINDOW 66037 . 66670) (
-Manager.insurefilehighlights 66672 . 67743) (Manager.CHANGED? 67745 . 68294) (Manager.CHECKFILE 68296
- . 69395) (Manager.COLLECTCOMS 69397 . 70835) (Manager.COMS.WSF 70837 . 73507) (Manager.COMSOPEN 73509
- . 78247) (Manager.COMSUPDATE 78249 . 79341) (Manager.HIGHLIGHTED 79343 . 79649) (
-Manager.INSUREHIGHLIGHTS 79651 . 80209) (Manager.FILECHANGES 80211 . 80510) (Manager.FILELSTCHANGED? 
-80512 . 80840) (Manager.FILESUBTYPES 80842 . 81480) (Manager.GET.ENVIRONMENT 81482 . 84020) (
-Manager.GETFILE 84022 . 86336) (Manager.INTITLE? 86338 . 87016) (Manager.MAIN.WSF 87018 . 89662) (
-Manager.MAINCLOSE 89664 . 90774) (Manager.MAINMENUITEMS 90776 . 91853) (Manager.MAINOPEN 91855 . 97573
-) (Manager.MAINUPDATE 97575 . 98211) (Manager.MAKEFILE.ADV 98213 . 99249) (Manager.MENUCOLUMNS 99251
- . 100055) (Manager.MENUHASITEM 100057 . 100414) (Manager.MENUITEMS 100416 . 100661) (
-Manager.REMOVE.DUPLICATE.ADVICE 100663 . 102269) (Manager.RESETSUBITEMS 102271 . 103508) (
-Manager.SET-ANCHOR 103510 . 104012) (Manager.SORT.COMS 104014 . 104546) (Manager.SORTBYCOLUMN 104548
- . 105784)))))
+  (FILEMAP (NIL (25521 106040 (MANAGER 25531 . 26330) (MANAGER.RESET 26332 . 27846) (Manager.ADDADV 
+27848 . 29201) (Manager.ADDTOFILES? 29203 . 29481) (Manager.ALTERMARKING 29483 . 31093) (
+Manager.ANCHORED-SET-POSITION 31095 . 33179) (Manager.DO.COMMAND 33181 . 65675) (Manager.HIGHLIGHT 
+65677 . 65974) (Manager.PROMPT 65976 . 66289) (Manager.WINDOW 66291 . 66924) (
+Manager.insurefilehighlights 66926 . 67997) (Manager.CHANGED? 67999 . 68548) (Manager.CHECKFILE 68550
+ . 69649) (Manager.COLLECTCOMS 69651 . 71089) (Manager.COMS.WSF 71091 . 73761) (Manager.COMSOPEN 73763
+ . 78501) (Manager.COMSUPDATE 78503 . 79595) (Manager.HIGHLIGHTED 79597 . 79903) (
+Manager.INSUREHIGHLIGHTS 79905 . 80463) (Manager.FILECHANGES 80465 . 80764) (Manager.FILELSTCHANGED? 
+80766 . 81094) (Manager.FILESUBTYPES 81096 . 81734) (Manager.GET.ENVIRONMENT 81736 . 84274) (
+Manager.GETFILE 84276 . 86590) (Manager.INTITLE? 86592 . 87270) (Manager.MAIN.WSF 87272 . 89916) (
+Manager.MAINCLOSE 89918 . 91028) (Manager.MAINMENUITEMS 91030 . 92107) (Manager.MAINOPEN 92109 . 97827
+) (Manager.MAINUPDATE 97829 . 98465) (Manager.MAKEFILE.ADV 98467 . 99503) (Manager.MENUCOLUMNS 99505
+ . 100309) (Manager.MENUHASITEM 100311 . 100668) (Manager.MENUITEMS 100670 . 100915) (
+Manager.REMOVE.DUPLICATE.ADVICE 100917 . 102523) (Manager.RESETSUBITEMS 102525 . 103762) (
+Manager.SET-ANCHOR 103764 . 104266) (Manager.SORT.COMS 104268 . 104800) (Manager.SORTBYCOLUMN 104802
+ . 106038)))))
 STOP
diff --git a/lispusers/MANAGER.DFASL b/lispusers/MANAGER.DFASL
index 59cc096e..f579e6ac 100644
Binary files a/lispusers/MANAGER.DFASL and b/lispusers/MANAGER.DFASL differ
