diff --git a/library/UNIXCOMM b/library/UNIXCOMM
index 2e3c2efb..13153311 100644
--- a/library/UNIXCOMM
+++ b/library/UNIXCOMM
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 3-Jul-2022 16:16:31" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;5 20396  
+(FILECREATED " 7-Jul-2022 10:42:46" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNIXCOMM.;6 20326  
 
-      :CHANGES-TO (FNS INITIALIZE-SHELL-DEVICE)
+      :CHANGES-TO (FNS INITIALIZE-NEW-SHELL-DEVICE)
 
-      :PREVIOUS-DATE " 3-Jul-2022 16:05:06" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;3)
+      :PREVIOUS-DATE " 3-Jul-2022 16:16:31" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNIXCOMM.;5)
 
 
 (* ; "
@@ -187,7 +187,8 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (INITIALIZE-NEW-SHELL-DEVICE
-  [LAMBDA NIL                                                (* ; "Edited  3-Jul-2022 16:04 by rmk")
+  [LAMBDA NIL                                                (* ; "Edited  7-Jul-2022 10:41 by rmk")
+                                                             (* ; "Edited  3-Jul-2022 16:04 by rmk")
                                                              (* ; "Edited 12-Feb-90 17:00 by bvm")
     (SETQ *NEW-SHELL-DEVICE* (create FDEV
                                     FDBINABLE _ T
@@ -203,9 +204,7 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation.
                                     BACKFILEPTR _ (FUNCTION UNIX-BACKFILEPTR-NEW)
                                     GETNEXTBUFFER _ (FUNCTION UNIX-GET-NEXT-BUFFER)
                                     BLOCKIN _ (FUNCTION \BUFFERED.BINS)
-                                    DEFAULTEXTERNALFORMAT _ (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG"
-                                                                                         ))
-                                                                 :UTF-8])
+                                    DEFAULTEXTERNALFORMAT _ (SYSTEM-EXTERNALFORMAT])
 
 (UNIX-GET-NEXT-BUFFER
   [LAMBDA (STREAM WHATFOR NOERRORFLG)                        (* ; 
@@ -456,12 +455,12 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation.
 (PUTPROPS UNIXCOMM FILETYPE FAKE-COMPILE-FILE)
 (PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2488 8459 (FORK-SHELL 2498 . 3695) (FORK-UNIX 3697 . 3873) (UNIX-KILL 3875 . 4064) (
-UNIX-WRITE 4066 . 4777) (CREATE-SHELL-STREAM 4779 . 6095) (CREATE-PROCESS-STREAM 6097 . 7556) (
-UNIXCOMM-AROUNDEXITFN 7558 . 8457)) (8507 13875 (INITIALIZE-NEW-SHELL-DEVICE 8517 . 9990) (
-UNIX-GET-NEXT-BUFFER 9992 . 12192) (UNIX-BACKFILEPTR-NEW 12194 . 12673) (UNIX-STREAM-EOFP-NEW 12675 . 
-13221) (UNIX-STREAM-OUT 13223 . 13479) (UNIX-STREAM-CLOSE 13481 . 13873)) (14131 15996 (
-CREATE-UNIX-SOCKET-STREAM 14141 . 15002) (ACCEPT-UNIX-SOCKET-STREAM 15004 . 15994)) (16345 19805 (
-UNIX-BACKFILEPTR 16355 . 16853) (UNIX-READ 16855 . 17377) (INITIALIZE-SHELL-DEVICE 17379 . 18399) (
-UNIX-STREAM-IN 18401 . 18777) (UNIX-STREAM-EOFP 18779 . 19553) (UNIX-STREAM-PEEK 19555 . 19803)))))
+  (FILEMAP (NIL (2492 8463 (FORK-SHELL 2502 . 3699) (FORK-UNIX 3701 . 3877) (UNIX-KILL 3879 . 4068) (
+UNIX-WRITE 4070 . 4781) (CREATE-SHELL-STREAM 4783 . 6099) (CREATE-PROCESS-STREAM 6101 . 7560) (
+UNIXCOMM-AROUNDEXITFN 7562 . 8461)) (8511 13805 (INITIALIZE-NEW-SHELL-DEVICE 8521 . 9920) (
+UNIX-GET-NEXT-BUFFER 9922 . 12122) (UNIX-BACKFILEPTR-NEW 12124 . 12603) (UNIX-STREAM-EOFP-NEW 12605 . 
+13151) (UNIX-STREAM-OUT 13153 . 13409) (UNIX-STREAM-CLOSE 13411 . 13803)) (14061 15926 (
+CREATE-UNIX-SOCKET-STREAM 14071 . 14932) (ACCEPT-UNIX-SOCKET-STREAM 14934 . 15924)) (16275 19735 (
+UNIX-BACKFILEPTR 16285 . 16783) (UNIX-READ 16785 . 17307) (INITIALIZE-SHELL-DEVICE 17309 . 18329) (
+UNIX-STREAM-IN 18331 . 18707) (UNIX-STREAM-EOFP 18709 . 19483) (UNIX-STREAM-PEEK 19485 . 19733)))))
 STOP
diff --git a/library/UNIXCOMM.LCOM b/library/UNIXCOMM.LCOM
index 42200f18..a60a6296 100644
Binary files a/library/UNIXCOMM.LCOM and b/library/UNIXCOMM.LCOM differ
diff --git a/sources/EXTERNALFORMAT b/sources/EXTERNALFORMAT
index 21c94bce..d9cb86fc 100644
--- a/sources/EXTERNALFORMAT
+++ b/sources/EXTERNALFORMAT
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 3-Jul-2022 08:55:41" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;56 36413  
+(FILECREATED " 7-Jul-2022 10:42:34" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;57 36715  
 
       :CHANGES-TO (VARS EXTERNALFORMATCOMS)
+                  (FNS SYSTEM-EXTERNALFORMAT)
 
-      :PREVIOUS-DATE " 3-Jul-2022 00:35:47" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;55)
+      :PREVIOUS-DATE " 3-Jul-2022 08:55:41" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;56)
 
 
 (PRETTYCOMPRINT EXTERNALFORMATCOMS)
@@ -19,6 +20,7 @@
               (SYSRECORDS EXTERNALFORMAT)
               (FNS \EXTERNALFORMAT MAKE-EXTERNALFORMAT \EXTERNALFORMAT.DEFPRINT)
               (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT)
+              (FNS SYSTEM-EXTERNALFORMAT)
               (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*)
               (INITVARS (*EXTERNALFORMATS* NIL)
                      (*DEFAULT-EXTERNALFORMAT* :XCCS))
@@ -288,6 +290,13 @@
                                                                   OF EF)))
                (CL:UNLESS NOERROR (ERROR NAME "is not an external format"])
 )
+(DEFINEQ
+
+(SYSTEM-EXTERNALFORMAT
+  [LAMBDA NIL                                                (* ; "Edited  7-Jul-2022 10:41 by rmk")
+    (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG"))
+         :UTF-8])
+)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*)
@@ -695,13 +704,13 @@
 (\CREATE.THROUGH.EXTERNALFORMAT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6535 13170 (\EXTERNALFORMAT 6545 . 10323) (MAKE-EXTERNALFORMAT 10325 . 12697) (
-\EXTERNALFORMAT.DEFPRINT 12699 . 13168)) (13171 16212 (\INSTALL.EXTERNALFORMAT 13181 . 14630) (
-\REMOVE.EXTERNALFORMAT 14632 . 15463) (FIND-FORMAT 15465 . 16210)) (16561 30496 (\OUTCHAR 16571 . 
-17788) (\INCCODE 17790 . 18943) (\BACKCCODE 18945 . 19808) (\BACKCCODE.EOLC 19810 . 22397) (\PEEKCCODE
- 22399 . 22773) (\PEEKCCODE.NOEOLC 22775 . 23107) (\INCCODE.EOLC 23109 . 24789) (\FORMATBYTESTREAM 
-24791 . 26424) (\FORMATBYTESTRING 26426 . 27928) (\CHECKEOLC.CRLF 27930 . 30494)) (32098 34334 (
-\NULLDEVICE 32108 . 34010) (\NULL.OPENFILE 34012 . 34332)) (34474 36317 (
-\CREATE.THROUGH.EXTERNALFORMAT 34484 . 35286) (\THROUGHIN 35288 . 35708) (\THROUGHBACKCCODE 35710 . 
-35977) (\THROUGHOUTCHARFN 35979 . 36315)))))
+  (FILEMAP (NIL (6623 13258 (\EXTERNALFORMAT 6633 . 10411) (MAKE-EXTERNALFORMAT 10413 . 12785) (
+\EXTERNALFORMAT.DEFPRINT 12787 . 13256)) (13259 16300 (\INSTALL.EXTERNALFORMAT 13269 . 14718) (
+\REMOVE.EXTERNALFORMAT 14720 . 15551) (FIND-FORMAT 15553 . 16298)) (16301 16514 (SYSTEM-EXTERNALFORMAT
+ 16311 . 16512)) (16863 30798 (\OUTCHAR 16873 . 18090) (\INCCODE 18092 . 19245) (\BACKCCODE 19247 . 
+20110) (\BACKCCODE.EOLC 20112 . 22699) (\PEEKCCODE 22701 . 23075) (\PEEKCCODE.NOEOLC 23077 . 23409) (
+\INCCODE.EOLC 23411 . 25091) (\FORMATBYTESTREAM 25093 . 26726) (\FORMATBYTESTRING 26728 . 28230) (
+\CHECKEOLC.CRLF 28232 . 30796)) (32400 34636 (\NULLDEVICE 32410 . 34312) (\NULL.OPENFILE 34314 . 34634
+)) (34776 36619 (\CREATE.THROUGH.EXTERNALFORMAT 34786 . 35588) (\THROUGHIN 35590 . 36010) (
+\THROUGHBACKCCODE 36012 . 36279) (\THROUGHOUTCHARFN 36281 . 36617)))))
 STOP
diff --git a/sources/EXTERNALFORMAT.LCOM b/sources/EXTERNALFORMAT.LCOM
index 3dfcd7fa..3584bd0e 100644
Binary files a/sources/EXTERNALFORMAT.LCOM and b/sources/EXTERNALFORMAT.LCOM differ
