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
