diff --git a/lispusers/MANAGER b/lispusers/MANAGER
index 2da55239..e28d1fad 100644
--- a/lispusers/MANAGER
+++ b/lispusers/MANAGER
@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Feb-2023 16:47:42" {DSK}<home>matt>medley>LISPUSERS>MANAGER.;9 115036 
+(FILECREATED " 6-Feb-2023 23:53:39" {LU}MANAGER.;11 115662 
 
-      :CHANGES-TO (FNS Manager.SET-ANCHOR)
+      :CHANGES-TO (FNS Manager.MAINOPEN)
+                  (VARS MANAGERCOMS)
 
-      :PREVIOUS-DATE " 6-Feb-2023 15:24:08" {DSK}<home>matt>medley>LISPUSERS>MANAGER.;8)
+      :PREVIOUS-DATE " 6-Feb-2023 16:47:42" {LU}MANAGER.;9)
 
 
 (* ; "
@@ -56,7 +57,7 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
                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.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
+               MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR BackgroundMenuCommands BackgroundMenu)
         (VARS *UNMANAGED-TYPES* MANAGER-ACTIVITY-WINDOW-TITLE (MANAGER-CASES)
               (MANAGER-ADDTOFILES?)
               MANAGER-FILE-FILE-RELATION-COMMANDS MANAGER-FILE-OPERATIONS-COMMANDS 
@@ -69,6 +70,9 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
                (Manager.DATASPACE NIL)
                (MANAGER-WINDOWS NIL)
                (MANAGER-MAIN-WINDOW NIL)
+               (MANAGER-MAIN-ICONW (ICONW MANAGER.BM MANAGER.BM.MASK
+                                          (create POSITION XCOORD _ 0 YCOORD _ 0)
+                                          T))
                (MANAGER-OPEN-WINDOWS NIL)
                (MANAGER-FILE-MENU NIL)
                (MANAGER-FILELST-MENU NIL)
@@ -185,8 +189,8 @@ Copyright (c) 1986-1987, 1900, 2022-2023 by Xerox Corporation.
 (GLOBALVARS LAMBDAFONT DEFAULTFONT MENUFONT BOLDMENUFONT MANAGER-WINDOWS LOADBFLG 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.WINDOW-ANCHOR BackgroundMenuCommands
-       BackgroundMenu)
+       MANAGER-ACTIVITY-WINDOW-TITLE MANAGER-MAIN-WINDOW MANAGER-MAIN-ICONW Manager.WINDOW-ANCHOR 
+       BackgroundMenuCommands BackgroundMenu)
 )
 
 (RPAQQ *UNMANAGED-TYPES* (EXPRESSIONS FILES FIELDS FILEVARS-ARE-NOW-OK))
@@ -403,6 +407,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
 
 (RPAQ? MANAGER-MAIN-WINDOW NIL)
 
+(RPAQ? MANAGER-MAIN-ICONW (ICONW MANAGER.BM MANAGER.BM.MASK (create POSITION XCOORD _ 0 YCOORD _ 0)
+                                 T))
+
 (RPAQ? MANAGER-OPEN-WINDOWS NIL)
 
 (RPAQ? MANAGER-FILE-MENU NIL)
@@ -1421,7 +1428,9 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
                                                          FILE])
 
 (Manager.MAINOPEN
-  [LAMBDA (POSITION)                                (* ; "Edited  6-Feb-2023 15:19 by Matt Heffron")
+  [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")
                                                              (* ; "Edited 17-Aug-87 13:59 by raf")
 
 (* ;;; "Builds the manager main (FILELST) menu at the indicated position.")
@@ -1483,17 +1492,18 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
          (* ;; "Shrink to the manager icon, and remember to update when the expanding")
 
          [WINDOWPROP MANAGER-MAIN-WINDOW 'ICONFN (FUNCTION (LAMBDA (WIN OICON)
-                                                             (LET ((IW (if (NULL OICON)
-                                                                           then (ICONW MANAGER.BM 
-                                                                                      MANAGER.BM.MASK
-                                                                                       )
-                                                                         else OICON)))
-                                                                  [WINDOWPROP IW 'EXPANDFN
-                                                                         (FUNCTION (LAMBDA NIL
-                                                                                     (
-                                                                                   Manager.MAINUPDATE
-                                                                                      NIL]
-                                                                  IW]
+                                                             (SETQ MANAGER-MAIN-ICONW
+                                                              (if (NULL OICON)
+                                                                  then (OR MANAGER-MAIN-ICONW
+                                                                           (ICONW MANAGER.BM 
+                                                                                  MANAGER.BM.MASK))
+                                                                else OICON))
+                                                             [WINDOWPROP MANAGER-MAIN-ICONW
+                                                                    'EXPANDFN
+                                                                    (FUNCTION (LAMBDA NIL
+                                                                                (Manager.MAINUPDATE
+                                                                                 NIL]
+                                                             MANAGER-MAIN-ICONW]
          (SETQ Manager.ACTIVEFLG T)
          (Manager.MAINUPDATE T])
 
@@ -1805,20 +1815,20 @@ Will load DataBaseFNS if necessary" (SUBITEMS ("All" 'DB
 )
 (PUTPROPS MANAGER COPYRIGHT ("Xerox Corporation" 1986 1987 1900 2022 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25135 105160 (MANAGER 25145 . 25944) (MANAGER.RESET 25946 . 27460) (Manager.ADDADV 
-27462 . 28815) (Manager.ADDTOFILES? 28817 . 29095) (Manager.ALTERMARKING 29097 . 30707) (
-Manager.ANCHORED-SET-POSITION 30709 . 32793) (Manager.DO.COMMAND 32795 . 65065) (Manager.HIGHLIGHT 
-65067 . 65364) (Manager.PROMPT 65366 . 65679) (Manager.WINDOW 65681 . 66314) (
-Manager.insurefilehighlights 66316 . 67387) (Manager.CHANGED? 67389 . 67938) (Manager.CHECKFILE 67940
- . 69039) (Manager.COLLECTCOMS 69041 . 70479) (Manager.COMS.WSF 70481 . 73151) (Manager.COMSOPEN 73153
- . 77891) (Manager.COMSUPDATE 77893 . 78985) (Manager.HIGHLIGHTED 78987 . 79293) (
-Manager.INSUREHIGHLIGHTS 79295 . 79853) (Manager.FILECHANGES 79855 . 80154) (Manager.FILELSTCHANGED? 
-80156 . 80484) (Manager.FILESUBTYPES 80486 . 81124) (Manager.GET.ENVIRONMENT 81126 . 83664) (
-Manager.GETFILE 83666 . 85980) (Manager.INTITLE? 85982 . 86660) (Manager.MAIN.WSF 86662 . 89306) (
-Manager.MAINCLOSE 89308 . 90418) (Manager.MAINMENUITEMS 90420 . 91497) (Manager.MAINOPEN 91499 . 96947
-) (Manager.MAINUPDATE 96949 . 97585) (Manager.MAKEFILE.ADV 97587 . 98623) (Manager.MENUCOLUMNS 98625
- . 99429) (Manager.MENUHASITEM 99431 . 99788) (Manager.MENUITEMS 99790 . 100035) (
-Manager.REMOVE.DUPLICATE.ADVICE 100037 . 101643) (Manager.RESETSUBITEMS 101645 . 102882) (
-Manager.SET-ANCHOR 102884 . 103386) (Manager.SORT.COMS 103388 . 103920) (Manager.SORTBYCOLUMN 103922
- . 105158)))))
+  (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)))))
 STOP
diff --git a/lispusers/MANAGER.DFASL b/lispusers/MANAGER.DFASL
index b141c7c0..59cc096e 100644
Binary files a/lispusers/MANAGER.DFASL and b/lispusers/MANAGER.DFASL differ
