diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS
index da4c6f01..6794db81 100644
--- a/lispusers/HELPSYS
+++ b/lispusers/HELPSYS
@@ -1,17 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2 87610  
+(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11 87625  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HELPSYSCOMS)
-                  (FNS REPO.LOOKUP)
 
-      :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
+      :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;10)
 
 
-(* ; "
-Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT HELPSYSCOMS)
 
 (RPAQQ HELPSYSCOMS
@@ -20,7 +17,7 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 DINFO HASH))
         [COMS (COMMANDS "man")
-              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.RESET)
+              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET)
               (INITVARS (IRM.HOST&DIR)
                      (IRM.HASHFILE.NAME))
               (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME)
@@ -97,7 +94,8 @@ Copyright (c) 1985-1987, 2020, 2022-2023 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
 
@@ -197,6 +195,10 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
       else (APPEND (IRM.LOOKUP KEYWORD TYPE GRAPH T)
                   (REPO.LOOKUP KEYWORD])
 
+(IRM.SMART.LOOKUP
+  [LAMBDA (KEYWORD GRAPH)                                    (* drc%: " 6-Jan-86 14:50")
+    (IRM.LOOKUP KEYWORD NIL GRAPH T])
+
 (IRM.RESET
   [LAMBDA NIL                                                (* drc%: "27-Jan-86 11:19")
     (if (type? DINFOGRAPH IRM.DINFOGRAPH)
@@ -1697,15 +1699,15 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
 (ADDTOVAR AROUNDEXITFNS \IRM.AROUND-EXIT)
 
 (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE)
-(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 . 
-9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) (
-CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423
-) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 (
-IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) (
-IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814
- . 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584)
- (\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) (
-\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403)))))
+  (FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 . 
+9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307)
+ (CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 (
+IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154
+ . 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF 
+75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 (
+\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) (
+\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) (
+\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT 
+87343 . 87499)))))
 STOP
diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM
index 9f8375a4..e10cac9c 100644
Binary files a/lispusers/HELPSYS.LCOM and b/lispusers/HELPSYS.LCOM differ
