diff --git a/library/BROWSER b/library/BROWSER
index c941717d..53640727 100644
--- a/library/BROWSER
+++ b/library/BROWSER
@@ -1,13 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "25-Mar-94 13:43:20" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>BROWSER.;4| 26296  
 
-      changes to%:  (FNS BROWSER.MIDDLEFN)
+(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3 26344  
 
-      previous date%: "20-Jan-93 16:00:51" |{PELE:MV:ENVOS}<LISPCORE>LIBRARY>BROWSER.;3|)
+      :CHANGES-TO (VARS BROWSERCOMS)
+                  (FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
+
+      :PREVIOUS-DATE "25-Mar-94 13:43:20" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;1)
 
 
 (* ; "
-Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT BROWSERCOMS)
@@ -31,6 +34,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
               (BrowserPPWindowWidth 750)
               (BROWSERFONT '(GACHA 8]
         [P (MOVD? 'MSPATHS 'OLDMSPATHS)
+           (MOVD? 'NILL 'MODERNWINDOW)
            (PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
                  (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
                      (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
@@ -56,6 +60,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
 
 (NUMSPATHS
   [LAMBDA (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
+                                                             (* ; "Edited  7-Feb-2022 13:57 by rmk")
                                                              (* ; "Edited 11-Apr-88 11:08 by jrb:")
     (COND
        [(AND (WINDOWWORLD)
@@ -72,37 +77,36 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
                      (PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T))
                               ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
                               (CALLRELATION (PARSERELATION 'CALL]
-                           (DECLARE (SPECVARS SEEN UNDONE))
+                           (DECLARE (SPECVARS SEEN UNDONE GRAPHNODE.LIST))
                            (CLRHASH SEEN)
                            (for X in UNDONE do (PUTHASH X (COND
-                                                                         ((AND NOTRACE
-                                                                               (MSMEMBSET X NOTRACE))
-                                                                          -1)
-                                                                         (T 0))
-                                                                  SEEN)
-                                                          (OR INVERTED (UPDATEFN X NIL 0)))
+                                                             ((AND NOTRACE (MSMEMBSET X NOTRACE))
+                                                              -1)
+                                                             (T 0))
+                                                      SEEN)
+                                               (OR INVERTED (UPDATEFN X NIL 0)))
                            [do (COND
-                                      (NAMED (PUTHASH (CAR NAMED)
-                                                    0 SEEN)
-                                             [push ROOTS (fetch (GRAPHNODE NODEID)
-                                                                of (BRPATHS1 (CAR NAMED]
-                                             (SETQ NAMED (CDR NAMED)))
-                                      (UNDONE [COND
-                                                 ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
-                                                                             SEEN)))
-                                                      (EQ TEM 0)
-                                                      (AND (LISTP TEM)
-                                                           (NULL (CAR TEM]
-                                                  (PUTHASH (CAR UNDONE)
-                                                         (LIST NIL)
-                                                         SEEN)
-                                                  (SETQ NAMED (LIST (CAR UNDONE]
-                                             (SETQ UNDONE (CDR UNDONE)))
-                                      (T (RETURN]
+                                  (NAMED (PUTHASH (CAR NAMED)
+                                                0 SEEN)
+                                         [push ROOTS (fetch (GRAPHNODE NODEID)
+                                                        of (BRPATHS1 (CAR NAMED]
+                                         (SETQ NAMED (CDR NAMED)))
+                                  (UNDONE [COND
+                                             ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
+                                                                         SEEN)))
+                                                  (EQ TEM 0)
+                                                  (AND (LISTP TEM)
+                                                       (NULL (CAR TEM]
+                                              (PUTHASH (CAR UNDONE)
+                                                     (LIST NIL)
+                                                     SEEN)
+                                              (SETQ NAMED (LIST (CAR UNDONE]
+                                         (SETQ UNDONE (CDR UNDONE)))
+                                  (T (RETURN]
                            (RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING]
                     (PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE)
                                                              (* ; 
-                                                 "this LIST is actually an 'instance' of PATHSARGS")
+                                                   "this LIST is actually an 'instance' of PATHSARGS")
                            ]
        (T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
 
@@ -204,7 +208,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
                  (GET.BROWSE.PP.WINDOW])
 
 (GET.BROWSE.PP.WINDOW
-  [LAMBDA NIL                                                (* ; "Edited 31-Mar-87 11:23 by jop")
+  [LAMBDA NIL                                                (* ; "Edited  7-Feb-2022 14:01 by rmk")
+                                                             (* ; "Edited 31-Mar-87 11:23 by jop")
                                                              (* ; 
                                            "returns the window for pretty printing from the browser.")
     (COND
@@ -215,6 +220,7 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
           (WINDOWPROP PFWINDOW 'REPAINTFN 'PPREPAINTFN)
           (WINDOWPROP PFWINDOW 'RESHAPEFN 'PPRESHAPEFN)
           (WINDOWPROP PFWINDOW 'SCROLLFN 'SCROLLBYREPAINTFN)
+          (MODERNWINDOW PFWINDOW)
           PFWINDOW])
 
 (GET.BROWSE.DESCRIBE.WINDOW
@@ -446,10 +452,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
 (RECORD BROWSEWIN (ARGS GRAPH WINDOW))
 
 (RECORD PATHSARGS (FROM TO . ETC)
-                      [ACCESSFNS PATHSARGS ((DISCRIMINANT (CONS (fetch (PATHSARGS FROM)
-                                                                   of DATUM)
-                                                                (fetch (PATHSARGS TO)
-                                                                   of DATUM])
+                  [ACCESSFNS PATHSARGS ((DISCRIMINANT (CONS (fetch (PATHSARGS FROM) of DATUM)
+                                                            (fetch (PATHSARGS TO) of DATUM])
 )
 )
 
@@ -471,6 +475,8 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
 
 (MOVD? 'MSPATHS 'OLDMSPATHS)
 
+(MOVD? 'NILL 'MODERNWINDOW)
+
 [PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
       (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
           (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
@@ -482,10 +488,10 @@ Copyright (c) 1983, 1984, 1987, 1988, 1990, 1993, 1994 by Venue & Xerox Corporat
 )
 (PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1952 24987 (NUMSPATHS 1962 . 5228) (BROWSER 5230 . 5493) (BROWSER.WHENFNSCHANGED 5495
- . 7794) (BRPATHS1 7796 . 10062) (BROWSER.LEFTFN 10064 . 10922) (GET.BROWSE.PP.WINDOW 10924 . 11606) (
-GET.BROWSE.DESCRIBE.WINDOW 11608 . 12356) (BROWSEPP 12358 . 13232) (PPREPAINTFN 13234 . 16368) (
-PPRESHAPEFN 16370 . 16550) (DESCRIBEREPAINTFN 16552 . 17248) (BROWSERDESCRIBE 17250 . 18008) (
-BROWSER.MIDDLEFN 18010 . 19317) (DEDITPROCESSRUNNINGP 19319 . 19590) (REDRAWBROWSEGRAPH 19592 . 20355)
- (STBROWSER 20357 . 24985)))))
+  (FILEMAP (NIL (2054 25148 (NUMSPATHS 2064 . 5246) (BROWSER 5248 . 5511) (BROWSER.WHENFNSCHANGED 5513
+ . 7812) (BRPATHS1 7814 . 10080) (BROWSER.LEFTFN 10082 . 10940) (GET.BROWSE.PP.WINDOW 10942 . 11767) (
+GET.BROWSE.DESCRIBE.WINDOW 11769 . 12517) (BROWSEPP 12519 . 13393) (PPREPAINTFN 13395 . 16529) (
+PPRESHAPEFN 16531 . 16711) (DESCRIBEREPAINTFN 16713 . 17409) (BROWSERDESCRIBE 17411 . 18169) (
+BROWSER.MIDDLEFN 18171 . 19478) (DEDITPROCESSRUNNINGP 19480 . 19751) (REDRAWBROWSEGRAPH 19753 . 20516)
+ (STBROWSER 20518 . 25146)))))
 STOP
diff --git a/library/BROWSER.LCOM b/library/BROWSER.LCOM
index c62ed9b4..bdffbde2 100644
Binary files a/library/BROWSER.LCOM and b/library/BROWSER.LCOM differ
