diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS
index 05dc0f81..17392f02 100644
--- a/lispusers/PSEUDOHOSTS
+++ b/lispusers/PSEUDOHOSTS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Jun-2022 17:24:45" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PSEUDOHOSTS.;149 27524  
+(FILECREATED "14-Jul-2022 17:54:43" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PSEUDOHOSTS.;150 27644  
 
-      :CHANGES-TO (VARS PSEUDOHOSTSCOMS)
+      :CHANGES-TO (FNS OPENFILE.PH)
 
-      :PREVIOUS-DATE "25-Jun-2022 17:07:38" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PSEUDOHOSTS.;148)
+      :PREVIOUS-DATE "25-Jun-2022 17:24:45" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>PSEUDOHOSTS.;149)
 
 
 (PRETTYCOMPRINT PSEUDOHOSTSCOMS)
@@ -314,6 +314,8 @@
 (OPENFILE.PH
   [LAMBDA (FILE ACCESS RECOG OTHERINFO FDEV OLDSTRING)
 
+    (* ;; "Edited 14-Jul-2022 17:53 by rmk")
+
     (* ;; "Edited 25-Jun-2022 17:06 by rmk:  If the stream was opened through the pseudohost, then it should only be registered on the pseudohost.  We assume that it is safe to remove it from the target hosts list.  The goal is that OPENP should only see it once, as being open on the pseudohost.")
 
     (* ;; "Edited 25-Jan-2022 08:45 by rmk")
@@ -323,11 +325,12 @@
     (LET ((TARGETDEV (FETCH (PHDEVICE TARGETDEV) OF FDEV))
           (STREAM (PSEUDOHOST.TARGETVAL OPENFILE (FILE ACCESS RECOG OTHERINFO FDEV OLDSTRING)
                          FDEV)))
-         (CL:WHEN STREAM
-             (FDEVOP 'UNREGISTERFILE TARGETDEV TARGETDEV STREAM)
-             (CHANGE (FETCH (STREAM FULLFILENAME) OF STREAM)
-                    (CONTRACT.PH DATUM FDEV))
-             (REPLACE (STREAM DEVICE) OF STREAM WITH FDEV))
+         (IF STREAM
+             THEN (FDEVOP 'UNREGISTERFILE TARGETDEV TARGETDEV STREAM)
+                  (CHANGE (FETCH (STREAM FULLFILENAME) OF STREAM)
+                         (CONTRACT.PH DATUM FDEV))
+                  (REPLACE (STREAM DEVICE) OF STREAM WITH FDEV)
+           ELSE (ERROR "File not found: " FILE))
          STREAM])
 
 (GETFILENAME.PH
@@ -521,13 +524,13 @@
     (LOAD 'EXPORTS.ALL))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1355 9387 (PSEUDOHOST 1365 . 6924) (PSEUDOHOSTP 6926 . 7439) (PSEUDOHOSTS 7441 . 7798) 
-(TARGETHOST 7800 . 8074) (TRUEFILENAME 8076 . 8763) (PSEUDOFILENAME 8765 . 9385)) (9415 16954 (
-EXPAND.PH 9425 . 10678) (CONTRACT.PH 10680 . 13345) (SLASHIT 13347 . 14915) (UNSLASHIT 14917 . 16663) 
-(GETHOSTINFO.PH 16665 . 16952)) (16955 24859 (OPENFILE.PH 16965 . 17938) (GETFILENAME.PH 17940 . 18229
-) (DIRECTORYNAMEP.PH 18231 . 18855) (CLOSEFILE.PH 18857 . 19324) (REOPENFILE.PH 19326 . 19891) (
-DELETEFILE.PH 19893 . 20177) (OPENP.PH 20179 . 20474) (UNREGISTERFILE.PH 20476 . 21018) (
-REGISTERFILE.PH 21020 . 21554) (GENERATEFILES.PH 21556 . 22596) (GETFILEINFO.PH 22598 . 22900) (
-SETFILEINFO.PH 22902 . 23101) (NEXTFILEFN.PH 23103 . 23645) (FILEINFOFN.PH 23647 . 23918) (
-RENAMEFILE.PH 23920 . 24857)))))
+  (FILEMAP (NIL (1350 9382 (PSEUDOHOST 1360 . 6919) (PSEUDOHOSTP 6921 . 7434) (PSEUDOHOSTS 7436 . 7793) 
+(TARGETHOST 7795 . 8069) (TRUEFILENAME 8071 . 8758) (PSEUDOFILENAME 8760 . 9380)) (9410 16949 (
+EXPAND.PH 9420 . 10673) (CONTRACT.PH 10675 . 13340) (SLASHIT 13342 . 14910) (UNSLASHIT 14912 . 16658) 
+(GETHOSTINFO.PH 16660 . 16947)) (16950 24979 (OPENFILE.PH 16960 . 18058) (GETFILENAME.PH 18060 . 18349
+) (DIRECTORYNAMEP.PH 18351 . 18975) (CLOSEFILE.PH 18977 . 19444) (REOPENFILE.PH 19446 . 20011) (
+DELETEFILE.PH 20013 . 20297) (OPENP.PH 20299 . 20594) (UNREGISTERFILE.PH 20596 . 21138) (
+REGISTERFILE.PH 21140 . 21674) (GENERATEFILES.PH 21676 . 22716) (GETFILEINFO.PH 22718 . 23020) (
+SETFILEINFO.PH 23022 . 23221) (NEXTFILEFN.PH 23223 . 23765) (FILEINFOFN.PH 23767 . 24038) (
+RENAMEFILE.PH 24040 . 24977)))))
 STOP
diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM
index 84c36a9f..d2d8d933 100644
Binary files a/lispusers/PSEUDOHOSTS.LCOM and b/lispusers/PSEUDOHOSTS.LCOM differ
