diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL
index e512cf85..b9e62112 100644
--- a/sources/LOADUP-FULL
+++ b/sources/LOADUP-FULL
@@ -1,23 +1,26 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED "29-Apr-2021 22:31:24" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;2 4691   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (VARS LOADUP-FULLCOMS)
-                    (FNS LOADUP-FULL)
+(FILECREATED "15-Jan-2022 15:49:06" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4784   
 
-      previous date%: "26-Mar-2021 10:47:11" {DSK}<Users>larry>medley>SOURCES>LOADUP-FULL.;1)
+      :CHANGES-TO (FNS LOADUP-FULL)
+
+      :PREVIOUS-DATE "29-Apr-2021 22:31:24" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
 
 (RPAQQ LOADUP-FULLCOMS ((COMMANDS "cd" "pwd" "ls")
-                            (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
-                            (P (FIXMETA))))
+                        (FNS LOADFULLFONTS LOADUP-FULL FIXMETA)
+                        (P (FIXMETA))))
 
-(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))
+(DEFCOMMAND "cd" (DIR)
+   (/CNDIR DIR))
 
-(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))
+(DEFCOMMAND "pwd" ()
+   (DIRECTORYNAME T))
 
-(DEFCOMMAND "ls" (FIRST . REST) (DODIR (CONS FIRST REST)))
+(DEFCOMMAND "ls" (FIRST . REST)
+   (DODIR (CONS FIRST REST)))
 (DEFINEQ
 
 (LOADFULLFONTS
@@ -47,16 +50,18 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL
-  [LAMBDA (DOIT)                                        (* ; "Edited 29-Apr-2021 22:27 by rmk:")
-                                                          (* ; "Edited 14-May-2018 15:01 by kaplan")
-                                                            (* ; "Edited 28-Sep-2020 12:35 by rmk:")
-                                                            (* ; "Edited 21-Apr-2018 07:27 by rmk:")
+  [LAMBDA (DOIT)                                             (* ; "Edited 15-Jan-2022 15:48 by larry")
+                                                             (* ; "Edited 29-Apr-2021 22:27 by rmk:")
+                                                             (* ; 
+                                                             "Edited 14-May-2018 15:01 by kaplan")
+                                                             (* ; "Edited 28-Sep-2020 12:35 by rmk:")
+                                                             (* ; "Edited 21-Apr-2018 07:27 by rmk:")
                                                              (* ; "Edited 23-Feb-94 15:04 by bvm")
     (PROGN (SETQ MEDLEYDIR)
            (CNDIR (MEDLEYDIR)))
     (MEDLEY-INIT-VARS)
     (SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
-    (SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE)))
+    (SETQ MAKESYSNAME :MEDLEY)
     (DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
 
     (* ;; "BKSYSBUF stops page holding ")
@@ -67,16 +72,16 @@
            (DIRECTORYNAME T)
            T T)
     (SETQ DEFAULTFILETYPE 'BINARY)                           (* ; 
-                                      "These prevent bits from being lost due to lack of knowledge")
+                                        "These prevent bits from being lost due to lack of knowledge")
     (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
            DEFAULTFILETYPELIST)
     (push DEFAULTFILETYPELIST '(DRIBBLE . TEXT)
-           '(SH . TEXT)
-           '(TXT . TEXT)
-           '(TEXT . TEXT)
-           '(TEX . TEXT)
-           '(HTML . TEXT)
-           '(HTM . TEXT))
+          '(SH . TEXT)
+          '(TXT . TEXT)
+          '(TEXT . TEXT)
+          '(TEX . TEXT)
+          '(HTML . TEXT)
+          '(HTM . TEXT))
     (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")
     (LOADFULLFONTS)
     (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
@@ -100,6 +105,5 @@
 
 (FIXMETA)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (685 4653 (LOADFULLFONTS 695 . 2283) (LOADUP-FULL 2285 . 4407) (FIXMETA 4409 . 4651))))
-)
+  (FILEMAP (NIL (659 4746 (LOADFULLFONTS 669 . 2257) (LOADUP-FULL 2259 . 4500) (FIXMETA 4502 . 4744)))))
 STOP
diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM
index ba7cef6f..65abc841 100644
Binary files a/sources/LOADUP-FULL.LCOM and b/sources/LOADUP-FULL.LCOM differ
diff --git a/sources/LOADUP-LISP b/sources/LOADUP-LISP
index 59885445..ca92ee1c 100644
--- a/sources/LOADUP-LISP
+++ b/sources/LOADUP-LISP
@@ -1,27 +1,30 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-(FILECREATED "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 4983   
 
-      |changes| |to:|  (VARS LOADUP-LISPCOMS)
+(FILECREATED "15-Jan-2022 15:47:28" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5105   
 
-      |previous| |date:| " 1-Aug-2021 13:16:06" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :CHANGES-TO (FNS LOADUP-LISP)
+
+      :PREVIOUS-DATE "21-Aug-2021 18:03:35" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
 
 (RPAQQ LOADUP-LISPCOMS ((FNS LOADUP-LISP)
-                            (INITVARS (FILING.ENUMERATION.DEPTH 1))
-                            (FILES MEDLEYDIR)
-                            (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
-                                   SYSTEMINITVARS USERRECLST)))
+                        (INITVARS (FILING.ENUMERATION.DEPTH 1))
+                        (FILES MEDLEYDIR)
+                        (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
+                               SYSTEMINITVARS USERRECLST)))
 (DEFINEQ
 
 (LOADUP-LISP
-  (LAMBDA NIL                                          (* \; "Edited 29-Apr-2021 22:30 by rmk:")
+  (LAMBDA NIL                                                (* \; 
+                                                             "Edited 15-Jan-2022 15:47 by larry")
+                                                             (* \; "Edited 29-Apr-2021 22:30 by rmk:")
     (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")
-    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
+    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
     (FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
-                                                 (PRINTOUT T X " bootloaded" T)
-                                                 (SETQ SYSFILES (CONS X SYSFILES))))
+                                     (PRINTOUT T X " bootloaded" T)
+                                     (SETQ SYSFILES (CONS X SYSFILES))))
     (SETQ BOOTLOADEDFILES NIL)
     (IF (NOT (BOUNDP 'DIRECTORIES))
         THEN (SETQ DIRECTORIES LOADUPDIRECTORIES))
@@ -87,7 +90,7 @@
     (LOADUP '(TIME))
     (LOADUP '(BRKDWN))
     (LOADUP '(XCL-EXTRAS))                                   (* 
-                                                           "CMLPACKAGE pushes onto INSPECTMACROS")
+                                                             "CMLPACKAGE pushes onto INSPECTMACROS")
     (LOADUP '(CMLPACKAGE))
 
     (* |;;| "Puts ARGNAME properties on CL and XCL functions that IL:SMARTARGLIST can't hack. Keep this last so everything will be defined when it runs")
@@ -101,7 +104,7 @@
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
     (DRIBBLE)
-    (SETQ MAKESYSNAME ':LISP)))
+    (SETQ MAKESYSNAME :MEDLEY)))
 )
 
 (RPAQ? FILING.ENUMERATION.DEPTH 1)
@@ -112,5 +115,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (671 4761 (LOADUP-LISP 681 . 4759)))))
+  (FILEMAP (NIL (642 4883 (LOADUP-LISP 652 . 4881)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index aa1d1d5f..055a12c5 100644
Binary files a/sources/LOADUP-LISP.LCOM and b/sources/LOADUP-LISP.LCOM differ
