diff --git a/library/PSEUDOHOSTS b/library/PSEUDOHOSTS
index e3e76977..2ab1a3f2 100644
--- a/library/PSEUDOHOSTS
+++ b/library/PSEUDOHOSTS
@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED "27-Apr-2026 21:16:52" {WMEDLEY}<library>PSEUDOHOSTS.;189 30476  
+(FILECREATED "27-Apr-2026 22:55:50" {WMEDLEY}<library>PSEUDOHOSTS.;190 30619  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS CONTRACT.PH PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME EXPAND.PH PSEUDOFILENAMES)
+      :CHANGES-TO (FNS CDPSEUDO CONTRACT.PH PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME EXPAND.PH 
+                       PSEUDOFILENAMES)
                   (VARS PSEUDOHOSTSCOMS)
                   (RECORDS TARGETDEVICE)
 
@@ -250,7 +251,8 @@
 (DEFINEQ
 
 (CDPSEUDO
-  [LAMBDA (PHOST CDSUFFIX FILEPKGFLG)                        (* ; "Edited 25-Apr-2026 23:53 by rmk")
+  [LAMBDA (PHOST CDSUFFIX FILEPKGFLG)                        (* ; "Edited 27-Apr-2026 22:54 by rmk")
+                                                             (* ; "Edited 25-Apr-2026 23:53 by rmk")
                                                              (* ; "Edited 21-Dec-2024 13:48 by rmk")
                                                              (* ; "Edited  6-Feb-2024 15:50 by rmk")
 
@@ -261,7 +263,7 @@
     (DECLARE (SPECVARS FILEPKGFLG))
     (CL:WHEN (AND (SETQ PHOST (CAR (PSEUDOHOSTP PHOST)))
                   CDSUFFIX)
-        [LET [(CNAME (PACK* "cd" (L-CASE CDSUFFIX]
+        [LET [(CNAME (CONCAT "cd" (L-CASE CDSUFFIX]
              (SETQ PHOST (CONCAT "{" PHOST "}"))
              (EVAL `(DEFCOMMAND ,CNAME (SUBDIR) (/CNDIR (CL:IF SUBDIR
                                                             (CONCAT ,PHOST "/" SUBDIR)
@@ -567,12 +569,12 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1275 14334 (PSEUDOHOST 1285 . 7847) (PSEUDOHOSTP 7849 . 8768) (PSEUDOHOSTS 8770 . 9131)
- (TARGETHOST 9133 . 10002) (TRUEDEVICE 10004 . 10960) (TRUEFILENAME 10962 . 12249) (PSEUDOFILENAME 
-12251 . 13663) (PSEUDOFILENAMES 13665 . 14332)) (14335 15374 (CDPSEUDO 14345 . 15372)) (15402 21286 (
-EXPAND.PH 15412 . 16718) (CONTRACT.PH 16720 . 19202) (UNSLASHIT 19204 . 20950) (GETHOSTINFO.PH 20952
- . 21284)) (21287 27908 (OPENFILE.PH 21297 . 22422) (GETFILENAME.PH 22424 . 22822) (DIRECTORYNAMEP.PH 
-22824 . 23448) (CLOSEFILE.PH 23450 . 23917) (REOPENFILE.PH 23919 . 24595) (DELETEFILE.PH 24597 . 24881
-) (GENERATEFILES.PH 24883 . 26077) (GETFILEINFO.PH 26079 . 26600) (SETFILEINFO.PH 26602 . 26911) (
-NEXTFILEFN.PH 26913 . 27629) (FILEINFOFN.PH 27631 . 27906)))))
+  (FILEMAP (NIL (1308 14367 (PSEUDOHOST 1318 . 7880) (PSEUDOHOSTP 7882 . 8801) (PSEUDOHOSTS 8803 . 9164)
+ (TARGETHOST 9166 . 10035) (TRUEDEVICE 10037 . 10993) (TRUEFILENAME 10995 . 12282) (PSEUDOFILENAME 
+12284 . 13696) (PSEUDOFILENAMES 13698 . 14365)) (14368 15517 (CDPSEUDO 14378 . 15515)) (15545 21429 (
+EXPAND.PH 15555 . 16861) (CONTRACT.PH 16863 . 19345) (UNSLASHIT 19347 . 21093) (GETHOSTINFO.PH 21095
+ . 21427)) (21430 28051 (OPENFILE.PH 21440 . 22565) (GETFILENAME.PH 22567 . 22965) (DIRECTORYNAMEP.PH 
+22967 . 23591) (CLOSEFILE.PH 23593 . 24060) (REOPENFILE.PH 24062 . 24738) (DELETEFILE.PH 24740 . 25024
+) (GENERATEFILES.PH 25026 . 26220) (GETFILEINFO.PH 26222 . 26743) (SETFILEINFO.PH 26745 . 27054) (
+NEXTFILEFN.PH 27056 . 27772) (FILEINFOFN.PH 27774 . 28049)))))
 STOP
diff --git a/library/PSEUDOHOSTS.LCOM b/library/PSEUDOHOSTS.LCOM
index 303def1e..12797ee1 100644
Binary files a/library/PSEUDOHOSTS.LCOM and b/library/PSEUDOHOSTS.LCOM differ
diff --git a/lispusers/UNIXYCD b/lispusers/UNIXYCD
index e6dd17ee..b3a657ad 100644
--- a/lispusers/UNIXYCD
+++ b/lispusers/UNIXYCD
@@ -1,24 +1,28 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED "12-Aug-2022 12:29:18" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1 568    
+(FILECREATED "27-Apr-2026 23:10:40" {WMEDLEY}<lispusers>UNIXYCD.;2 738    
+
+      :EDIT-BY rmk
 
       :CHANGES-TO (VARS UNIXYCDCOMS)
+                  (COMMANDS cdm)
 
-      :PREVIOUS-DATE "12-Aug-2022 11:14:47" {DSK}<home>larry>medley>lispusers>UNIXYCD.;1)
+      :PREVIOUS-DATE "12-Aug-2022 12:29:18" {MEDLEY}<lispusers>UNIXYCD.;1)
 
 
 (PRETTYCOMPRINT UNIXYCDCOMS)
 
-(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" "ls" "pwd")))
+(RPAQQ UNIXYCDCOMS ((COMMANDS "cd" cdm "ls" "pwd")))
 
-(DEFCOMMAND "cd" (DIR)
-   (/CNDIR DIR))
+(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
 
-(DEFCOMMAND "ls" (FIRST . REST)
-   (DODIR (CONS FIRST REST)))
+(DEFCOMMAND cdm (SUBDIR) (/CNDIR (CL:IF SUBDIR
+                                     (CONCAT '{MEDLEY}/ SUBDIR)
+                                     '{MEDLEY})))
 
-(DEFCOMMAND "pwd" ()
-   (DIRECTORYNAME T))
+(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
+
+(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP
diff --git a/lispusers/UNIXYCD.TXT b/lispusers/UNIXYCD.TXT
index 670e3988..7aa5a88a 100644
Binary files a/lispusers/UNIXYCD.TXT and b/lispusers/UNIXYCD.TXT differ
