diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS
index 42978008..e54098a5 100644
--- a/lispusers/HELPSYS
+++ b/lispusers/HELPSYS
@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Oct-2022 16:41:08" {DSK}<home>larry>medley>lispusers>HELPSYS.;2 87589  
+(FILECREATED "12-Oct-2022 18:33:26" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;4 87708  
 
-      :CHANGES-TO (FNS CLHS.INDEX)
+      :CHANGES-TO (FNS CLHS.LOOKUP)
 
-      :PREVIOUS-DATE "27-Aug-2022 12:15:35" {DSK}<home>larry>medley>lispusers>HELPSYS.;1)
+      :PREVIOUS-DATE "12-Oct-2022 18:24:45" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;3
+)
 
 
 (* ; "
@@ -96,8 +97,7 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
        DINFO HASH)
 )
 
-(DEFCOMMAND "man" (ENTRY)
-   "Lookup ENTRY in the IRM."
+(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
    (GENERIC.MAN.LOOKUP ENTRY))
 (DEFINEQ
 
@@ -264,7 +264,8 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
                                   else (LIST (SUBSTRING LINE POSLINK (CL:1- POSENDLINK])
 
 (CLHS.LOOKUP
-  [LAMBDA (ENTRY PHASES)                                   (* ; "Edited 24-Aug-2022 17:08 by larry")
+  [LAMBDA (ENTRY PHASES)                                     (* ; "Edited 12-Oct-2022 18:32 by FGH")
+                                                           (* ; "Edited 24-Aug-2022 17:08 by larry")
     (LET [(OPENER (CLHS.OPENER))
           (URL NIL)
           POS
@@ -292,7 +293,7 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
                                 (CHAT 'SHELL NIL (CONCAT OPENER " '" URL "'
 "))
                          else (ShellCommand (CONCAT OPENER " '" URL "'" 
-                                                   " > $MEDLEYDIR/tmp/clhs/warnings.txt 2>&1")
+                                                   " > /tmp/clhs-warnings-$$.txt 2>&1")
                                      T))
                        (RETURN))
                (AND URL (RETURN (LIST URL])
@@ -1699,13 +1700,13 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
 (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE)
 (PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4613 10188 (HELPSYS 4623 . 6464) (IRM.LOOKUP 6466 . 8104) (GENERIC.MAN.LOOKUP 8106 . 
-9775) (IRM.RESET 9777 . 10186)) (10445 17450 (CLHS.INDEX 10455 . 13153) (CLHS.LOOKUP 13155 . 14953) (
-CLHS.OPENER 14955 . 16278) (REPO.LOOKUP 16280 . 17448)) (70522 72040 (IRM.GET.DINFOGRAPH 70532 . 71407
-) (IRM.DISPLAY.REF 71409 . 72038)) (72042 72404 (IRM.LOAD-GRAPH 72042 . 72404)) (72729 78233 (
-IRM.DISPLAY.CREF 72739 . 74453) (IRM.CREF.BOX 74455 . 75282) (IRM.PUT.CREF 75284 . 75509) (
-IRM.GET.CREF 75511 . 75882) (IRM.CREF.BUTTONEVENTFN 75884 . 78231)) (78788 87094 (\IRM.GET.REF 78798
- . 80129) (\IRM.SMART.REF 80131 . 82058) (\IRM.CHOOSE.REF 82060 . 83311) (\IRM.WILD.REF 83313 . 84568)
- (\IRM.WILDCARD 84570 . 84936) (\IRM.WILD.MATCH 84938 . 86168) (\IRM.GET.HASHFILE 86170 . 86633) (
-\IRM.GET.KEYWORDS 86635 . 87092)) (87231 87387 (\IRM.AROUND-EXIT 87231 . 87387)))))
+  (FILEMAP (NIL (4630 10205 (HELPSYS 4640 . 6481) (IRM.LOOKUP 6483 . 8121) (GENERIC.MAN.LOOKUP 8123 . 
+9792) (IRM.RESET 9794 . 10203)) (10462 17569 (CLHS.INDEX 10472 . 13170) (CLHS.LOOKUP 13172 . 15072) (
+CLHS.OPENER 15074 . 16397) (REPO.LOOKUP 16399 . 17567)) (70641 72159 (IRM.GET.DINFOGRAPH 70651 . 71526
+) (IRM.DISPLAY.REF 71528 . 72157)) (72161 72523 (IRM.LOAD-GRAPH 72161 . 72523)) (72848 78352 (
+IRM.DISPLAY.CREF 72858 . 74572) (IRM.CREF.BOX 74574 . 75401) (IRM.PUT.CREF 75403 . 75628) (
+IRM.GET.CREF 75630 . 76001) (IRM.CREF.BUTTONEVENTFN 76003 . 78350)) (78907 87213 (\IRM.GET.REF 78917
+ . 80248) (\IRM.SMART.REF 80250 . 82177) (\IRM.CHOOSE.REF 82179 . 83430) (\IRM.WILD.REF 83432 . 84687)
+ (\IRM.WILDCARD 84689 . 85055) (\IRM.WILD.MATCH 85057 . 86287) (\IRM.GET.HASHFILE 86289 . 86752) (
+\IRM.GET.KEYWORDS 86754 . 87211)) (87350 87506 (\IRM.AROUND-EXIT 87350 . 87506)))))
 STOP
diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM
index a715d495..56f41929 100644
Binary files a/lispusers/HELPSYS.LCOM and b/lispusers/HELPSYS.LCOM differ
