diff --git a/library/BROWSER b/library/BROWSER
index 5ca7aee9..a23b4691 100644
--- a/library/BROWSER
+++ b/library/BROWSER
@@ -1,16 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6 29801  
+(FILECREATED "21-May-2024 18:46:31" {LIB}BROWSER.;2 29502  
 
-      :EDIT-BY "lmm"
+      :EDIT-BY "mth"
 
-      :CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER 
-                       BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW 
-                       GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
-                       BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
-                  (VARS BROWSERCOMS BROWSER.BORDERS)
+      :CHANGES-TO (FNS BROWSER.LEFTFN)
 
-      :PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)
+      :PREVIOUS-DATE "26-Apr-2023 12:41:36" {LIB}BROWSER.;1)
 
 
 (PRETTYCOMPRINT BROWSERCOMS)
@@ -202,28 +198,29 @@
                 (RETURN ENTRY])
 
 (BROWSER.LEFTFN
-  [LAMBDA (NODE NWINDOW)                                     (* ; "Edited 26-Apr-2023 12:41 by lmm")
+  [LAMBDA (NODE NWINDOW)                                     (* ; "Edited 21-May-2024 18:40 by mth")
+                                                             (* ; "Edited 26-Apr-2023 12:41 by lmm")
                                                              (* ; "Edited 31-Mar-87 11:16 by jop")
                                                              (* ; 
                                                  "function that is applied upon selection of a node.")
     (PROG (FN SELECTION)
-          (IF (NULL NODE)
-              THEN (RETURN)
+          (if (NULL NODE)
+              then (RETURN)
                    (MOVEW NWINDOW)                           (* ; 
                                                        " really want to just drag the content around")
                    (RETURN))
-          (IF (NULL (SETQ FN (FETCH NODELABEL OF NODE)))
-              THEN (RETURN))
-          [SETQ SELECTION (MENU (CREATE MENU
+          (if (NULL (SETQ FN (fetch NODELABEL of NODE)))
+              then (RETURN))
+          [SETQ SELECTION (MENU (create MENU
                                        ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
 
      (* ;; "Mot implemented: Ignore Avoid")
 
           (DESTRUCTURING-BIND (FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
-                 (FOR BW IN BROWSERWINDOWS WHEN (EQ (FETCH (BROWSEWIN WINDOW) OF BW)
-                                                    NWINDOW) DO (RETURN (FETCH (BROWSEWIN ARGS)
-                                                                           OF BW))
-                    FINALLY (PROMPTPRINT "No browser window found for" FN)
+                 (for BW in BROWSERWINDOWS when (EQ (fetch (BROWSEWIN WINDOW) of BW)
+                                                    NWINDOW) do (RETURN (fetch (BROWSEWIN ARGS)
+                                                                           of BW))
+                    finally (PROMPTPRINT "No browser window found for" FN)
                           (RETURN))
 
                  (* ;; "Now we have the arguments to MSPATHS .. insert this node?")
@@ -245,11 +242,11 @@
                      NIL
                      (Ignore                                 (* ; "local ignore"))
                      (Avoid                                  (* ; " global ignore"))
-                     (Edit (ED FN (IF (HASDEF FN 'FNS)
-                                      THEN 'FNS
-                                    ELSEIF (HASDEF FN 'FUNCTIONS)
-                                      THEN 'FUNCTIONS
-                                    ELSE (PROMPTPRINT FN "no definition")
+                     (Edit (ED FN (if (HASDEF FN 'FNS)
+                                      then '(FNS :DONTWAIT)
+                                    elseif (HASDEF FN 'FUNCTIONS)
+                                      then '(FUNCTIONS :DONTWAIT)
+                                    else (PROMPTPRINT FN "no definition")
                                          NIL)))
                      (Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW)
                                                     'FNBROWSED))
@@ -544,10 +541,10 @@
 (BROWSER T)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
- (BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
-GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
-) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
-BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
-REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
+  (FILEMAP (NIL (1653 28138 (MSPATHS.DISPATCH 1663 . 2137) (NUMSPATHS 2139 . 5726) (BROWSER 5728 . 6299)
+ (BROWSER.WHENFNSCHANGED 6301 . 8086) (BRPATHS1 8088 . 10739) (BROWSER.LEFTFN 10741 . 14300) (
+GET.BROWSE.PP.WINDOW 14302 . 15127) (GET.BROWSE.DESCRIBE.WINDOW 15129 . 15877) (BROWSEPP 15879 . 16753
+) (PPREPAINTFN 16755 . 19881) (PPRESHAPEFN 19883 . 20059) (DESCRIBEREPAINTFN 20061 . 20765) (
+BROWSERDESCRIBE 20767 . 21509) (BROWSER.MIDDLEFN 21511 . 22826) (DEDITPROCESSRUNNINGP 22828 . 23083) (
+REDRAWBROWSEGRAPH 23085 . 23849) (STBROWSER 23851 . 28136)))))
 STOP
diff --git a/library/BROWSER.LCOM b/library/BROWSER.LCOM
index d242ec04..dbea7de0 100644
Binary files a/library/BROWSER.LCOM and b/library/BROWSER.LCOM differ
