diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index f199c97f..627983f0 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62
 15842  
+
(FILECREATED "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63
 15934  
 
       :EDIT-BY rmk
 
@@ -71,7 +71,7 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

-  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 13:40 by rmk")


+  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 19:01 by rmk")


                                                              (* ; "Edited 15-Apr-2026 16:44 by rmk")


                                                              (* ; "Edited 22-Nov-2022 20:38 by FGH")


                                                              (* ; "Edited 21-Nov-2022 17:31 by FGH")


@@ -100,7 +100,10 @@
                                                                 (* ;; 
 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

 
-             (PSEUDOHOST 'MEDLEY (UNIX-GETENV "MEDLEYDIR"))
+             (PSEUDOHOST 'MEDLEY (PACKFILENAME 'BODY)
+                    (UNIX-GETENV "MEDLEYDIR")
+                    'HOST
+                    'DSK)
              (PROG (OLDMD NEWMD SAME TMP)
                    (IF
 (EQ \SAVE.MEDLEYDIR T)
                        THEN
                                  (* ; " Already restored")

@@ -286,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13571 (MEDLEY-INIT-VARS 4225 . 7981) (MEDLEYDIR 7983 . 12371) (MEDLEYSUBSTDIR 
-12373 . 13351) (SET-SYSOUT-COMMIT 13353 . 13569)))))
+  (FILEMAP (NIL (4215 13663 (MEDLEY-INIT-VARS 4225 . 8073) (MEDLEYDIR 8075 . 12463) (MEDLEYSUBSTDIR 
+12465 . 13443) (SET-SYSOUT-COMMIT 13445 . 13661)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 276baa23..36af86e0 100644
Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ