diff --git a/lispusers/PICK b/lispusers/PICK
index cb3afd62..10a57459 100644
--- a/lispusers/PICK
+++ b/lispusers/PICK
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "11-Aug-2022 17:53:58" {DSK}<home>larry>medley>lispusers>PICK.;3 4261   
+(FILECREATED " 9-Aug-2025 09:20:03" {DSK}<home>larry>il>medley>lispusers>PICK.;2 4413   
 
-      :CHANGES-TO (VARS PICKCOMS)
-                  (FNS PICK)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "10-Aug-2022 16:57:49" {DSK}<home>larry>medley>lispusers>PICK.;1)
+      :CHANGES-TO (FNS PICK)
+
+      :PREVIOUS-DATE "11-Aug-2022 17:53:58" {DSK}<home>larry>il>medley>lispusers>PICK.;1)
 
 
 (PRETTYCOMPRINT PICKCOMS)
@@ -27,14 +28,15 @@
 (DEFINEQ
 
 (PICK
-  [LAMBDA (TYPE CHOICES)                                     (* ; "Edited 11-Aug-2022 17:15 by lmm")
+  [LAMBDA (TYPE CHOICES)                                     (* ; "Edited  8-Aug-2025 09:06 by lmm")
+                                                             (* ; "Edited 11-Aug-2022 17:15 by lmm")
                                                              (* ; "Edited 10-Aug-2022 16:57 by lmm")
     (SELECTQ (MKATOM (U-CASE (MKSTRING TYPE)))
         (ONEOF                                               (* ; 
                                           "PICK ONEOF A1 A2 A3 ... - just choose from choices listed")
                [CAR (NTH CHOICES (RAND 1 (LENGTH CHOICES])
         (NIL                                                 (* ; 
-                                                         "pick -- choose an issue, a file, a project")
+                                       "PICK (with no parameters) choose an issue, a file, a project")
              [PICK (PICK 'ONEOF '(FILE ISSUE PROJECT])
         (ISSUE                                               (* ; 
                        "pick issue [number] -- display an issue; if none given, choose one at random")
@@ -46,14 +48,9 @@
                      (TITLE))
                     (for S in (GIT-COMMAND (CL:FORMAT NIL "gh issue view -R interlisp/medley ~d" 
                                                   ISSUE)) do (CL:FORMAT STR "~a~&" S)
-                       finally 
-
-                             (* ;; 
-             "this TEDIT call is wrong -- it takes the keyboard and the promptwindow prompt is wrong")
-
-                             [TEDIT STR NIL NIL `(READONLY T TITLE ,(SETQ TITLE (CL:FORMAT NIL 
-                                                                                       "Issue #~d" 
-                                                                                       ISSUE] 
+                       finally [TEDIT STR NIL NIL `(READONLY T TITLE ,(SETQ TITLE
+                                                                       (CL:FORMAT NIL "Issue #~d" 
+                                                                              ISSUE] 
 
                              (* ;; "if there are comments (or always) show comments too -- the -w switch doesn't work online -- no browser")
 
@@ -65,23 +62,27 @@
         (DIR 
              (* ;; "pick a directory to choose files from")
 
-             (PICK 'ONEOF '(LISPUSERS LIBRARY DOCTOOLS SOURCES INTERNAL)))
+             [LIST 'DIRECTORY "Examine directory"
+                   (PICK 'ONEOF '(CLOS CLTL2 FONTS GREETFILES LISPUSERS LIBRARY DOCTOOLS DOCS SOURCES
+                                       INTERNAL])
         (FILE 
               (* ;; " pick a file from a (randomly chosen) directory")
 
-              [LIST 'FILE (PICK 'ONEOF (DIRECTORY (OR (MEDLEYDIR (OR (CAR CHOICES)
-                                                                     (PICK 'DIR))
-                                                             NIL T)
-                                                      (FETCH (GIT-PROJECT CLONEPATH)
-                                                         OF (CDR (ASSOC (CAR CHOICES)
-                                                                        GIT-PROJECTS])
+              [LIST 'FILE "Examine file"
+                    (PICK 'ONEOF (DIRECTORY (OR (MEDLEYDIR [OR (CAR CHOICES)
+                                                               (CL:THIRD (PICK 'DIR]
+                                                       NIL T)
+                                                (FETCH (GIT-PROJECT CLONEPATH)
+                                                   OF (CDR (ASSOC (CAR CHOICES)
+                                                                  GIT-PROJECTS])
         (PROJECT 
                  (* ;; "pick PROJECT will choose some repo to work on")
 
-                 [PICK 'ONEOF (PICK 'ONEOF (LIST (MAPCAR GIT-PROJECTS #'CAR)
-                                                 '(CLOS ROOMS ONLINE WEBSITE COMMUNITY ENVOS])
-        (HELP TYPE "Unknown type"])
+                 [LIST 'PROJECT "Examine the fiiles associated with the GITFNS project"
+                       (PICK 'ONEOF (PICK 'ONEOF (LIST (MAPCAR GIT-PROJECTS #'CAR)
+                                                       '(CLOS ROOMS ONLINE WEBSITE COMMUNITY ENVOS])
+        (HELP TYPE "Unknown type to pick from"])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (735 4238 (PICK 745 . 4236)))))
+  (FILEMAP (NIL (729 4390 (PICK 739 . 4388)))))
 STOP
diff --git a/lispusers/PICK.LCOM b/lispusers/PICK.LCOM
index 7ef1f4ea..f34db912 100644
Binary files a/lispusers/PICK.LCOM and b/lispusers/PICK.LCOM differ
