diff --git a/sources/LLSUBRS b/sources/LLSUBRS
index 3fe30e23..6e2aacd7 100644
--- a/sources/LLSUBRS
+++ b/sources/LLSUBRS
@@ -1,17 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "17-Mar-2021 11:10:55" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;6 27745  
+(FILECREATED "13-Sep-2021 17:12:03" {DSK}<Users>briggs>Projects>medley>sources>LLSUBRS.;8 27017  
 
       changes to%:  (VARS \INITSUBRS)
-                    (FNS MISCN-NUMBER \MISCN.UFN \UNDEFINED-MISCN-UFN MISCN-COLLECT \GET-MY-BF 
-                         \INIT-MISCN-TABLE \USER-SUBR-UFN \INIT-USER-SUBR-TABLE 
-                         \UNDEFINED-USER-SUBR-UFN USER-SUBR-NUMBER EQ-TO-CAR EQ-TO-CADR SUBRNUMBER 
-                         WRITECALLSUBRS FIX-SUBR-NAME \MOREVMEMFILE \WRITEMAP \COPYSYS0SUBR 
-                         \PUPLEVEL1STATE SHOWDISPLAY SETSCREENCOLOR \WRITERAWPBI \READRAWPBI RAID 
-                         \LISPFINISH \GETPACKETBUFFER \GATHERSTATS \DSPRATE DSPBOUT DISKPARTITION 
-                         \CHECKBCPLPASSWORD SUSPEND-LISP UNIX-USERNAME UNIX-FULLNAME UNIX-GETENV 
-                         UNIX-GETPARM)
+                    (FNS WRITECALLSUBRS)
 
-      previous date%: "16-Mar-2021 23:00:15" {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;3)
+      previous date%: "13-Sep-2021 16:07:08" {DSK}<VAR>TMP>LLSUBRS.;1)
 
 
 (* ; "
@@ -316,8 +309,7 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 
 (* "FOLLOWING DEFINITIONS EXPORTED")
 (RPAQQ \INITSUBRS
-       ((YIELD 210)
-        (BACKGROUNDSUBR 6)
+       ((BACKGROUNDSUBR 6)
         (CHECKBCPLPASSWORD 7)
         (DISKPARTITION 8)
         (DSPBOUT 9)
@@ -442,7 +434,8 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
         (CHAR-READP 206)
         (CHAR-BINS 207)
         (CHAR-BOUTS 208)
-        (CHAR-FILLBUFFER 209)))
+        (CHAR-FILLBUFFER 209)
+        (YIELD 210)))
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -485,25 +478,25 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (WRITECALLSUBRS
-  [LAMBDA NIL                                          (* ; "Edited 17-Mar-2021 11:05 by larry")
+  [LAMBDA NIL                                         (* ; "Edited 13-Sep-2021 15:19 by briggs")
     (CL:WITH-OPEN-FILE (*STANDARD-OUTPUT* "subrs.h" :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION)
-           (CL:FORMAT T "/* This file written from LLSUBRS on ~A                      */~&" (DATE))
-           (CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
-           (CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to  */~&")
-           (CL:FORMAT T "/* generate a new version.                                   */~&")
            (CL:FORMAT T "#ifndef SUBRS_H~&#define SUBRS_H 1~&")
-           (for X in \INITSUBRS do (CL:FORMAT T "#define sb_~A	0~O~&" (FIX-SUBR-NAME
-                                                                                   (CAR X))
+           (CL:FORMAT T "/* This file written from LLSUBRS on ~22A */~&" (DATE))
+           (CL:FORMAT T "/* Do not edit this file! Instead, edit the list \initsubrs */~&")
+           (CL:FORMAT T "/* on the lisp file LLSUBRS and then call WRITECALLSUBRS to */~&")
+           (CL:FORMAT T "/* generate a new version.                                  */~&")
+           (for X in \INITSUBRS do (CL:FORMAT T "#define sb_~42A 0~O~&"
+                                                      (FIX-SUBR-NAME (CAR X))
                                                       (CADR X)))
            (CL:FORMAT T "~&~&/* MISCN opcodes */~&")
-           (for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~A	0~O~&"
+           (for X in \MISCN-TABLE-LIST do (CL:FORMAT T "#define miscn_~39A 0~O~&"
                                                              (FIX-SUBR-NAME (CAR X))
                                                              (CADR X)))
            (CL:FORMAT T "~&~&/* Assigned USER SUBR numbers */~&")
-           (for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~A	0~O~&"
+           (for X in \USER-SUBR-LIST do (CL:FORMAT T "#define user_subr_~35A 0~O~&"
                                                            (FIX-SUBR-NAME (CAR X))
                                                            (CADR X)))
-           (CL:FORMAT T "#endif ~&"])
+           (CL:FORMAT T "#endif~&"])
 
 (FIX-SUBR-NAME
   [LAMBDA (NAME)                                         (* ; "Edited 13-Feb-89 16:17 by jds")
@@ -695,16 +688,16 @@ Copyright (c) 1983-1986, 1988-1992, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLSUBRS COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1988 1989 1990 1991 1992 
 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4322 9066 (MISCN-NUMBER 4332 . 4548) (\MISCN.UFN 4550 . 6807) (\UNDEFINED-MISCN-UFN 
-6809 . 7125) (MISCN-COLLECT 7127 . 7344) (\GET-MY-BF 7346 . 7558) (\INIT-MISCN-TABLE 7560 . 9064)) (
-10450 11739 (ADD-USER-SUBR 10450 . 11739)) (11740 13491 (\USER-SUBR-UFN 11750 . 12325) (
-\INIT-USER-SUBR-TABLE 12327 . 12792) (\UNDEFINED-USER-SUBR-UFN 12794 . 13137) (USER-SUBR-NUMBER 13139
- . 13361) (EQ-TO-CAR 13363 . 13424) (EQ-TO-CADR 13426 . 13489)) (17774 18423 (SUBRNUMBER 17784 . 18421
-)) (18484 20832 (WRITECALLSUBRS 18494 . 20075) (FIX-SUBR-NAME 20077 . 20830)) (21041 26945 (
-\MOREVMEMFILE 21051 . 21216) (\WRITEMAP 21218 . 21378) (\COPYSYS0SUBR 21380 . 21540) (\PUPLEVEL1STATE 
-21542 . 21706) (SHOWDISPLAY 21708 . 21997) (SETSCREENCOLOR 21999 . 22162) (\WRITERAWPBI 22164 . 22322)
- (\READRAWPBI 22324 . 22476) (RAID 22478 . 22633) (\LISPFINISH 22635 . 22793) (\GETPACKETBUFFER 22795
- . 22957) (\GATHERSTATS 22959 . 23117) (\DSPRATE 23119 . 23386) (DSPBOUT 23388 . 23542) (DISKPARTITION
- 23544 . 23839) (\CHECKBCPLPASSWORD 23841 . 24020) (SUSPEND-LISP 24022 . 24280) (UNIX-USERNAME 24282
- . 24804) (UNIX-FULLNAME 24806 . 25332) (UNIX-GETENV 25334 . 25931) (UNIX-GETPARM 25933 . 26943)))))
+  (FILEMAP (NIL (3639 8383 (MISCN-NUMBER 3649 . 3865) (\MISCN.UFN 3867 . 6124) (\UNDEFINED-MISCN-UFN 
+6126 . 6442) (MISCN-COLLECT 6444 . 6661) (\GET-MY-BF 6663 . 6875) (\INIT-MISCN-TABLE 6877 . 8381)) (
+9767 11056 (ADD-USER-SUBR 9767 . 11056)) (11057 12808 (\USER-SUBR-UFN 11067 . 11642) (
+\INIT-USER-SUBR-TABLE 11644 . 12109) (\UNDEFINED-USER-SUBR-UFN 12111 . 12454) (USER-SUBR-NUMBER 12456
+ . 12678) (EQ-TO-CAR 12680 . 12741) (EQ-TO-CADR 12743 . 12806)) (17091 17740 (SUBRNUMBER 17101 . 17738
+)) (17801 20104 (WRITECALLSUBRS 17811 . 19347) (FIX-SUBR-NAME 19349 . 20102)) (20313 26217 (
+\MOREVMEMFILE 20323 . 20488) (\WRITEMAP 20490 . 20650) (\COPYSYS0SUBR 20652 . 20812) (\PUPLEVEL1STATE 
+20814 . 20978) (SHOWDISPLAY 20980 . 21269) (SETSCREENCOLOR 21271 . 21434) (\WRITERAWPBI 21436 . 21594)
+ (\READRAWPBI 21596 . 21748) (RAID 21750 . 21905) (\LISPFINISH 21907 . 22065) (\GETPACKETBUFFER 22067
+ . 22229) (\GATHERSTATS 22231 . 22389) (\DSPRATE 22391 . 22658) (DSPBOUT 22660 . 22814) (DISKPARTITION
+ 22816 . 23111) (\CHECKBCPLPASSWORD 23113 . 23292) (SUSPEND-LISP 23294 . 23552) (UNIX-USERNAME 23554
+ . 24076) (UNIX-FULLNAME 24078 . 24604) (UNIX-GETENV 24606 . 25203) (UNIX-GETPARM 25205 . 26215)))))
 STOP
diff --git a/sources/LLSUBRS.LCOM b/sources/LLSUBRS.LCOM
index ccc6b7ec..23c14b23 100644
Binary files a/sources/LLSUBRS.LCOM and b/sources/LLSUBRS.LCOM differ
