diff --git a/library/FILEBROWSER b/library/FILEBROWSER
index 8121a3cb..9243456a 100644
--- a/library/FILEBROWSER
+++ b/library/FILEBROWSER
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "16-Oct-2021 15:04:31" 
-|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;13| 261677 
+(FILECREATED "23-Nov-2021 12:17:08" 
+|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>FILEBROWSER.;21| 261024 
 
-      |changes| |to:|  (VARS FILEBROWSERCOMS)
-                       (FNS FB.GETWINDOW FB.SET.BROWSER.TITLE FB.DATE)
+      |changes| |to:|  (FNS FB.FIX-DIRECTORY-DATES)
 
-      |previous| |date:| "19-Sep-2021 18:08:05" 
-|{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;10|)
+      |previous| |date:| "29-Oct-2021 21:19:42" 
+|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>FILEBROWSER.;20|)
 
 
 ; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
@@ -180,8 +179,7 @@ You specify how many versions to keep.")))
                                                              (* \; "Setup")
               (FNS FB.STARTUP FB.MAKERIGIDWINDOW)
               (FNS FB.PRINTFN FB.COPYFN))
-        (COMS                                                (* \; 
-                                                           "commands and major subfunctions")
+        (COMS                                                (* \; "commands and major subfunctions")
               (FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY 
                    FB.FINISH.COMMAND FB.HANDLE.ABORT.BUTTON)
               (FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.IS.NOT.SUBDIRECTORY.ITEM FB.DELVER.FILES 
@@ -293,9 +291,9 @@ You specify how many versions to keep.")))
 (RPAQ? FB.DEFAULT.INFO '(SIZE CREATIONDATE AUTHOR))
 
 (APPENDTOVAR FONTVARS (FB.ICONFONT LITTLEFONT)
-                          (FB.BROWSERFONT DEFAULTFONT)
-                          (FB.PROMPTFONT LITTLEFONT)
-                          (FB.BROWSER.DIRECTORY.FONT BOLDFONT))
+                      (FB.BROWSERFONT DEFAULTFONT)
+                      (FB.PROMPTFONT LITTLEFONT)
+                      (FB.BROWSER.DIRECTORY.FONT BOLDFONT))
 
 
 (* |;;| "FONTSET fills in the variables in FONTVARS for us, so do it.")
@@ -396,27 +394,25 @@ You specify how many versions to keep.")))
          ))
 
 (RPAQQ FB.VERSION.MENU.ITEMS (("1" 1 "Keep only one version of the files")
-                                  ("2" 2 "Keep two versions of the files")
-                                  ("3" 3 "Keep three versions of the files")
-                                  ("4" 4 "Keep four versions of the files")
-                                  ("Other" :NUMBER "Select number of versions to keep")))
+                              ("2" 2 "Keep two versions of the files")
+                              ("3" 3 "Keep three versions of the files")
+                              ("4" 4 "Keep four versions of the files")
+                              ("Other" :NUMBER "Select number of versions to keep")))
 
 (RPAQQ FB.CLOSE.MENU.ITEMS (("Expunge deleted files" 'EXPUNGE 
-                                       "Erases all files still marked 'deleted'")
-                                ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files.
+                                   "Erases all files still marked 'deleted'")
+                            ("Don't expunge" 'NOEXPUNGE "Proceeds (closes or updates browser) without expunging deleted files.
 Your deletions are thus ignored.")))
 
 (RPAQQ FB.DEPTH.MENU.ITEMS (("Global default" :GLOBAL 
-                                      "Set depth using the global default (FILING.ENUMERATION.DEPTH)"
-                                       )
-                                ("Infinite" T 
-                                     "Set depth to infinity, i.e., enumerate all levels of directory"
-                                       )
-                                ("1" 1 
+                                   "Set depth using the global default (FILING.ENUMERATION.DEPTH)")
+                            ("Infinite" T 
+                                   "Set depth to infinity, i.e., enumerate all levels of directory")
+                            ("1" 1 
                                 "Set depth to 1, i.e., enumerate just the top level of the directory"
-                                     )
-                                ("2" 2 "Set depth to 2")
-                                ("Other" :NUMBER "Set depth to some other finite depth")))
+                                 )
+                            ("2" 2 "Set depth to 2")
+                            ("Other" :NUMBER "Set depth to some other finite depth")))
 
 (RPAQQ FB.INFO.MENU.ITEMS
        ((|Length| LENGTH "Toggles Length display")
@@ -458,20 +454,21 @@ Your deletions are thus ignored.")))
 (DEFINEQ
 
 (FB
-  (NLAMBDA PATTERN                                           (* \; "Edited 26-Feb-88 13:50 by bvm")
+  (NLAMBDA PATTERN                                     (* \; "Edited 29-Oct-2021 21:18 by rmk:")
+                                                             (* \; "Edited 26-Feb-88 13:50 by bvm")
 
-(* |;;;| "FILEBROWSER entry from top-level exec: FB PATTERN ...  PROPS ...")
+(* |;;;| "FILEBROWSER entry from top-level exec: FB PATTERN ...  PROPS ...")
 
     (DESTRUCTURING-BIND (PAT . PROPS)
            (NLAMBDA.ARGS PATTERN)
            (LET (OPTIONS)
                 (|for| TAIL |on| PROPS |when| (AND (CL:KEYWORDP (CAR TAIL))
                                                                (CDR TAIL))
-                   |do|                                  (* \; 
-                                                 "Interpret keyword tail of attributes as OPTIONS.")
+                   |do|                                  (* \; 
+                                                 "Interpret keyword tail of attributes as OPTIONS.")
                          (RETURN (SETQ PROPS (LDIFF PROPS (SETQ OPTIONS TAIL)))))
                 (ADD.PROCESS `(,(FUNCTION FILEBROWSER)
-                               ',PAT
+                               ',(OR PAT '*)
                                ',PROPS
                                ',OPTIONS)
                        'NAME
@@ -2061,13 +2058,18 @@ Your deletions are thus ignored.")))
         (FB.UPDATEBROWSERITEMS BROWSER)))))
 
 (FB.FIX-DIRECTORY-DATES
-  (LAMBDA (BROWSER)                                    (* \; "Edited 21-Aug-2021 23:33 by rmk:")
+  (LAMBDA (BROWSER)                                        (* \; "Edited 23-Nov-2021 12:15 by rmk:")
+                                                           (* \; "Edited 21-Aug-2021 23:33 by rmk:")
+
+    (* |;;| 
+ "FILEDATE returns the source-file date of a compiled file.  We have to call with CFLG T to be sure.")
+
     (FOR F FD CHANGE IN (FILDIR (FETCH (FILEBROWSER PATTERN) OF BROWSER))
-       WHEN (SETQ FD (FILEDATE F)) UNLESS (IEQP (SETQ FD (IDATE FD))
-                                                        (GETFILEINFO F 'ICREATIONDATE))
+       WHEN (SETQ FD (OR (FILEDATE F T)
+                         (FILEDATE F))) UNLESS (IEQP (SETQ FD (IDATE FD))
+                                                     (GETFILEINFO F 'ICREATIONDATE))
        DO (SETQ CHANGE T)
-             (SETFILEINFO F 'ICREATIONDATE FD) FINALLY (CL:WHEN CHANGE (FB.UPDATECOMMAND
-                                                                            BROWSER)))))
+          (SETFILEINFO F 'ICREATIONDATE FD) FINALLY (CL:WHEN CHANGE (FB.UPDATECOMMAND BROWSER)))))
 
 (FB.MAYBE.EXPUNGE
   (LAMBDA (BROWSER COMMAND)                            (* \; "Edited 22-Feb-2021 12:33 by rmk:")
@@ -3821,120 +3823,117 @@ then click Recompute"))))
 
 (RECORD INFOFIELD (INFONAME INFOLABEL INFOWIDTH INFOFORMAT INFOPROTOTYPE))
 
-(DATATYPE FBFILEDATA ((FILENAME POINTER)                 (* \; "Full name of this file")
-                          (FILEINFO POINTER)                 (* \; "Plist of attributes")
-                          (VERSIONLESSNAME POINTER)          (* \; "FILENAME sans version")
-                          (DIRECTORYP FLAG)                  (* \; "True if it's a directory line")
-                          (HASDIRPREFIX FLAG)                (* \; 
-                         "True if it has a directory prefix beyond that in common to all the files")
-                          (DIRECTORYFILEP FLAG)              (* \; 
-                                     "True if the \"file\" in this item is actually a subdirectory")
-                          (SIZE POINTER)                     (* \; "Size of file, for stats")
-                          (FILEDEPTH BYTE)                   (* \; 
-          "Number of levels of subdirectory beneath the main pattern--zero for files at that level")
-                          (SORTVALUE POINTER)                (* \; 
-                                                    "Cached value by which we are sorting the dir.")
-                          (SUBDIREND WORD)                   (* \; 
-                             "Index of last char in subdirectory, or zero if HASDIRPREFIX is false")
-                          (STARTOFPNAME WORD)                (* \; 
-            "Start of name for printing purposes.  Same as STARTOFNAME when browser sorted by name")
-                          (VERSION WORD)                     (* \; "Version, or zero if none")
-                          (STARTOFNAME WORD)                 (* \; 
-                                                           "Index beyond all directory fields")
-                          DUMMY)
-                         (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME
-                                                                                        )
-                                                                         OF DATUM)
-                                                                  (FETCH (FBFILEDATA STARTOFPNAME
-                                                                                    ) OF DATUM)))
-                                                (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA
-                                                                                     FILENAME)
-                                                                            OF DATUM)
-                                                                     1
-                                                                     (FETCH (FBFILEDATA SUBDIREND
-                                                                                       ) OF
-                                                                                         DATUM))))))
+(DATATYPE FBFILEDATA ((FILENAME POINTER)                     (* \; "Full name of this file")
+                      (FILEINFO POINTER)                     (* \; "Plist of attributes")
+                      (VERSIONLESSNAME POINTER)              (* \; "FILENAME sans version")
+                      (DIRECTORYP FLAG)                      (* \; "True if it's a directory line")
+                      (HASDIRPREFIX FLAG)                    (* \; 
+                           "True if it has a directory prefix beyond that in common to all the files")
+                      (DIRECTORYFILEP FLAG)                  (* \; 
+                                       "True if the \"file\" in this item is actually a subdirectory")
+                      (SIZE POINTER)                         (* \; "Size of file, for stats")
+                      (FILEDEPTH BYTE)                       (* \; 
+            "Number of levels of subdirectory beneath the main pattern--zero for files at that level")
+                      (SORTVALUE POINTER)                    (* \; 
+                                                      "Cached value by which we are sorting the dir.")
+                      (SUBDIREND WORD)                       (* \; 
+                               "Index of last char in subdirectory, or zero if HASDIRPREFIX is false")
+                      (STARTOFPNAME WORD)                    (* \; 
+              "Start of name for printing purposes.  Same as STARTOFNAME when browser sorted by name")
+                      (VERSION WORD)                         (* \; "Version, or zero if none")
+                      (STARTOFNAME WORD)                     (* \; 
+                                                             "Index beyond all directory fields")
+                      DUMMY)
+                     (ACCESSFNS FBFILEDATA ((PRINTNAME (SUBSTRING (FETCH (FBFILEDATA FILENAME)
+                                                                     OF DATUM)
+                                                              (FETCH (FBFILEDATA STARTOFPNAME)
+                                                                 OF DATUM)))
+                                            (SUBDIRECTORY (SUBSTRING (FETCH (FBFILEDATA FILENAME)
+                                                                        OF DATUM)
+                                                                 1
+                                                                 (FETCH (FBFILEDATA SUBDIREND)
+                                                                    OF DATUM))))))
 
-(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG)           (* \; 
-               "True if we don't want separate subdirectory lines -- subdirs then included in name")
-                           (NSPATTERN? FLAG)                 (* \; "True if host is an ns host")
-                           (SHOWUNDELETED? FLAG)             (* \; 
-                        "True if counter window should show `Undeleted' rather than `Total' counts")
-                           (PATTERNPARSED? FLAG)             (* \; 
-                                     "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")
-                           (SORTBYDATE FLAG)                 (* \; 
-                                              "True if SORTATTRIBUTE is one of the date attributes")
-                           (FBREADY FLAG)                    (* \; "False while FB is enumerating.")
-                           (ABORTING FLAG)                   (* \; 
-                                                           "True if enumeration is being aborted")
-                           (FIXEDTITLE FLAG)                 (* \; "True if caller supplied title")
-                           (FBCOMPUTEDDEPTH BYTE)            (* \; 
-                                    "Depth at the time we enumerated directory (zero for infinite)")
-                           (FBDISPLAYEDDEPTH BYTE)           (* \; 
-                                            "Depth we are currently displaying (zero for infinite)")
-                           (TABLEBROWSER POINTER)            (* \; 
-                                           "Pointer to TABLEBROWSER object controlling the browser")
-                           (BROWSERWINDOW POINTER)           (* \; "Main window")
-                           (COUNTERWINDOW POINTER)           (* \; 
-                                                       "Window that counts files, pages, deletions")
-                           (HEADINGWINDOW POINTER)           (* \; 
-                                                         "Window with headings for browser columns")
-                           (INFOMENUW POINTER)               (* \; 
-                           "Window containing choices for info to be displayed, or NIL if none yet")
-                           (PROMPTWINDOW POINTER)            (* \; "GETPROMPTWINDOW BROWSERWINDOW")
-                           (INFODISPLAYED POINTER)           (* \; 
-                                                          "List of attribute specs to be displayed")
-                           (PATTERN POINTER)                 (* \; 
-                                                           "Directory pattern being enumerated")
-                           (PREPAREDPATTERN POINTER)         (* \; "DIRECTORY.MATCH.SETUP of same")
-                           (SEEWINDOW POINTER)               (* \; 
-                                                          "Primary window used by FAST SEE command")
-                           (BROWSERFONT POINTER)             (* \; "Font of BROWSERWINDOW")
-                           (SORTBY POINTER)                  (* \; 
-                                                         "Sorting function or NIL for default sort")
-                           (NAMESTART WORD)                  (* \; 
-                     "Index of first character in file name beyond the common prefix shared by all")
-                           (DIRECTORYSTART WORD)             (* \; 
-                                              "Index of first character of directory in file names")
-                           (INFOSTART WORD)                  (* \; 
-                                       "X position in browser where first col of info is displayed")
-                           (NAMEOVERHEAD WORD)               (* \; 
-                              "This plus width of name gives is how much to allow before INFOSTART")
-                           (OVERFLOWSPACING WORD)            (* \; 
-                                                 "Increment between sizes considered for INFOSTART")
-                           (DIGITWIDTH WORD)
-                           (TOTALFILES WORD)                 (* \; 
-                         "Total number of files, deleted files, pages, deleted pages at the moment")
-                           (DELETEDFILES WORD)
-                           (TOTALPAGES POINTER)
-                           (DELETEDPAGES POINTER)
-                           (PAGECOUNT? POINTER)              (* \; 
-                          "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")
-                           (COUNTERPOSITIONS POINTER)        (* \; 
-     "List of pairs (left right) describing regions where the values of the counters are displayed")
-                           (COUNTERPAGESTRING POINTER)       (* \; 
-                                                           "String to print after file/page count")
-                           (OVERFLOWWIDTHS POINTER)          (* \; 
-                 "List of (xpos occurrences) describing files whose names exceed default INFOSTART")
-                           (INFOMENUCHOICES POINTER)         (* \; 
-            "Selections user has made in Info window, not necessarily the info currently displayed")
-                           (UPDATEPROC POINTER)              (* \; 
-                                                           "Process doing an Update (Recompute)")
-                           (DEFAULTDIR POINTER)              (* \; 
-                                                 "Default directory for destination of Copy/Rename")
-                           (SORTATTRIBUTE POINTER)           (* \; 
-                                                     "Attribute being sorted on, or NIL if by name")
-                           (SORTMENU POINTER)
-                           (FBLOCK POINTER)                  (* \; 
-                                                          "Lock acquired by filebrowser operations")
-                           (SORTINDEX WORD)                  (* \; 
-                                            "Index (zero-based) in file info of the sort attribute")
-                           (SIZEINDEX WORD)                  (* \; "Index of size attribute")
-                           (FBDEPTH POINTER)                 (* \; 
-                                                           "Enumeration depth, or NIL for default")
-                           (ABORTWINDOW POINTER)             (* \; 
-                            "Dotted pair of (abortwindow . menuw) for this browser's abort window.")
-                           DUMMY))
+(DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG)               (* \; 
+                 "True if we don't want separate subdirectory lines -- subdirs then included in name")
+                       (NSPATTERN? FLAG)                     (* \; "True if host is an ns host")
+                       (SHOWUNDELETED? FLAG)                 (* \; 
+                          "True if counter window should show `Undeleted' rather than `Total' counts")
+                       (PATTERNPARSED? FLAG)                 (* \; 
+                                       "True if PREPAREDPATTERN, NAMESTART, DIRECTORYSTART are valid")
+                       (SORTBYDATE FLAG)                     (* \; 
+                                                "True if SORTATTRIBUTE is one of the date attributes")
+                       (FBREADY FLAG)                        (* \; "False while FB is enumerating.")
+                       (ABORTING FLAG)                       (* \; 
+                                                             "True if enumeration is being aborted")
+                       (FIXEDTITLE FLAG)                     (* \; "True if caller supplied title")
+                       (FBCOMPUTEDDEPTH BYTE)                (* \; 
+                                      "Depth at the time we enumerated directory (zero for infinite)")
+                       (FBDISPLAYEDDEPTH BYTE)               (* \; 
+                                              "Depth we are currently displaying (zero for infinite)")
+                       (TABLEBROWSER POINTER)                (* \; 
+                                             "Pointer to TABLEBROWSER object controlling the browser")
+                       (BROWSERWINDOW POINTER)               (* \; "Main window")
+                       (COUNTERWINDOW POINTER)               (* \; 
+                                                         "Window that counts files, pages, deletions")
+                       (HEADINGWINDOW POINTER)               (* \; 
+                                                           "Window with headings for browser columns")
+                       (INFOMENUW POINTER)                   (* \; 
+                             "Window containing choices for info to be displayed, or NIL if none yet")
+                       (PROMPTWINDOW POINTER)                (* \; "GETPROMPTWINDOW BROWSERWINDOW")
+                       (INFODISPLAYED POINTER)               (* \; 
+                                                            "List of attribute specs to be displayed")
+                       (PATTERN POINTER)                     (* \; 
+                                                             "Directory pattern being enumerated")
+                       (PREPAREDPATTERN POINTER)             (* \; "DIRECTORY.MATCH.SETUP of same")
+                       (SEEWINDOW POINTER)                   (* \; 
+                                                            "Primary window used by FAST SEE command")
+                       (BROWSERFONT POINTER)                 (* \; "Font of BROWSERWINDOW")
+                       (SORTBY POINTER)                      (* \; 
+                                                           "Sorting function or NIL for default sort")
+                       (NAMESTART WORD)                      (* \; 
+                       "Index of first character in file name beyond the common prefix shared by all")
+                       (DIRECTORYSTART WORD)                 (* \; 
+                                                "Index of first character of directory in file names")
+                       (INFOSTART WORD)                      (* \; 
+                                         "X position in browser where first col of info is displayed")
+                       (NAMEOVERHEAD WORD)                   (* \; 
+                                "This plus width of name gives is how much to allow before INFOSTART")
+                       (OVERFLOWSPACING WORD)                (* \; 
+                                                   "Increment between sizes considered for INFOSTART")
+                       (DIGITWIDTH WORD)
+                       (TOTALFILES WORD)                     (* \; 
+                           "Total number of files, deleted files, pages, deleted pages at the moment")
+                       (DELETEDFILES WORD)
+                       (TOTALPAGES POINTER)
+                       (DELETEDPAGES POINTER)
+                       (PAGECOUNT? POINTER)                  (* \; 
+                            "True if INFOCHOICES includes SIZE or LENGTH, so that we can count pages")
+                       (COUNTERPOSITIONS POINTER)            (* \; 
+       "List of pairs (left right) describing regions where the values of the counters are displayed")
+                       (COUNTERPAGESTRING POINTER)           (* \; 
+                                                             "String to print after file/page count")
+                       (OVERFLOWWIDTHS POINTER)              (* \; 
+                   "List of (xpos occurrences) describing files whose names exceed default INFOSTART")
+                       (INFOMENUCHOICES POINTER)             (* \; 
+              "Selections user has made in Info window, not necessarily the info currently displayed")
+                       (UPDATEPROC POINTER)                  (* \; 
+                                                             "Process doing an Update (Recompute)")
+                       (DEFAULTDIR POINTER)                  (* \; 
+                                                   "Default directory for destination of Copy/Rename")
+                       (SORTATTRIBUTE POINTER)               (* \; 
+                                                       "Attribute being sorted on, or NIL if by name")
+                       (SORTMENU POINTER)
+                       (FBLOCK POINTER)                      (* \; 
+                                                            "Lock acquired by filebrowser operations")
+                       (SORTINDEX WORD)                      (* \; 
+                                              "Index (zero-based) in file info of the sort attribute")
+                       (SIZEINDEX WORD)                      (* \; "Index of size attribute")
+                       (FBDEPTH POINTER)                     (* \; 
+                                                             "Enumeration depth, or NIL for default")
+                       (ABORTWINDOW POINTER)                 (* \; 
+                              "Dotted pair of (abortwindow . menuw) for this browser's abort window.")
+                       DUMMY))
 )
 
 (/DECLAREDATATYPE 'FBFILEDATA
@@ -4022,25 +4021,24 @@ then click Recompute"))))
 (DECLARE\: EVAL@COMPILE 
 
 (PUTPROPS NULL.VERSIONP MACRO ((V)
-                                       (EQ V 0)))
+                               (EQ V 0)))
 
 (PUTPROPS NULL.DIRECTORYP MACRO ((FILEDATA)
-                                         (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA)
-                                             0)))
+                                 (EQ (FETCH (FBFILEDATA SUBDIREND) OF FILEDATA)
+                                     0)))
 
 (PUTPROPS EQ.DIRECTORYP MACRO (OPENLAMBDA (FD1 FD2)
-                                        (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of|
-                                                                                         FD1)
-                                               (|fetch| (FBFILEDATA FILENAME) |of| FD2)
-                                               :END1
-                                               (|fetch| (FBFILEDATA SUBDIREND) |of| FD1)
-                                               :END2
-                                               (|fetch| (FBFILEDATA SUBDIREND) |of| FD2))))
+                                (STRING-EQUAL (|fetch| (FBFILEDATA FILENAME) |of| FD1)
+                                       (|fetch| (FBFILEDATA FILENAME) |of| FD2)
+                                       :END1
+                                       (|fetch| (FBFILEDATA SUBDIREND) |of| FD1)
+                                       :END2
+                                       (|fetch| (FBFILEDATA SUBDIREND) |of| FD2))))
 
 (PUTPROPS NULL.FIELDP MACRO (OPENLAMBDA (STR)
-                                      (OR (NULL STR)
-                                          (EQ (NCHARS STR)
-                                              0))))
+                              (OR (NULL STR)
+                                  (EQ (NCHARS STR)
+                                      0))))
 )
 
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
@@ -4133,67 +4131,67 @@ then click Recompute"))))
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG)
-                           (NSPATTERN? FLAG)
-                           (SHOWUNDELETED? FLAG)
-                           (PATTERNPARSED? FLAG)
-                           (SORTBYDATE FLAG)
-                           (FBREADY FLAG)
-                           (ABORTING FLAG)
-                           (FIXEDTITLE FLAG)
-                           (FBCOMPUTEDDEPTH BYTE)
-                           (FBDISPLAYEDDEPTH BYTE)
-                           (TABLEBROWSER POINTER)
-                           (BROWSERWINDOW POINTER)
-                           (COUNTERWINDOW POINTER)
-                           (HEADINGWINDOW POINTER)
-                           (INFOMENUW POINTER)
-                           (PROMPTWINDOW POINTER)
-                           (INFODISPLAYED POINTER)
-                           (PATTERN POINTER)
-                           (PREPAREDPATTERN POINTER)
-                           (SEEWINDOW POINTER)
-                           (BROWSERFONT POINTER)
-                           (SORTBY POINTER)
-                           (NAMESTART WORD)
-                           (DIRECTORYSTART WORD)
-                           (INFOSTART WORD)
-                           (NAMEOVERHEAD WORD)
-                           (OVERFLOWSPACING WORD)
-                           (DIGITWIDTH WORD)
-                           (TOTALFILES WORD)
-                           (DELETEDFILES WORD)
-                           (TOTALPAGES POINTER)
-                           (DELETEDPAGES POINTER)
-                           (PAGECOUNT? POINTER)
-                           (COUNTERPOSITIONS POINTER)
-                           (COUNTERPAGESTRING POINTER)
-                           (OVERFLOWWIDTHS POINTER)
-                           (INFOMENUCHOICES POINTER)
-                           (UPDATEPROC POINTER)
-                           (DEFAULTDIR POINTER)
-                           (SORTATTRIBUTE POINTER)
-                           (SORTMENU POINTER)
-                           (FBLOCK POINTER)
-                           (SORTINDEX WORD)
-                           (SIZEINDEX WORD)
-                           (FBDEPTH POINTER)
-                           (ABORTWINDOW POINTER)
-                           DUMMY))
+                       (NSPATTERN? FLAG)
+                       (SHOWUNDELETED? FLAG)
+                       (PATTERNPARSED? FLAG)
+                       (SORTBYDATE FLAG)
+                       (FBREADY FLAG)
+                       (ABORTING FLAG)
+                       (FIXEDTITLE FLAG)
+                       (FBCOMPUTEDDEPTH BYTE)
+                       (FBDISPLAYEDDEPTH BYTE)
+                       (TABLEBROWSER POINTER)
+                       (BROWSERWINDOW POINTER)
+                       (COUNTERWINDOW POINTER)
+                       (HEADINGWINDOW POINTER)
+                       (INFOMENUW POINTER)
+                       (PROMPTWINDOW POINTER)
+                       (INFODISPLAYED POINTER)
+                       (PATTERN POINTER)
+                       (PREPAREDPATTERN POINTER)
+                       (SEEWINDOW POINTER)
+                       (BROWSERFONT POINTER)
+                       (SORTBY POINTER)
+                       (NAMESTART WORD)
+                       (DIRECTORYSTART WORD)
+                       (INFOSTART WORD)
+                       (NAMEOVERHEAD WORD)
+                       (OVERFLOWSPACING WORD)
+                       (DIGITWIDTH WORD)
+                       (TOTALFILES WORD)
+                       (DELETEDFILES WORD)
+                       (TOTALPAGES POINTER)
+                       (DELETEDPAGES POINTER)
+                       (PAGECOUNT? POINTER)
+                       (COUNTERPOSITIONS POINTER)
+                       (COUNTERPAGESTRING POINTER)
+                       (OVERFLOWWIDTHS POINTER)
+                       (INFOMENUCHOICES POINTER)
+                       (UPDATEPROC POINTER)
+                       (DEFAULTDIR POINTER)
+                       (SORTATTRIBUTE POINTER)
+                       (SORTMENU POINTER)
+                       (FBLOCK POINTER)
+                       (SORTINDEX WORD)
+                       (SIZEINDEX WORD)
+                       (FBDEPTH POINTER)
+                       (ABORTWINDOW POINTER)
+                       DUMMY))
 
 (DATATYPE FBFILEDATA ((FILENAME POINTER)
-                          (FILEINFO POINTER)
-                          (VERSIONLESSNAME POINTER)
-                          (DIRECTORYP FLAG)
-                          (HASDIRPREFIX FLAG)
-                          (DIRECTORYFILEP FLAG)
-                          (SIZE POINTER)
-                          (FILEDEPTH BYTE)
-                          (SORTVALUE POINTER)
-                          (SUBDIREND WORD)
-                          (STARTOFPNAME WORD)
-                          (VERSION WORD)
-                          (STARTOFNAME WORD)
-                          DUMMY))
+                      (FILEINFO POINTER)
+                      (VERSIONLESSNAME POINTER)
+                      (DIRECTORYP FLAG)
+                      (HASDIRPREFIX FLAG)
+                      (DIRECTORYFILEP FLAG)
+                      (SIZE POINTER)
+                      (FILEDEPTH BYTE)
+                      (SORTVALUE POINTER)
+                      (SUBDIREND WORD)
+                      (STARTOFPNAME WORD)
+                      (VERSION WORD)
+                      (STARTOFNAME WORD)
+                      DUMMY))
 )
 (DECLARE\: DONTEVAL@LOAD DOCOPY 
 
@@ -4201,10 +4199,10 @@ then click Recompute"))))
 
 
 (ADDTOVAR *ATTACHED-WINDOW-COMMAND-SYNONYMS* (HARDCOPYIMAGEW.TOFILE . HARDCOPYIMAGEW)
-                                                 (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW))
+                                             (HARDCOPYIMAGEW.TOPRINTER . HARDCOPYIMAGEW))
 
 (ADDTOVAR |BackgroundMenuCommands| ("FileBrowser" '(FILEBROWSER)
-                                              "Opens a filebrowser window; prompts for pattern"))
+                                          "Opens a filebrowser window; prompts for pattern"))
 
 
 (RPAQQ |BackgroundMenu| NIL)
@@ -4220,51 +4218,51 @@ then click Recompute"))))
 (PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
 1991 1993 1994 1999 2000 2001 2021))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (28719 51355 (FB 28729 . 29685) (FB.COPYBINARYCOMMAND 29687 . 30033) (FB.COPYTEXTCOMMAND
- 30035 . 30377) (FILEBROWSER 30379 . 43485) (FB.TABLEBROWSER 43487 . 43704) (FB.SELECTEDFILES 43706 . 
-44343) (FB.FETCHFILENAME 44345 . 44737) (FB.DIRECTORYP 44739 . 45067) (FB.PROMPTWPRINT 45069 . 46115) 
-(FB.PROMPTW.FORMAT 46117 . 46854) (FB.PROMPTFORINPUT 46856 . 49108) (FB.YES-OR-NO-P 49110 . 50144) (
-FB.ALLOW.ABORT 50146 . 51000) (\\FB.HARDCOPY.TOFILE.EXTENSION 51002 . 51353)) (51379 52332 (FB.STARTUP
- 51389 . 51904) (FB.MAKERIGIDWINDOW 51906 . 52330)) (52333 57705 (FB.PRINTFN 52343 . 57496) (FB.COPYFN
- 57498 . 57703)) (57755 63797 (FB.MENU.WHENSELECTEDFN 57765 . 58123) (FB.COMMANDSELECTEDFN 58125 . 
-59664) (FB.SUBITEMP 59666 . 60101) (FB.MAKE.BROWSER.BUSY 60103 . 60841) (FB.FINISH.COMMAND 60843 . 
-62808) (FB.HANDLE.ABORT.BUTTON 62810 . 63795)) (63798 69314 (FB.DELETECOMMAND 63808 . 64089) (
-FB.DELVERCOMMAND 64091 . 67284) (FB.IS.NOT.SUBDIRECTORY.ITEM 67286 . 67467) (FB.DELVER.FILES 67469 . 
-68558) (FB.DELETE.FILE 68560 . 69312)) (69315 70640 (FB.UNDELETECOMMAND 69325 . 69610) (
-FB.UNDELETEALLCOMMAND 69612 . 69891) (FB.UNDELETE.FILE 69893 . 70638)) (70641 94822 (FB.COPYCOMMAND 
-70651 . 70920) (FB.RENAMECOMMAND 70922 . 71197) (FB.COPY/RENAME.COMMAND 71199 . 72122) (
-FB.COPY/RENAME.ONE 72124 . 74446) (FB.COPY/RENAME.MANY 74448 . 80668) (FB.MERGE.DIRECTORIES 80670 . 
-81088) (FB.GREATEST.PREFIX 81090 . 82446) (FB.MAYBE.INSERT.FILE 82448 . 89888) (FB.GET.NEW.FILE.SPEC 
-89890 . 93721) (FB.CANONICAL.DIRECTORY 93723 . 94820)) (94823 102607 (FB.HARDCOPYCOMMAND 94833 . 95963
-) (FB.HARDCOPY.TOFILE 95965 . 102605)) (102608 112485 (FB.EDITCOMMAND 102618 . 103419) (
-FB.EDITCOMMAND.ONEFILE 103421 . 106701) (FB.EDITLISPFILE 106703 . 107742) (FB.BROWSECOMMAND 107744 . 
-112483)) (112486 124279 (FB.FASTSEECOMMAND 112496 . 115946) (FB.FASTSEE.ONEFILE 115948 . 118977) (
-FB.SEEFULLFN 118979 . 123110) (FB.SEEBUTTONFN 123112 . 124277)) (124280 126026 (FB.LOADCOMMAND 124290
- . 124797) (FB.COMPILECOMMAND 124799 . 125337) (FB.OPERATE.ON.FILES 125339 . 126024)) (126027 173598 (
-FB.UPDATECOMMAND 126037 . 126262) (FB.FIX-DIRECTORY-DATES 126264 . 126871) (FB.MAYBE.EXPUNGE 126873 . 
-127868) (FB.UPDATEBROWSERITEMS 127870 . 141085) (FB.DATE 141087 . 141662) (FB.ADJUST.DATE.WIDTH 141664
- . 144632) (FB.SET.BROWSER.TITLE 144634 . 145570) (FB.MAYBE.WIDEN.NAMES 145572 . 147691) (
-FB.SET.DEFAULT.NAME.WIDTH 147693 . 149057) (FB.CREATE.FILEBUCKET 149059 . 156279) (
-FB.CHECK.NAME.LENGTH 156281 . 158702) (FB.ADD.FILEGROUP 158704 . 160231) (FB.INSERT.DIRECTORY 160233
- . 160471) (FB.MAKE.SUBDIRECTORY.ITEM 160473 . 161882) (FB.ADD.FILE 161884 . 162497) (FB.INSERT.FILE 
-162499 . 165911) (FB.ANALYZE.PATTERN 165913 . 171177) (FB.CANONICALIZE.PATTERN 171179 . 172491) (
-FB.GETALLFILEINFO 172493 . 173596)) (173599 181758 (FB.SORT.VERSIONS 173609 . 176380) (
-FB.DECREASING.VERSION 176382 . 177051) (FB.INCREASING.VERSION 177053 . 177674) (
-FB.NAMES.DECREASING.VERSION 177676 . 178711) (FB.NAMES.INCREASING.VERSION 178713 . 179710) (
-FB.DECREASING.NUMERIC.ATTR 179712 . 180392) (FB.INCREASING.NUMERIC.ATTR 180394 . 181068) (
-FB.ALPHABETIC.ATTR 181070 . 181756)) (181759 191601 (FB.SORTCOMMAND 181769 . 188599) (
-FB.INSERT.SUBDIRECTORIES 188601 . 189398) (FB.GET.SORT.MENU 189400 . 191599)) (191602 207691 (
-FB.EXPUNGECOMMAND 191612 . 194131) (FB.NEWPATTERNCOMMAND 194133 . 194531) (FB.NEWINFOCOMMAND 194533 . 
-197299) (FB.DEPTHCOMMAND 197301 . 199076) (FB.SHAPECOMMAND 199078 . 202420) (FB.REMOVE.FILE 202422 . 
-204243) (FB.COUNT.FILE.CHANGE 204245 . 205690) (FB.SETNEWPATTERN 205692 . 206862) (FB.GET.NEWPATTERN 
-206864 . 207448) (FB.OPTIONSCOMMAND 207450 . 207689)) (207726 208713 (FB.GETWINDOW 207736 . 208711)) (
-208714 209726 (FB.INFOMENU.SHADEINITIALSELECTIONS 208724 . 209371) (FB.INFO.ITEM.NAMED 209373 . 209724
-)) (209727 219193 (FB.MAKECOUNTERWINDOW 209737 . 211199) (FB.COUNTERW.REDISPLAYFN 211201 . 211788) (
-FB.UPDATE.COUNTERS 211790 . 213862) (FB.DISPLAY.COUNTERS 213864 . 218924) (FB.COUNTER.STRING 218926 . 
-219191)) (219194 223837 (FB.MAKEHEADINGWINDOW 219204 . 220752) (FB.HEADINGW.REDISPLAYFN 220754 . 
-221020) (FB.HEADINGW.RESHAPEFN 221022 . 221398) (FB.HEADINGW.DISPLAY 221400 . 223835)) (223838 228021 
-(FB.ICONFN 223848 . 224195) (FB.INFOMENU.WHENSELECTEDFN 224197 . 224927) (FB.CLOSEFN 224929 . 226132) 
-(FB.EXPUNGE?.MENU 226134 . 226546) (FB.AFTERCLOSEFN 226548 . 226909) (FB.CLOSE&EXPUNGE 226911 . 228019
-)) (228022 240080 (FB.HARDCOPY.DIRECTORY 228032 . 238389) (FB.HARDCOPY.PRINT.TITLE 238391 . 238717) (
-FB.HARDCOPY.MAXWIDTH 238719 . 240078)))))
+  (FILEMAP (NIL (28447 51200 (FB 28457 . 29530) (FB.COPYBINARYCOMMAND 29532 . 29878) (FB.COPYTEXTCOMMAND
+ 29880 . 30222) (FILEBROWSER 30224 . 43330) (FB.TABLEBROWSER 43332 . 43549) (FB.SELECTEDFILES 43551 . 
+44188) (FB.FETCHFILENAME 44190 . 44582) (FB.DIRECTORYP 44584 . 44912) (FB.PROMPTWPRINT 44914 . 45960) 
+(FB.PROMPTW.FORMAT 45962 . 46699) (FB.PROMPTFORINPUT 46701 . 48953) (FB.YES-OR-NO-P 48955 . 49989) (
+FB.ALLOW.ABORT 49991 . 50845) (\\FB.HARDCOPY.TOFILE.EXTENSION 50847 . 51198)) (51224 52177 (FB.STARTUP
+ 51234 . 51749) (FB.MAKERIGIDWINDOW 51751 . 52175)) (52178 57550 (FB.PRINTFN 52188 . 57341) (FB.COPYFN
+ 57343 . 57548)) (57600 63642 (FB.MENU.WHENSELECTEDFN 57610 . 57968) (FB.COMMANDSELECTEDFN 57970 . 
+59509) (FB.SUBITEMP 59511 . 59946) (FB.MAKE.BROWSER.BUSY 59948 . 60686) (FB.FINISH.COMMAND 60688 . 
+62653) (FB.HANDLE.ABORT.BUTTON 62655 . 63640)) (63643 69159 (FB.DELETECOMMAND 63653 . 63934) (
+FB.DELVERCOMMAND 63936 . 67129) (FB.IS.NOT.SUBDIRECTORY.ITEM 67131 . 67312) (FB.DELVER.FILES 67314 . 
+68403) (FB.DELETE.FILE 68405 . 69157)) (69160 70485 (FB.UNDELETECOMMAND 69170 . 69455) (
+FB.UNDELETEALLCOMMAND 69457 . 69736) (FB.UNDELETE.FILE 69738 . 70483)) (70486 94667 (FB.COPYCOMMAND 
+70496 . 70765) (FB.RENAMECOMMAND 70767 . 71042) (FB.COPY/RENAME.COMMAND 71044 . 71967) (
+FB.COPY/RENAME.ONE 71969 . 74291) (FB.COPY/RENAME.MANY 74293 . 80513) (FB.MERGE.DIRECTORIES 80515 . 
+80933) (FB.GREATEST.PREFIX 80935 . 82291) (FB.MAYBE.INSERT.FILE 82293 . 89733) (FB.GET.NEW.FILE.SPEC 
+89735 . 93566) (FB.CANONICAL.DIRECTORY 93568 . 94665)) (94668 102452 (FB.HARDCOPYCOMMAND 94678 . 95808
+) (FB.HARDCOPY.TOFILE 95810 . 102450)) (102453 112330 (FB.EDITCOMMAND 102463 . 103264) (
+FB.EDITCOMMAND.ONEFILE 103266 . 106546) (FB.EDITLISPFILE 106548 . 107587) (FB.BROWSECOMMAND 107589 . 
+112328)) (112331 124124 (FB.FASTSEECOMMAND 112341 . 115791) (FB.FASTSEE.ONEFILE 115793 . 118822) (
+FB.SEEFULLFN 118824 . 122955) (FB.SEEBUTTONFN 122957 . 124122)) (124125 125871 (FB.LOADCOMMAND 124135
+ . 124642) (FB.COMPILECOMMAND 124644 . 125182) (FB.OPERATE.ON.FILES 125184 . 125869)) (125872 173645 (
+FB.UPDATECOMMAND 125882 . 126107) (FB.FIX-DIRECTORY-DATES 126109 . 126918) (FB.MAYBE.EXPUNGE 126920 . 
+127915) (FB.UPDATEBROWSERITEMS 127917 . 141132) (FB.DATE 141134 . 141709) (FB.ADJUST.DATE.WIDTH 141711
+ . 144679) (FB.SET.BROWSER.TITLE 144681 . 145617) (FB.MAYBE.WIDEN.NAMES 145619 . 147738) (
+FB.SET.DEFAULT.NAME.WIDTH 147740 . 149104) (FB.CREATE.FILEBUCKET 149106 . 156326) (
+FB.CHECK.NAME.LENGTH 156328 . 158749) (FB.ADD.FILEGROUP 158751 . 160278) (FB.INSERT.DIRECTORY 160280
+ . 160518) (FB.MAKE.SUBDIRECTORY.ITEM 160520 . 161929) (FB.ADD.FILE 161931 . 162544) (FB.INSERT.FILE 
+162546 . 165958) (FB.ANALYZE.PATTERN 165960 . 171224) (FB.CANONICALIZE.PATTERN 171226 . 172538) (
+FB.GETALLFILEINFO 172540 . 173643)) (173646 181805 (FB.SORT.VERSIONS 173656 . 176427) (
+FB.DECREASING.VERSION 176429 . 177098) (FB.INCREASING.VERSION 177100 . 177721) (
+FB.NAMES.DECREASING.VERSION 177723 . 178758) (FB.NAMES.INCREASING.VERSION 178760 . 179757) (
+FB.DECREASING.NUMERIC.ATTR 179759 . 180439) (FB.INCREASING.NUMERIC.ATTR 180441 . 181115) (
+FB.ALPHABETIC.ATTR 181117 . 181803)) (181806 191648 (FB.SORTCOMMAND 181816 . 188646) (
+FB.INSERT.SUBDIRECTORIES 188648 . 189445) (FB.GET.SORT.MENU 189447 . 191646)) (191649 207738 (
+FB.EXPUNGECOMMAND 191659 . 194178) (FB.NEWPATTERNCOMMAND 194180 . 194578) (FB.NEWINFOCOMMAND 194580 . 
+197346) (FB.DEPTHCOMMAND 197348 . 199123) (FB.SHAPECOMMAND 199125 . 202467) (FB.REMOVE.FILE 202469 . 
+204290) (FB.COUNT.FILE.CHANGE 204292 . 205737) (FB.SETNEWPATTERN 205739 . 206909) (FB.GET.NEWPATTERN 
+206911 . 207495) (FB.OPTIONSCOMMAND 207497 . 207736)) (207773 208760 (FB.GETWINDOW 207783 . 208758)) (
+208761 209773 (FB.INFOMENU.SHADEINITIALSELECTIONS 208771 . 209418) (FB.INFO.ITEM.NAMED 209420 . 209771
+)) (209774 219240 (FB.MAKECOUNTERWINDOW 209784 . 211246) (FB.COUNTERW.REDISPLAYFN 211248 . 211835) (
+FB.UPDATE.COUNTERS 211837 . 213909) (FB.DISPLAY.COUNTERS 213911 . 218971) (FB.COUNTER.STRING 218973 . 
+219238)) (219241 223884 (FB.MAKEHEADINGWINDOW 219251 . 220799) (FB.HEADINGW.REDISPLAYFN 220801 . 
+221067) (FB.HEADINGW.RESHAPEFN 221069 . 221445) (FB.HEADINGW.DISPLAY 221447 . 223882)) (223885 228068 
+(FB.ICONFN 223895 . 224242) (FB.INFOMENU.WHENSELECTEDFN 224244 . 224974) (FB.CLOSEFN 224976 . 226179) 
+(FB.EXPUNGE?.MENU 226181 . 226593) (FB.AFTERCLOSEFN 226595 . 226956) (FB.CLOSE&EXPUNGE 226958 . 228066
+)) (228069 240127 (FB.HARDCOPY.DIRECTORY 228079 . 238436) (FB.HARDCOPY.PRINT.TITLE 238438 . 238764) (
+FB.HARDCOPY.MAXWIDTH 238766 . 240125)))))
 STOP
diff --git a/library/FILEBROWSER.LCOM b/library/FILEBROWSER.LCOM
index b7ab6c5d..5205193f 100644
Binary files a/library/FILEBROWSER.LCOM and b/library/FILEBROWSER.LCOM differ
