diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index e9a4422e..17a9ad86 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Apr-2026 12:07:45" {GMEDLEY}<sources>MEDLEYDIR.;3
 15758  
+
(FILECREATED "26-Apr-2026 13:55:08" {MEDLEY}<sources>MEDLEYDIR.;6
 16425  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "26-Apr-2026 11:39:05" {GMEDLEY}<sources>MEDLEYDIR.;2)
+      :PREVIOUS-DATE "26-Apr-2026 13:44:54" {MEDLEY}<sources>MEDLEYDIR.;5)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -44,9 +44,14 @@
                                       (IRM.DINFOGRAPH)
                                       (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES
                                                           ))
-                                      (LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
-                                                                         (UNIX-GETENV "HOME")))
-                                             RESET)
+                                      (LOGINHOST/DIR
+                                       (LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK
+                                                                        'BODY
+                                                                        (OR (UNIX-GETENV "LOGINDIR")
+                                                                            (UNIX-GETENV "HOME"]
+                                            (PSEUDOHOST 'LI LHD)
+                                            LHD)
+                                       RESET)
                                       (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                                             (CONS LOGINHOST/DIR '("INIT"]
                                              RESET)
@@ -264,8 +269,12 @@
          (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
          (IRM.DINFOGRAPH)
          (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-         (LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
-                                            (UNIX-GETENV "HOME")))
+         (LOGINHOST/DIR (LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK 'BODY (OR (UNIX-GETENV
+                                                                                      "LOGINDIR")
+                                                                                     (UNIX-GETENV
+                                                                                      "HOME"]
+                             (PSEUDOHOST 'LI LHD)
+                             LHD)
                 RESET)
          (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                (CONS LOGINHOST/DIR '("INIT"]
@@ -280,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4385 13616 (MEDLEY-INIT-VARS 4395 . 8026) (MEDLEYDIR 8028 . 12416) (MEDLEYSUBSTDIR 
-12418 . 13396) (SET-SYSOUT-COMMIT 13398 . 13614)))))
+  (FILEMAP (NIL (4716 13947 (MEDLEY-INIT-VARS 4726 . 8357) (MEDLEYDIR 8359 . 12747) (MEDLEYSUBSTDIR 
+12749 . 13727) (SET-SYSOUT-COMMIT 13729 . 13945)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index e9334e2b..b838ece5 100644
Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ