diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index d56a9720..c5450bc3 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "15-Apr-2026 17:27:14" {WMEDLEY}<sources>MEDLEYDIR.;51
 17370  
+
(FILECREATED "16-Apr-2026 11:06:53" {WMEDLEY}<sources>MEDLEYDIR.;53
 17488  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS MEDLEYDIR)
                   (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "15-Apr-2026 16:44:33" {WMEDLEY}<sources>MEDLEYDIR.;50)
+      :PREVIOUS-DATE "15-Apr-2026 17:27:14" {WMEDLEY}<sources>MEDLEYDIR.;51)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -19,7 +19,7 @@
         (P (MOVD? 'EVQ 'PSEUDOHOST))
                                                              (* ; "For loadup")

         (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT)
-        [INITVARS (MEDLEYDIR)
+        [INITVARS (MEDLEYDIR (MEDLEYDIR))
                (\SAVE.MEDLEYDIR)
                (SYSOUTCOMMITS (OR (AND (BOUNDP 'SYSOUTCOMMITS)
                                        SYSOUTCOMMITS)
@@ -151,7 +151,7 @@
                NIL])
 
 (MEDLEYDIR

-  [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)
                  (* ; "Edited 15-Apr-2026 17:13 by rmk")


+  [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)
                  (* ; "Edited 16-Apr-2026 11:06 by rmk")


                                                              (* ; "Edited 31-Jan-2026 23:42 by rmk")


                                                              (* ; "Edited 23-Aug-2025 17:21 by lmm")


                                                              (* ; "Edited 18-Aug-2025 11:15 by FGH")


@@ -162,60 +162,60 @@
 
     (* ;; "RMK: MEDLEYDIR defaults to DSK")

 
-    (LET (MED)
-         [SETQ MED (COND
-                      ((NULL DIRNAME)                        (* ; 
-
                                            "Call to (MEDLEYDIR) or (MEDLEYDIR NIL ...) just set it ")

-                       (if
 (OR (NOT (BOUNDP 'MEDLEYDIR))
-                               (NOT MEDLEYDIR))
-                           then
 (SETQ MEDLEYDIR (DIRECTORYNAME (if
 (SETQ MEDLEYDIR (UNIX-GETENV
-                                                                                    "MEDLEYDIR"))
-                                                                   then
 (PACKFILENAME 'BODY MEDLEYDIR
-                                                                               'HOST
-                                                                               'DSK)
-                                                                 else
 T)))
-                         elseif
 (STRPOS "/" MEDLEYDIR)
-                           then
 (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
-                         else
 MEDLEYDIR))
-                      ((LISTP DIRNAME)
+    (if
 (NULL DIRNAME)
+        then
                                                 (* ; 
+
       "Call to (MEDLEYDIR) or (MEDLEYDIR NIL ...) just set it--Don't want MEDLEYDIR to be {MEDLEY}.")

+             (if
 (OR (NOT (BOUNDP 'MEDLEYDIR))
+                     (NOT MEDLEYDIR))
+                 then
 (SETQ MEDLEYDIR (DIRECTORYNAME (if
 (SETQ MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))
+                                                         then
 (PACKFILENAME 'BODY MEDLEYDIR
+                                                                     'HOST
+                                                                     'DSK)
+                                                       else
 T)))
+               elseif
 (STRPOS "/" MEDLEYDIR)
+                 then
 (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
+               else
 MEDLEYDIR)
+      else
 (LET (MED)
+                [SETQ MED (COND
+                             ((LISTP DIRNAME)
 
-                       (* ;; "(MEDLEYDIR a list -- recurse")

+                              (* ;; "(MEDLEYDIR a list -- recurse")

 
-                       (for
 X Y in
 DIRNAME when
 (SETQ Y (MEDLEYDIR
 X FILENAME OUTPUT NOERROR))
-                          collect
 Y))
-                      [FILENAME 
+                              (for
 X Y in
 DIRNAME when
 (SETQ Y (MEDLEYDIR
 X FILENAME OUTPUT NOERROR))
+                                 collect
 Y))
+                             [FILENAME 
 
-                             (* ;; " if FILENAME, find it as a file. ")

+                                    (* ;; " if FILENAME, find it as a file. ")

 
-                             (if
 (NULL (SETQ DIRNAME (MEDLEYDIR
 DIRNAME NIL OUTPUT NOERROR)))
-                                 then
 (OR NOERROR (SHOULDNT))
-                                      NIL
-                               else
 (SETQ FILENAME (CONCAT DIRNAME FILENAME))
-                                    (if
 OUTPUT
-                                        then
 FILENAME
-                                      else
 (OR (INFILEP FILENAME)
-                                               (if
 NOERROR
-                                                   then
 NIL
-                                                 else
 (ERROR "No such medley file" FILENAME]
-                      ((EQUAL DIRNAME "login")               (* ; "special case for login dir")

-                       (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                          (UNIX-GETENV "HOME")
-                                          DIRNAME)))
-                      [(EQUAL DIRNAME "loadups")             (* ; "special case for loadups dir")

-                       (OR (DIRECTORYNAME (UNIX-GETENV "MEDLEY¬LOADUPS¬DIR"))
-                           (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
-                                                 "loadups" ">")
-                                  NIL OUTPUT)
-                           (if
 NOERROR
-                               then
 NIL
-                             else
 (ERROR "Cannot find medley loadups directory" (MEDLEYDIR
]
-                      (T (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
-                                                   DIRNAME ">")
-                                    NIL OUTPUT)
-                             (if
 NOERROR
-                                 then
 NIL
-                               else
 (ERROR "No such medley directory" DIRNAME]
-         (CL:WHEN MED (PSEUDOFILENAME MED])
+                                    (if
 (NULL (SETQ DIRNAME (MEDLEYDIR
 DIRNAME NIL OUTPUT NOERROR)))
+                                        then
 (OR NOERROR (SHOULDNT))
+                                             NIL
+                                      else
 (SETQ FILENAME (CONCAT DIRNAME FILENAME))
+                                           (if
 OUTPUT
+                                               then
 FILENAME
+                                             else
 (OR (INFILEP FILENAME)
+                                                      (if
 NOERROR
+                                                          then
 NIL
+                                                        else
 (ERROR "No such medley file" FILENAME]
+                             ((EQUAL DIRNAME "login")        (* ; "special case for login dir")

+                              (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                                 (UNIX-GETENV "HOME")
+                                                 DIRNAME)))
+                             [(EQUAL DIRNAME "loadups")      (* ; "special case for loadups dir")

+                              (OR (DIRECTORYNAME (UNIX-GETENV "MEDLEY¬LOADUPS¬DIR"))
+                                  (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
+                                                        "loadups" ">")
+                                         NIL OUTPUT)
+                                  (if
 NOERROR
+                                      then
 NIL
+                                    else
 (ERROR "Cannot find medley loadups directory" (MEDLEYDIR
]
+                             (T (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR
)
+                                                          DIRNAME ">")
+                                           NIL OUTPUT)
+                                    (if
 NOERROR
+                                        then
 NIL
+                                      else
 (ERROR "No such medley directory" DIRNAME]
+                (CL:WHEN MED (PSEUDOFILENAME MED])
 
 (MEDLEYSUBSTDIR

   [LAMBDA (OLD
 NEW BODY)
                          (* ; 
@@ -245,7 +245,7 @@
            SYSOUTCOMMITS])
 )
 
-(RPAQ? MEDLEYDIR
 )
+(RPAQ? MEDLEYDIR
 (MEDLEYDIR))
 
 (RPAQ? \SAVE.MEDLEYDIR
 )
 
@@ -303,6 +303,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5517 14653 (MEDLEY-INIT-VARS 5527 . 9158) (MEDLEYDIR 9160 . 13453) (MEDLEYSUBSTDIR 
-13455 . 14433) (SET-SYSOUT-COMMIT 14435 . 14651)))))
+  (FILEMAP (NIL (5529 14760 (MEDLEY-INIT-VARS 5539 . 9170) (MEDLEYDIR 9172 . 13560) (MEDLEYSUBSTDIR 
+13562 . 14540) (SET-SYSOUT-COMMIT 14542 . 14758)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index d6328855..f7cfaf91 100644
Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ