Fix bug

sources/MEDLEYDIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63
 15934  
+
(FILECREATED "25-May-2026 10:56:39" {MEDLEY}<sources>MEDLEYDIR.;64
 16063  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)
+      :PREVIOUS-DATE "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -71,7 +71,8 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

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


+  [LAMBDA (EVENT)
                                            (* ; "Edited 25-May-2026 10:56 by rmk")


+                                                             (* ; "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,10 +101,9 @@
                                                                 (* ;; 
 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

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

@@ -289,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13663 (MEDLEY-INIT-VARS 4225 . 8073) (MEDLEYDIR 8075 . 12463) (MEDLEYSUBSTDIR 
-12465 . 13443) (SET-SYSOUT-COMMIT 13445 . 13661)))))
+  (FILEMAP (NIL (4215 13792 (MEDLEY-INIT-VARS 4225 . 8202) (MEDLEYDIR 8204 . 12592) (MEDLEYSUBSTDIR 
+12594 . 13572) (SET-SYSOUT-COMMIT 13574 . 13790)))))
 STOP