diff --git a/sources/FILEIO b/sources/FILEIO
index 8b05f42a..433ead86 100644
--- a/sources/FILEIO
+++ b/sources/FILEIO
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Apr-2026 16:57:36" {MEDLEY}<sources>FILEIO.;143 166654 
+(FILECREATED " 6-Feb-2026 23:22:00" {WMEDLEY}<sources>FILEIO.;142 166519 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \RENAMEFILE)
+      :CHANGES-TO (FNS DIRECTORYNAME)
 
-      :PREVIOUS-DATE " 6-Feb-2026 23:22:00" {MEDLEY}<sources>FILEIO.;142)
+      :PREVIOUS-DATE "12-Sep-2025 08:19:06" {WMEDLEY}<sources>FILEIO.;141)
 
 
 (PRETTYCOMPRINT FILEIOCOMS)
@@ -1506,8 +1506,7 @@
     (FOR FN IN STREAM-AFTER-OPEN-FNS DO (APPLY* FN STREAM ACCESS PARAMETERS])
 
 (\RENAMEFILE
-  [LAMBDA (OLDFILE NEWFILE)                                  (* ; "Edited 25-Apr-2026 16:03 by rmk")
-                                                             (* ; "Edited 25-Dec-2024 10:14 by rmk")
+  [LAMBDA (OLDFILE NEWFILE)                                  (* ; "Edited 25-Dec-2024 10:14 by rmk")
                                                              (* ; "Edited 16-Dec-2024 21:07 by rmk")
                                                              (* hdj " 7-May-86 12:22")
     (SETQ OLDFILE (\ADD.CONNECTED.DIR OLDFILE))
@@ -1522,7 +1521,7 @@
                                            NEW-DEVICE
                                            (TRUEFILENAME NEWFILE)))
              (CL:IF (PSEUDOHOSTP NEWFILE)
-                 (PSEUDOFILENAME NEWFULLNAME (FILENAMEFIELD NEWFILE 'HOST))
+                 (PSEUDOFILENAME NEWFULLNAME)
                  NEWFULLNAME))])
 
 (\REVALIDATEFILE
@@ -3162,39 +3161,39 @@ update the map")
 (ADDTOVAR LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (27702 31818 (STREAMPROP 27712 . 28146) (GETSTREAMPROP 28148 . 28897) (PUTSTREAMPROP 
-28899 . 31666) (STREAMP 31668 . 31816)) (31861 35240 (\DEFPRINT.BY.NAME 31871 . 33023) (
-\STREAM.DEFPRINT 33025 . 34933) (\FDEV.DEFPRINT 34935 . 35238)) (35498 40539 (\GETACCESS 35508 . 35962
-) (\SETACCESS 35964 . 40537)) (60765 66734 (\DEFINEDEVICE 60775 . 63091) (\GETDEVICEFROMNAME 63093 . 
-63566) (\GETDEVICEFROMHOSTNAME 63568 . 64612) (\REMOVEDEVICE 64614 . 65737) (\REMOVEDEVICE.NAMES 65739
- . 66732)) (66774 94644 (\CLOSEFILE 66784 . 67609) (\DELETEFILE 67611 . 67905) (\DEVICEEVENT 67907 . 
-69677) (\GENERATEFILES 69679 . 70626) (\GENERATENEXTFILE 70628 . 71279) (\GENERATEFILEINFO 71281 . 
-71742) (\GETFILENAME 71744 . 72133) (\GENERIC.OUTFILEP 72135 . 72605) (\OPENFILE 72607 . 75185) (
-\DO.PARAMS.AT.OPEN 75187 . 79383) (\RENAMEFILE 79385 . 80480) (\REVALIDATEFILE 80482 . 83084) (
-\PAGED.REVALIDATEFILELST 83086 . 84644) (\PAGED.REVALIDATEFILES 84646 . 86365) (\PAGED.REVALIDATEFILE 
-86367 . 88650) (\BUFFERED.REVALIDATEFILE 88652 . 90938) (\BUFFERED.REVALIDATEFILELST 90940 . 92124) (
-\PRINT-REVALIDATION-RESULT 92126 . 92968) (\TRUNCATEFILE 92970 . 93361) (\FILE-CONFLICT 93363 . 94642)
-) (94680 99343 (\GENERATENOFILES 94690 . 96786) (\NULLFILEGENERATOR 96788 . 97032) (\NOFILESNEXTFILEFN
- 97034 . 99025) (\NOFILESINFOFN 99027 . 99341)) (99462 101370 (\FILE.NOT.OPEN 99472 . 99985) (
-\FILE.WONT.OPEN 99987 . 100315) (\ILLEGAL.DEVICEOP 100317 . 100599) (\IS.NOT.RANDACCESSP 100601 . 
-101047) (\STREAM.NOT.OPEN 101049 . 101368)) (101505 103803 (\FDEVINSTANCE 101515 . 103801)) (105005 
-111976 (CNDIR 105015 . 106320) (DIRECTORYNAME 106322 . 110102) (DIRECTORYNAMEP 110104 . 110720) (
-HOSTNAMEP 110722 . 111529) (\ADD.CONNECTED.DIR 111531 . 111974)) (112021 140968 (\BACKFILEPTR 112031
- . 112219) (\BACKPEEKBIN 112221 . 112582) (\BACKBIN 112584 . 112935) (BIN 112937 . 113154) (\BIN 
-113156 . 113433) (\BINS 113435 . 113721) (BOUT 113723 . 114085) (\BOUT 114087 . 114402) (\BOUTS 114404
- . 114715) (COPYBYTES 114717 . 118049) (COPYCHARS 118051 . 121849) (COPYFILE 121851 . 123211) (
-\COPYOPENFILE 123213 . 126412) (\INFER.FILE.TYPE 126414 . 127368) (EOFP 127370 . 127667) (FORCEOUTPUT 
-127669 . 127916) (\FLUSH.OPEN.STREAMS 127918 . 128274) (CHARSET 128276 . 129635) (ACCESS-CHARSET 
-129637 . 130274) (GETEOFPTR 130276 . 130526) (GETFILEINFO 130528 . 133721) (\TYPE.FROM.FILETYPE 133723
- . 134193) (\FILETYPE.FROM.TYPE 134195 . 134374) (GETFILEPTR 134376 . 134628) (SETFILEINFO 134630 . 
-138867) (SETFILEPTR 138869 . 140588) (BOUT16 140590 . 140775) (BIN16 140777 . 140966)) (141071 148251 
-(\GENERIC.BINS 141081 . 141361) (\GENERIC.BOUTS 141363 . 141628) (\GENERIC.RENAMEFILE 141630 . 143878)
- (\GENERIC.OPENP 143880 . 145195) (\GENERIC.READP 145197 . 146349) (\GENERIC.CHARSET 146351 . 148249))
- (148252 148591 (\MAP-OPEN-STREAMS 148262 . 148589)) (150446 152526 (\EOF.ACTION 150456 . 150707) (
-\EOSERROR 150709 . 150902) (\GETEOFPTR 150904 . 151086) (\INCFILEPTR 151088 . 151438) (\PEEKBIN 151440
- . 151631) (\SETCLOSEDFILELENGTH 151633 . 151967) (\SETEOFPTR 151969 . 152157) (\SETFILEPTR 152159 . 
-152524)) (152527 153069 (\FIXPOUT 152537 . 152837) (\FIXPIN 152839 . 153067)) (153070 153636 (\BOUTEOL
- 153080 . 153634)) (156532 166396 (\BUFFERED.BIN 156542 . 157394) (\BUFFERED.PEEKBIN 157396 . 158178) 
-(\BUFFERED.BOUT 158180 . 159040) (\BUFFERED.BINS 159042 . 162727) (\BUFFERED.BOUTS 162729 . 164530) (
-\BUFFERED.COPYBYTES 164532 . 166394)))))
+  (FILEMAP (NIL (27706 31822 (STREAMPROP 27716 . 28150) (GETSTREAMPROP 28152 . 28901) (PUTSTREAMPROP 
+28903 . 31670) (STREAMP 31672 . 31820)) (31865 35244 (\DEFPRINT.BY.NAME 31875 . 33027) (
+\STREAM.DEFPRINT 33029 . 34937) (\FDEV.DEFPRINT 34939 . 35242)) (35502 40543 (\GETACCESS 35512 . 35966
+) (\SETACCESS 35968 . 40541)) (60769 66738 (\DEFINEDEVICE 60779 . 63095) (\GETDEVICEFROMNAME 63097 . 
+63570) (\GETDEVICEFROMHOSTNAME 63572 . 64616) (\REMOVEDEVICE 64618 . 65741) (\REMOVEDEVICE.NAMES 65743
+ . 66736)) (66778 94509 (\CLOSEFILE 66788 . 67613) (\DELETEFILE 67615 . 67909) (\DEVICEEVENT 67911 . 
+69681) (\GENERATEFILES 69683 . 70630) (\GENERATENEXTFILE 70632 . 71283) (\GENERATEFILEINFO 71285 . 
+71746) (\GETFILENAME 71748 . 72137) (\GENERIC.OUTFILEP 72139 . 72609) (\OPENFILE 72611 . 75189) (
+\DO.PARAMS.AT.OPEN 75191 . 79387) (\RENAMEFILE 79389 . 80345) (\REVALIDATEFILE 80347 . 82949) (
+\PAGED.REVALIDATEFILELST 82951 . 84509) (\PAGED.REVALIDATEFILES 84511 . 86230) (\PAGED.REVALIDATEFILE 
+86232 . 88515) (\BUFFERED.REVALIDATEFILE 88517 . 90803) (\BUFFERED.REVALIDATEFILELST 90805 . 91989) (
+\PRINT-REVALIDATION-RESULT 91991 . 92833) (\TRUNCATEFILE 92835 . 93226) (\FILE-CONFLICT 93228 . 94507)
+) (94545 99208 (\GENERATENOFILES 94555 . 96651) (\NULLFILEGENERATOR 96653 . 96897) (\NOFILESNEXTFILEFN
+ 96899 . 98890) (\NOFILESINFOFN 98892 . 99206)) (99327 101235 (\FILE.NOT.OPEN 99337 . 99850) (
+\FILE.WONT.OPEN 99852 . 100180) (\ILLEGAL.DEVICEOP 100182 . 100464) (\IS.NOT.RANDACCESSP 100466 . 
+100912) (\STREAM.NOT.OPEN 100914 . 101233)) (101370 103668 (\FDEVINSTANCE 101380 . 103666)) (104870 
+111841 (CNDIR 104880 . 106185) (DIRECTORYNAME 106187 . 109967) (DIRECTORYNAMEP 109969 . 110585) (
+HOSTNAMEP 110587 . 111394) (\ADD.CONNECTED.DIR 111396 . 111839)) (111886 140833 (\BACKFILEPTR 111896
+ . 112084) (\BACKPEEKBIN 112086 . 112447) (\BACKBIN 112449 . 112800) (BIN 112802 . 113019) (\BIN 
+113021 . 113298) (\BINS 113300 . 113586) (BOUT 113588 . 113950) (\BOUT 113952 . 114267) (\BOUTS 114269
+ . 114580) (COPYBYTES 114582 . 117914) (COPYCHARS 117916 . 121714) (COPYFILE 121716 . 123076) (
+\COPYOPENFILE 123078 . 126277) (\INFER.FILE.TYPE 126279 . 127233) (EOFP 127235 . 127532) (FORCEOUTPUT 
+127534 . 127781) (\FLUSH.OPEN.STREAMS 127783 . 128139) (CHARSET 128141 . 129500) (ACCESS-CHARSET 
+129502 . 130139) (GETEOFPTR 130141 . 130391) (GETFILEINFO 130393 . 133586) (\TYPE.FROM.FILETYPE 133588
+ . 134058) (\FILETYPE.FROM.TYPE 134060 . 134239) (GETFILEPTR 134241 . 134493) (SETFILEINFO 134495 . 
+138732) (SETFILEPTR 138734 . 140453) (BOUT16 140455 . 140640) (BIN16 140642 . 140831)) (140936 148116 
+(\GENERIC.BINS 140946 . 141226) (\GENERIC.BOUTS 141228 . 141493) (\GENERIC.RENAMEFILE 141495 . 143743)
+ (\GENERIC.OPENP 143745 . 145060) (\GENERIC.READP 145062 . 146214) (\GENERIC.CHARSET 146216 . 148114))
+ (148117 148456 (\MAP-OPEN-STREAMS 148127 . 148454)) (150311 152391 (\EOF.ACTION 150321 . 150572) (
+\EOSERROR 150574 . 150767) (\GETEOFPTR 150769 . 150951) (\INCFILEPTR 150953 . 151303) (\PEEKBIN 151305
+ . 151496) (\SETCLOSEDFILELENGTH 151498 . 151832) (\SETEOFPTR 151834 . 152022) (\SETFILEPTR 152024 . 
+152389)) (152392 152934 (\FIXPOUT 152402 . 152702) (\FIXPIN 152704 . 152932)) (152935 153501 (\BOUTEOL
+ 152945 . 153499)) (156397 166261 (\BUFFERED.BIN 156407 . 157259) (\BUFFERED.PEEKBIN 157261 . 158043) 
+(\BUFFERED.BOUT 158045 . 158905) (\BUFFERED.BINS 158907 . 162592) (\BUFFERED.BOUTS 162594 . 164395) (
+\BUFFERED.COPYBYTES 164397 . 166259)))))
 STOP
diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM
index bd2693a9..d120ea24 100644
Binary files a/sources/FILEIO.LCOM and b/sources/FILEIO.LCOM differ
