diff --git a/library/SYSEDIT b/library/SYSEDIT
index 0670ab15..32af010f 100644
--- a/library/SYSEDIT
+++ b/library/SYSEDIT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1238   
+(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2 1377   
 
       :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
 
 
 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -20,8 +20,10 @@
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK)
               (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'NEVER))
-        (P (RESETVARS ((CROSSCOMPILING T))
+              (COPYRIGHTFLG 'NEVER)
+              (MSRECORDTRANFLG T))
+        (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
+           (RESETVARS ((CROSSCOMPILING T))
                   (FILESLOAD (SOURCE)
                          EXPORTS.ALL])
 
@@ -43,6 +45,10 @@
 
 (RPAQQ COPYRIGHTFLG NEVER)
 
+(RPAQQ MSRECORDTRANFLG T)
+
+(MOVD? 'APPLY* 'SPREADAPPLY*X)
+
 (RESETVARS ((CROSSCOMPILING T))
            (FILESLOAD (SOURCE)
                   EXPORTS.ALL))
diff --git a/internal/ABC b/obsolete/internal/ABC
similarity index 100%
rename from internal/ABC
rename to obsolete/internal/ABC
diff --git a/internal/ABC.LCOM b/obsolete/internal/ABC.LCOM
similarity index 100%
rename from internal/ABC.LCOM
rename to obsolete/internal/ABC.LCOM
diff --git a/sources/FASL-SUPPORT b/sources/FASL-SUPPORT
index 611c3a25..6afe5521 100644
--- a/sources/FASL-SUPPORT
+++ b/sources/FASL-SUPPORT
@@ -1,21 +1,21 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL")
-(IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2| 1408   
+(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
 
-      IL:|changes| IL:|to:|  (IL:VARS IL:FASL-SUPPORTCOMS)
+(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2| 1257   
 
-      IL:|previous| IL:|date:| "15-Dec-86 16:23:56" 
-IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
+      :EDIT-BY "lmm"
 
+      :CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS)
+
+      :PREVIOUS-DATE "16-May-90 17:37:00" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
 
-; Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
 
 (IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS)
 
 (IL:RPAQQ IL:FASL-SUPPORTCOMS
           (
-           (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
+           (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
 
-           (IL:P (OR (GET 'IL:ABC 'IL:FILEDATES)
+           (IL:P (OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
                      (IL:FILESLOAD (IMPORT)
                             IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC)))
            (IL:DEFINE-TYPES FASL-OPS)
@@ -27,7 +27,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
 (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
 
 
-(OR (GET 'IL:ABC 'IL:FILEDATES)
+(OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
     (IL:FILESLOAD (IMPORT)
            IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC))
 
@@ -36,7 +36,6 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
 (IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
 
 (IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
-(IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
 (IL:DECLARE\: IL:DONTCOPY
   (IL:FILEMAP (NIL)))
 IL:STOP
diff --git a/sources/FASL-SUPPORT.LCOM b/sources/FASL-SUPPORT.LCOM
index 159da071..0e49a0e2 100644
--- a/sources/FASL-SUPPORT.LCOM
+++ b/sources/FASL-SUPPORT.LCOM
@@ -1 +1,33 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL")
(IL:FILECREATED "25-Jan-98 13:21:54" ("compiled on " IL:|{DSK}<lispcore>sources>FASL-SUPPORT.;1|) 
"30-Mar-95 20:33:04" IL:|bcompl'd| IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48")
(IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2| 1408 
IL:|changes| IL:|to:| (IL:VARS IL:FASL-SUPPORTCOMS) IL:|previous| IL:|date:| "15-Dec-86 16:23:56" 
IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
(IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS)
(IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR (
GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) 
IL:FASL-SUPPORT)))
(OR (GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
IL:MODARITH IL:LLGC))
(XCL:DEF-DEFINE-TYPE FASL-OPS "FASL file opcodes")
(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
(IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
NIL
\ No newline at end of file
+(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
+
+(IL:FILECREATED "29-Apr-2023 17:09:08" ("compiled on " 
+IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2|) "27-Apr-2023 05:47:56" "COMPILE-FILEd" IL:|in|
+ "Welcome to Fuller sysout 27-Apr-2023 ..." IL:|dated| "27-Apr-2023 05:53:17")
+(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2| 1257 
+:EDIT-BY "lmm" :CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS) :PREVIOUS-DATE "16-May-90 17:37:00" 
+IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
+(IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR (
+GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
+IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) 
+IL:FASL-SUPPORT)))
+(OR (GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR 
+IL:ADISPLAY IL:MODARITH IL:LLGC))
+(IL:SET-DOCUMENTATION (QUOTE FASL-OPS) (QUOTE IL:DEFINE-TYPES) (QUOTE "FASL file opcodes"))
+(IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (FASL-OPS XCL::X (IL:P IL:* (
+XCL::%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE FASL-OPS) (QUOTE XCL::X))))) IL:PRETTYDEFMACROS :TEST (QUOTE
+ EQUAL)))
+(IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (CHANGEDFASL-OPSLST FASL-OPS "FASL file opcodes")) 
+IL:PRETTYTYPELST :TEST (QUOTE EQUAL)))
+(PROCLAIM (QUOTE (XCL:GLOBAL CHANGEDFASL-OPSLST)))
+(OR (BOUNDP (QUOTE CHANGEDFASL-OPSLST)) (SETQ CHANGEDFASL-OPSLST NIL))
+(COND ((NOT (GETHASH (QUOTE FASL-OPS) XCL:*DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE FASL-OPS) 
+XCL:*DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50))))
+(IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE FASL-OPS) IL:FILEPKGTYPES))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:GETDEF) (QUOTE XCL::%DEFINE-TYPE-GETDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:DELDEF) (QUOTE XCL::%DEFINE-TYPE-DELDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:PUTDEF) (QUOTE XCL::%DEFINE-TYPE-PUTDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEGETDEF) (QUOTE XCL::%DEFINE-TYPE-FILEGETDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL))
+(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
+(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
+NIL
