diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS
index ad69e0ed..bb0e7189 100644
--- a/lispusers/PSEUDOHOSTS
+++ b/lispusers/PSEUDOHOSTS
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "22-Sep-2023 15:29:50" {WMEDLEY}<lispusers>PSEUDOHOSTS.;158 26638  
+(FILECREATED " 2-Nov-2023 10:53:30" {WMEDLEY}<lispusers>PSEUDOHOSTS.;160 26843  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS PSEUDOHOST SLASHIT CONTRACT.PH)
-                  (VARS PSEUDOHOSTSCOMS)
+      :CHANGES-TO (FNS PSEUDOHOST)
 
-      :PREVIOUS-DATE "26-Jul-2023 12:34:37" {WMEDLEY}<lispusers>PSEUDOHOSTS.;155)
+      :PREVIOUS-DATE " 1-Oct-2023 20:16:43" {WMEDLEY}<lispusers>PSEUDOHOSTS.;159)
 
 
 (PRETTYCOMPRINT PSEUDOHOSTSCOMS)
@@ -41,6 +40,8 @@
 (PSEUDOHOST
   [LAMBDA (HOST PREFIX)
 
+    (* ;; "Edited  2-Nov-2023 10:53 by rmk")
+
     (* ;; "Edited 22-Sep-2023 15:29 by rmk")
 
     (* ;; "Edited 25-Jun-2022 17:00 by rmk")
@@ -59,7 +60,8 @@
         (SETQ HOST (SUBSTRING HOST 1 -2)))
     (SETQ HOST (U-CASE (MKATOM HOST)))
     [if PREFIX
-        then (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
+        then (SETQ PREFIX (TRUEFILENAME PREFIX))
+             (CL:WHEN (PSEUDOHOSTP HOST)                     (* ; 
                                                        "Redefining: first clear out the previous one")
                  (PSEUDOHOST HOST NIL))
              [LET (TARGETHOST TARGETDEVICE PREFIXHOST)
@@ -154,14 +156,16 @@
         (FETCH (FDEV DEVICENAME) OF (FETCH (PHDEVICE TARGETDEV) OF (\GETDEVICEFROMNAME HOST))))])
 
 (TRUEFILENAME
-  [LAMBDA (FILE)                                             (* ; "Edited 26-Jul-2023 07:53 by rmk")
+  [LAMBDA (FILE)                                             (* ; "Edited  1-Oct-2023 20:16 by rmk")
+                                                             (* ; "Edited 26-Jul-2023 07:53 by rmk")
                                                              (* ; "Edited 26-Jan-2022 23:33 by rmk")
                                                              (* ; "Edited 25-Jan-2022 08:47 by rmk")
     (if (LISTP FILE)
         then (for F in FILE collect (TRUEFILENAME F))
       else (LET (FILENAME DEVICE)
                 (IF (STREAMP FILE)
-                    THEN (SETQ FILENAME (FETCH (STREAM FULLFILENAME) OF FILE))
+                    THEN (SETQ FILENAME (OR (FETCH (STREAM FULLFILENAME) OF FILE)
+                                            FILE))
                          (SETQ DEVICE (FETCH (STREAM DEVICE) OF FILE))
                   ELSE (SETQ FILENAME (\ADD.CONNECTED.DIR FILE))
                        (SETQ DEVICE (\GETDEVICEFROMNAME FILENAME)))
@@ -511,12 +515,12 @@
        EXPORTS.ALL)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1315 9921 (PSEUDOHOST 1325 . 6930) (PSEUDOHOSTP 6932 . 7445) (PSEUDOHOSTS 7447 . 7808) 
-(TARGETHOST 7810 . 8084) (TRUEFILENAME 8086 . 9048) (PSEUDOFILENAME 9050 . 9919)) (9949 15964 (
-EXPAND.PH 9959 . 11212) (CONTRACT.PH 11214 . 13925) (UNSLASHIT 13927 . 15673) (GETHOSTINFO.PH 15675 . 
-15962)) (15965 23985 (OPENFILE.PH 15975 . 17048) (GETFILENAME.PH 17050 . 17339) (DIRECTORYNAMEP.PH 
-17341 . 17965) (CLOSEFILE.PH 17967 . 18434) (REOPENFILE.PH 18436 . 19001) (DELETEFILE.PH 19003 . 19287
-) (OPENP.PH 19289 . 19584) (UNREGISTERFILE.PH 19586 . 20128) (REGISTERFILE.PH 20130 . 20664) (
-GENERATEFILES.PH 20666 . 21710) (GETFILEINFO.PH 21712 . 22014) (SETFILEINFO.PH 22016 . 22215) (
-NEXTFILEFN.PH 22217 . 22763) (FILEINFOFN.PH 22765 . 23040) (RENAMEFILE.PH 23042 . 23983)))))
+  (FILEMAP (NIL (1254 10126 (PSEUDOHOST 1264 . 6972) (PSEUDOHOSTP 6974 . 7487) (PSEUDOHOSTS 7489 . 7850)
+ (TARGETHOST 7852 . 8126) (TRUEFILENAME 8128 . 9253) (PSEUDOFILENAME 9255 . 10124)) (10154 16169 (
+EXPAND.PH 10164 . 11417) (CONTRACT.PH 11419 . 14130) (UNSLASHIT 14132 . 15878) (GETHOSTINFO.PH 15880
+ . 16167)) (16170 24190 (OPENFILE.PH 16180 . 17253) (GETFILENAME.PH 17255 . 17544) (DIRECTORYNAMEP.PH 
+17546 . 18170) (CLOSEFILE.PH 18172 . 18639) (REOPENFILE.PH 18641 . 19206) (DELETEFILE.PH 19208 . 19492
+) (OPENP.PH 19494 . 19789) (UNREGISTERFILE.PH 19791 . 20333) (REGISTERFILE.PH 20335 . 20869) (
+GENERATEFILES.PH 20871 . 21915) (GETFILEINFO.PH 21917 . 22219) (SETFILEINFO.PH 22221 . 22420) (
+NEXTFILEFN.PH 22422 . 22968) (FILEINFOFN.PH 22970 . 23245) (RENAMEFILE.PH 23247 . 24188)))))
 STOP
diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM
index 2a4c82ce..39dc6705 100644
Binary files a/lispusers/PSEUDOHOSTS.LCOM and b/lispusers/PSEUDOHOSTS.LCOM differ
diff --git a/lispusers/PSEUDOHOSTS.TEDIT b/lispusers/PSEUDOHOSTS.TEDIT
index 1c8e3d76..9d2d7076 100644
Binary files a/lispusers/PSEUDOHOSTS.TEDIT and b/lispusers/PSEUDOHOSTS.TEDIT differ
