diff --git a/greetfiles/MEDLEYDIR-INIT b/greetfiles/MEDLEYDIR-INIT
index f620b2bb..96b1f665 100644
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -1,11 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "22-Nov-2022 20:59:24" {DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;6 2860   
+(FILECREATED "13-Apr-2023 09:44:06" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;6 2925   
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS MEDLEYDIR-INITCOMS)
 
-      :PREVIOUS-DATE "22-Nov-2022 20:42:43" 
-{DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;5)
+      :PREVIOUS-DATE "10-Apr-2023 11:58:07" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;5
+)
 
 
 (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -22,18 +24,19 @@
 
               (DWIMWAIT 180)
               (HELPDEPTH 4)
-              (HELPTIME 10)
+              (HELPTIME 1)
               (FILING.ENUMERATION.DEPTH 1)
               [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                            (UNIX-GETENV "HOME"]
               [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                 (,LOGINDIR "INIT"]
+              (COPYRIGHTFLG 'NEVER)
               (COPYRIGHTSRESERVED NIL)
               (AUTOBACKTRACEFLG 'ALWAYS)
               (MAXLEVEL 30000)
               (MAXLOOP 30000))
         (FNS INTERLISPMODE)
-        (ALISTS (FONTDEFS LARGER))))
+        (ALISTS (FONTDEFS))))
 
 (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                    "")
@@ -49,7 +52,7 @@
 
 (RPAQQ HELPDEPTH 4)
 
-(RPAQQ HELPTIME 10)
+(RPAQQ HELPTIME 1)
 
 (RPAQQ FILING.ENUMERATION.DEPTH 1)
 
@@ -59,6 +62,8 @@
 (RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
                        (,LOGINDIR "INIT")))
 
+(RPAQQ COPYRIGHTFLG NEVER)
+
 (RPAQQ COPYRIGHTSRESERVED NIL)
 
 (RPAQQ AUTOBACKTRACEFLG ALWAYS)
@@ -84,5 +89,5 @@
 
 (ADDTOVAR FONTDEFS )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1986 2811 (INTERLISPMODE 1996 . 2809)))))
+  (FILEMAP (NIL (2051 2876 (INTERLISPMODE 2061 . 2874)))))
 STOP
diff --git a/greetfiles/MEDLEYDIR-INIT.LCOM b/greetfiles/MEDLEYDIR-INIT.LCOM
index 75533533..0a745935 100644
Binary files a/greetfiles/MEDLEYDIR-INIT.LCOM and b/greetfiles/MEDLEYDIR-INIT.LCOM differ
diff --git a/internal/MAINTAIN.TXT b/internal/MAINTAIN.TXT
new file mode 100644
index 00000000..aa6ccee7
--- /dev/null
+++ b/internal/MAINTAIN.TXT
@@ -0,0 +1,2 @@
+MAINTAIN -- Network access to the PUP "Grapevine" server, which did
+            email, distribution lists. Written ~1985 mainly by Bill van Melle.
diff --git a/library/SYSEDIT b/library/SYSEDIT
index cb661c8c..0670ab15 100644
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,16 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Jun-2022 18:22:01" {DSK}<home>larry>medley>library>SYSEDIT.;2 1373   
+(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238   
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "28-Sep-2021 10:16:44" {DSK}<home>larry>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
 
 
-(* ; "
-Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT SYSEDITCOMS)
 
 (RPAQQ SYSEDITCOMS
@@ -22,7 +20,7 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK)
               (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'PRESERVE))
+              (COPYRIGHTFLG 'NEVER))
         (P (RESETVARS ((CROSSCOMPILING T))
                   (FILESLOAD (SOURCE)
                          EXPORTS.ALL])
@@ -43,12 +41,11 @@ Copyright (c) 1984, 1987, 1990, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ *REPLACE-OLD-EDIT-DATES* NIL)
 
-(RPAQQ COPYRIGHTFLG PRESERVE)
+(RPAQQ COPYRIGHTFLG NEVER)
 
 (RESETVARS ((CROSSCOMPILING T))
            (FILESLOAD (SOURCE)
                   EXPORTS.ALL))
-(PUTPROPS SYSEDIT COPYRIGHT ("Venue & Xerox Corporation" 1984 1987 1990 2021))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP
diff --git a/sources/DMISC b/sources/DMISC
index ebf93839..3d263a27 100644
--- a/sources/DMISC
+++ b/sources/DMISC
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Jan-2022 19:08:15" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;3 45512  
+(FILECREATED " 8-Apr-2023 13:56:13" {DSK}<home>larry>il>medley>sources>DMISC.;2 45464  
 
-      :CHANGES-TO (FNS FLASHWINDOW)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "16-May-90 15:53:57" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>DMISC.;1)
+      :CHANGES-TO (FNS RINGBELLS)
+
+      :PREVIOUS-DATE " 6-Jan-2022 19:08:15" {DSK}<home>larry>il>medley>sources>DMISC.;1)
 
 
 (* ; "
@@ -216,16 +217,14 @@ with the terms of said license.
 (DEFINEQ
 
 (RINGBELLS
-  [LAMBDA (N)                                         (* ; "Edited 10-May-88 23:01 by MASINTER")
+  [LAMBDA (N)                                                (* ; "Edited  8-Apr-2023 13:30 by lmm")
+                                                          (* ; "Edited 10-May-88 23:01 by MASINTER")
     (DECLARE (GLOBALVARS RINGBELLS.L1 RINGBELLS.L2))
     (OR (FIXP N)
         (SETQ N 1))
-    (SELECTC \MACHINETYPE
-        ((LIST \DAYBREAK \DANDELION \MAIKO) 
-             (to N do (PLAYTUNE RINGBELLS.L1)
-                             (FLASHWINDOW NIL NIL 100)
-                             (PLAYTUNE RINGBELLS.L2)))
-        (FLASHWINDOW NIL N])
+    (to N do (PLAYTUNE RINGBELLS.L1)
+             (FLASHWINDOW NIL NIL 100)
+             (PLAYTUNE RINGBELLS.L2])
 
 (FLASHWINDOW
   [LAMBDA (WIN? N FLASHINTERVAL SHADE)                       (* ; "Edited  6-Jan-2022 19:08 by rmk")
@@ -951,22 +950,22 @@ with the terms of said license.
 (PUTPROPS DMISC COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1987 1988 1989 1990)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4747 5450 (BACKSPACEDEL 4757 . 5448)) (5545 5978 (PERIODICALLYRECLAIM 5555 . 5976)) (
-6208 7899 (\DIRTYBACKGROUND 6218 . 6640) (\SAVEVMBACKGROUND 6642 . 7426) (COPYVM 7428 . 7897)) (8320 
-9519 (SETTIME 8330 . 9517)) (9520 13551 (RINGBELLS 9530 . 10023) (FLASHWINDOW 10025 . 11953) (PLAYTUNE
- 11955 . 13549)) (13813 19345 (DISPLAYDOWN 13823 . 14211) (SETDISPLAYHEIGHT 14213 . 17013) (VIDEORATE 
-17015 . 19343)) (19769 20490 (DOAROUNDEXITFORMS 19779 . 20488)) (20693 22408 (REALMEMORYSIZE 20703 . 
-20861) (LISPVERSION 20863 . 21016) (MICROCODEVERSION 21018 . 21176) (BCPLVERSION 21178 . 21331) (
-REQUIREVERSION 21333 . 22406)) (22445 27023 (APROPOS 22455 . 26471) (APROPRINT 26473 . 27021)) (27049 
-30957 (READPRINTERPORT 27059 . 27200) (WRITEPRINTERPORT 27202 . 27357) (\READPRINTERPORT.UFN 27359 . 
-27548) (\WRITEPRINTERPORT.UFN 27550 . 27748) (\MISC1.UFN 27750 . 27903) (\MISC2.UFN 27905 . 28143) (
-\MISC3.UFN 28145 . 28878) (\MISC4.UFN 28880 . 29430) (\MISC5.UFN 29432 . 29585) (\MISC6.UFN 29587 . 
-29837) (\MISC7.UFN 29839 . 30324) (\MISC8.UFN 30326 . 30627) (\MISC10.UFN 30629 . 30955)) (31011 38460
- (\BLKFDIFF.UFN 31021 . 31586) (\BLKFPLUS.UFN 31588 . 32160) (\BLKFTIMES.UFN 32162 . 32737) (
-\BLKSEP.UFN 32739 . 33870) (\BLKPERM.UFN 33872 . 34341) (\BLKEXPONENT.UFN 34343 . 34753) (
-\BLKFLOATP2COMP.UFN 34755 . 35339) (\BLKSMALLP2FLOAT.UFN 35341 . 35700) (\BLKMAG.UFN 35702 . 36353) (
-\FLOATTOBYTE.UFN 36355 . 36934) (\BLKFMAX.UFN 36936 . 37328) (\BLKFMIN.UFN 37330 . 37719) (
-\BLKFABSMAX.UFN 37721 . 38090) (\BLKFABSMIN.UFN 38092 . 38458)) (38500 40318 (\P-MISC2.UFN 38510 . 
-38751) (\LINES-EQUAL-P 38753 . 39137) (\GET-NEXT-RUN 39139 . 40316)) (40319 44498 (IBLT1 40329 . 42331
-) (IBLT2 42333 . 44496)))))
+  (FILEMAP (NIL (4732 5435 (BACKSPACEDEL 4742 . 5433)) (5530 5963 (PERIODICALLYRECLAIM 5540 . 5961)) (
+6193 7884 (\DIRTYBACKGROUND 6203 . 6625) (\SAVEVMBACKGROUND 6627 . 7411) (COPYVM 7413 . 7882)) (8305 
+9504 (SETTIME 8315 . 9502)) (9505 13503 (RINGBELLS 9515 . 9975) (FLASHWINDOW 9977 . 11905) (PLAYTUNE 
+11907 . 13501)) (13765 19297 (DISPLAYDOWN 13775 . 14163) (SETDISPLAYHEIGHT 14165 . 16965) (VIDEORATE 
+16967 . 19295)) (19721 20442 (DOAROUNDEXITFORMS 19731 . 20440)) (20645 22360 (REALMEMORYSIZE 20655 . 
+20813) (LISPVERSION 20815 . 20968) (MICROCODEVERSION 20970 . 21128) (BCPLVERSION 21130 . 21283) (
+REQUIREVERSION 21285 . 22358)) (22397 26975 (APROPOS 22407 . 26423) (APROPRINT 26425 . 26973)) (27001 
+30909 (READPRINTERPORT 27011 . 27152) (WRITEPRINTERPORT 27154 . 27309) (\READPRINTERPORT.UFN 27311 . 
+27500) (\WRITEPRINTERPORT.UFN 27502 . 27700) (\MISC1.UFN 27702 . 27855) (\MISC2.UFN 27857 . 28095) (
+\MISC3.UFN 28097 . 28830) (\MISC4.UFN 28832 . 29382) (\MISC5.UFN 29384 . 29537) (\MISC6.UFN 29539 . 
+29789) (\MISC7.UFN 29791 . 30276) (\MISC8.UFN 30278 . 30579) (\MISC10.UFN 30581 . 30907)) (30963 38412
+ (\BLKFDIFF.UFN 30973 . 31538) (\BLKFPLUS.UFN 31540 . 32112) (\BLKFTIMES.UFN 32114 . 32689) (
+\BLKSEP.UFN 32691 . 33822) (\BLKPERM.UFN 33824 . 34293) (\BLKEXPONENT.UFN 34295 . 34705) (
+\BLKFLOATP2COMP.UFN 34707 . 35291) (\BLKSMALLP2FLOAT.UFN 35293 . 35652) (\BLKMAG.UFN 35654 . 36305) (
+\FLOATTOBYTE.UFN 36307 . 36886) (\BLKFMAX.UFN 36888 . 37280) (\BLKFMIN.UFN 37282 . 37671) (
+\BLKFABSMAX.UFN 37673 . 38042) (\BLKFABSMIN.UFN 38044 . 38410)) (38452 40270 (\P-MISC2.UFN 38462 . 
+38703) (\LINES-EQUAL-P 38705 . 39089) (\GET-NEXT-RUN 39091 . 40268)) (40271 44450 (IBLT1 40281 . 42283
+) (IBLT2 42285 . 44448)))))
 STOP
diff --git a/sources/DMISC.LCOM b/sources/DMISC.LCOM
index dc279688..dd5ff41c 100644
Binary files a/sources/DMISC.LCOM and b/sources/DMISC.LCOM differ
