diff --git a/loadups/full.dribble b/loadups/full.dribble
new file mode 100644
index 00000000..bea5b408
--- /dev/null
+++ b/loadups/full.dribble
@@ -0,0 +1 @@
+
Full loadup started at 28-Feb-2021 19:48:57 while connected to {DSK}


{DSK}<home>larry>medley>library>POSTSCRIPTSTREAM.LCOM;1
compiled on 14-May-2018 10:53:32
File created 14-May-2018 10:52:48
POSTSCRIPTSTREAMCOMS
Loading FULL fonts...
  Loading CLASSIC 8 10 12 
  Loading MODERN 8 10 12 
  Loading TERMINAL 8 10 12 
  Loading postscript fonts
FULL fonts loaded

{DSK}<home>larry>medley>library>CHAT.LCOM;1
compiled on 25-Oct-93 12:23:25
File created 20-Jan-93 13:46:52
CHATCOMS

{DSK}<home>larry>medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS

{DSK}<home>larry>medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created  4-Jul-90 02:21:01
CHATTERMINALCOMS

{DSK}<home>larry>medley>library>PRESS.LCOM;1
compiled on  5-Feb-2021 22:18:09
File created  5-Feb-2021 22:18:06
PRESSCOMS

{DSK}<home>larry>medley>sources>INTERPRESS.LCOM;7
compiled on 16-Apr-2018 21:56:38
File created 16-Apr-2018 21:56:38
INTERPRESSCOMS

{DSK}<home>larry>medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS

{DSK}<home>larry>medley>library>TEDITDCL.LCOM;1
compiled on 18-May-2018 09:17:04
File created 25-Aug-94 10:53:00
TEDITDCLCOMS

{DSK}<home>larry>medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS

{DSK}<home>larry>medley>library>TEXTOFD.LCOM;1
compiled on 11-Feb-2001 12:06:43
File created 11-Feb-2001 12:06:42
TEXTOFDCOMS

{DSK}<home>larry>medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS

{DSK}<home>larry>medley>library>TEDITSCREEN.LCOM;1
compiled on 18-May-2018 09:18:38
File created 25-Aug-94 13:26:23
TEDITSCREENCOMS

{DSK}<home>larry>medley>library>TEDITABBREV.LCOM;1
compiled on  6-Aug-2020 14:52:14
File created  6-Aug-2020 14:52:14
TEDITABBREVCOMS

{DSK}<home>larry>medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS

{DSK}<home>larry>medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created  6-May-2018 17:34:44
TEDITFINDCOMS

{DSK}<home>larry>medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS

{DSK}<home>larry>medley>library>TEDITFILE.LCOM;1
compiled on 18-May-2018 09:17:06
File created 19-May-2001 11:45:53
TEDITFILECOMS

{DSK}<home>larry>medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS

{DSK}<home>larry>medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS

{DSK}<home>larry>medley>library>IMAGEOBJ.LCOM;1
compiled on  8-Feb-97 11:26:32
File created  7-Dec-95 13:21:56
IMAGEOBJCOMS

{DSK}<home>larry>medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS

{DSK}<home>larry>medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS

{DSK}<home>larry>medley>library>TFBRAVO.LCOM;1
compiled on 19-Apr-2018 12:19:55
File created 19-Apr-2018 12:19:55
TFBRAVOCOMS

{DSK}<home>larry>medley>library>TEDITHCPY.LCOM;1
compiled on 18-May-2018 09:17:32
File created 25-Aug-94 10:54:07
TEDITHCPYCOMS

{DSK}<home>larry>medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS

{DSK}<home>larry>medley>library>TEDITMENU.LCOM;1
compiled on  4-Jan-2021 13:48:55
File created  4-Jan-2021 13:48:43
TEDITMENUCOMS

{DSK}<home>larry>medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created  6-May-2018 17:15:13
TEDITFNKEYSCOMS

{DSK}<home>larry>medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created  8-Oct-92 16:50:21
HRULECOMS

{DSK}<home>larry>medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS

{DSK}<home>larry>medley>library>FILEBROWSER.LCOM;1
compiled on 27-Feb-2021 20:08:26
File created 27-Feb-2021 20:08:26

{DSK}<home>larry>medley>library>TABLEBROWSER.LCOM;1
compiled on 20-Feb-2021 23:04:42
File created 20-Feb-2021 23:02:39
TABLEBROWSERCOMS

{DSK}<home>larry>medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created  1-May-92 16:49:39
THINFILESCOMS

{DSK}<home>larry>medley>library>GRAPHER.LCOM;1
compiled on 14-May-2018 10:24:43
File created 14-May-2018 10:24:38
GRAPHERCOMS

{DSK}<home>larry>medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS

{DSK}<home>larry>medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.


{DSK}<home>larry>medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.


{DSK}<home>larry>medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31


{DSK}<home>larry>medley>library>COPYFILES.LCOM;1
compiled on  6-Apr-2018 21:14:29
File created  6-Apr-2018 21:14:29
COPYFILESCOMS

{DSK}<home>larry>medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSANALYZE.;5
Source file created Wednesday, 15 August 1990, 13:11:23.
FASL file created Sunday, 28 February 1993, 23:16:46.


{DSK}<home>larry>medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.


{DSK}<home>larry>medley>library>MASTERSCOPE.DFASL;4
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4
Source file created Saturday, 19 September 2020, 9:54:51.
FASL file created Saturday, 19 September 2020, 9:54:51.


{DSK}<home>larry>medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.


{DSK}<home>larry>medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.


{DSK}<home>larry>medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS

{DSK}<home>larry>medley>library>UNICODE.LCOM;18
compiled on  1-Feb-2021 18:00:30
File created  1-Feb-2021 18:00:30
UNICODECOMS

{DSK}<home>larry>medley>lispusers>ISO8859IO.LCOM;1
compiled on  9-Mar-99 18:20:33
File created  9-Mar-99 18:20:26
ISO8859IOCOMS

{DSK}<home>larry>medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS

{DSK}<home>larry>medley>lispusers>DINFO.LCOM;1
compiled on 14-Feb-2021 23:11:53
File created 14-Feb-2021 23:11:36
DINFOCOMS

{DSK}<home>larry>medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS

Reading IRM graph...OK.
{DSK}<home>larry>medley>library>CLIPBOARD.LCOM;1
compiled on 23-Feb-2021 22:13:09
File created 23-Feb-2021 22:13:09
CLIPBOARDCOMS

{DSK}<home>larry>medley>lispusers>MODERNIZE.LCOM;1
compiled on 27-Feb-2021 18:14:36
File created 27-Feb-2021 18:14:36
MODERNIZECOMS

{DSK}<home>larry>medley>lispusers>PRETTYFILEINDEX.LCOM;3
compiled on 28-Jun-99 17:13:58
File created 28-Jun-99 17:13:51
PRETTYFILEINDEXCOMS

{DSK}<home>larry>medley>lispusers>WHO-LINE.LCOM;1
compiled on 19-Feb-2001 11:57:34
File created 19-Feb-2001 11:53:32
WHO-LINECOMS

{DSK}<home>larry>medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS
Creating FULL sysout on {DSK}<home>larry>medley>loadups>full.sysout
\ No newline at end of file
diff --git a/loadups/full.sysout b/loadups/full.sysout
index c237f85f..09ee990a 100644
Binary files a/loadups/full.sysout and b/loadups/full.sysout differ
diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL
index 4817a4d3..cc62c5e0 100644
--- a/sources/LOADUP-FULL
+++ b/sources/LOADUP-FULL
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "22-Feb-2021 16:56:12" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;2
 8011   

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: " 6-Feb-2021 15:41:34" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;1)


(PRETTYCOMPRINT LOADUP-FULLCOMS)

(RPAQQ LOADUP-FULLCOMS

       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA)
        (P (FIXMETA))
        (VARS (WRITEFULLSYSOUTFLAG T))
        (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
        (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT)))
        (PROP FILETYPE)))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA (ROOTDIRECTORY)                                    (* ; 

                                                           "Edited 11-Aug-2020 17:53 by rmk:")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T "Loading FULL fonts..." T)
    (SETQ DISPLAYFONTDIRECTORIES (LIST (PACK* ROOTDIRECTORY "/fonts/displayfonts")
                                       (PACK* ROOTDIRECTORY "/fonts/altofonts")))
                                                             (* (SETQ INTERPRESSFONTDIRECTORIES

                                                           (CONS (PACK* ROOTDIRECTORY 

                                                           "/fonts/ipfonts"))))

    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
    (SETQ POSTSCRIPTFONTDIRECTORIES (CONS (PACK* ROOTDIRECTORY "/fonts/postscriptfonts")))
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 

                  "Don't let the font loader substitute just because a server went catatonic on us")

               (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
                  do
 (PRINTOUT T "  Loading " FAMILY " ")
                        [for
 SIZE in
 '(8 10 12)
                           do
 (PRINTOUT T SIZE " ")
                                 (for
 FACE in
 '(MRR BRR MIR)
                                    do
 

                                          (* ;; "No need for Interpress")

                                                             (* (NLSETQ (FONTCREATE FAMILY SIZE 

                                                           FACE NIL (QUOTE INTERPRESS) NIL 0)))

                                          (for
 CSET
                                             in
 '(0 33 34 35 238 239 241)
                                             do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
                                                                   'DISPLAY NIL CSET]
                        (PRINTOUT T T))
               (PRINTOUT T "  Loading postscript fonts" T)
               (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                                                ">c0>*.*")) do
 (PSCFONT.READFONT F))
               (PRINTOUT T "FULL fonts loaded" T])

(MAKEFULLSYSOUT

  [LAMBDA NIL                                                (* ; 

                                                           "Edited  5-Dec-2020 20:07 by larry")

                                                             (* ; 

                                                           "Edited 14-May-2018 15:01 by kaplan")

                                                             (* ; 

                                                           "Edited 22-Feb-2021 16:56 by rmk:")

                                                             (* ; "Edited 17-Apr-2018 08:41 by ")

                                                             (* ; 

                                                           "Edited 21-Apr-2018 07:27 by rmk:")

                                                             (* ; "Edited 23-Feb-94 15:04 by bvm")

    (CLRPROMPT)
    (CNDIR (UNIX-GETENV "LOADUPDIR"))
    (LET ((ROOTDIRECTORY (MEDLEYDIR)))
         (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups")
                                      "xfull35.sysout"))
         (DRIBBLE (PACKFILENAME 'EXTENSION 'DRIBBLE 'BODY MAKESYSFILENAME))

         (* ;; "BKSYSBUF stops page holding ")


         (PRINTOUT T T "Full loadup started at " (DATE)
                " while connected to "
                (DIRECTORYNAME T)
                T T)
         (BKSYSBUF " ")
         (SETQ DEFAULTFILETYPE 'BINARY)                      (* ; 

                                      "These prevent bits from being lost due to lack of knowledge")

         (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
                DEFAULTFILETYPELIST)                         (* (SETQ *UPPER-CASE-FILE-NAMES* NIL))

         (SETQ MAKESYSNAME :MEDLEY3.5)
         (push
 DEFAULTFILETYPELIST '(TXT . TEXT)
                '(TEXT . TEXT)
                '(TEX . TEXT)
                '(HTML . TEXT)
                '(HTM . TEXT))
         (MEDLEY-INIT-VARS)
         (SETQ LOADUPDIRECTORIES DIRECTORIES)
         (LOADUP '(POSTSCRIPTSTREAM))                        (* ; " to get PSCFONT.READFONT")

         (LOADFULLFONTS
 (MEDLEYDIR))
         (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
         (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
         (LOADUP '(CHAT TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES GRAPHER SPY
                        WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE ISO8859IO
                        HELPSYS DINFO CLIPBOARD MODERNIZE))
         (FILESLOAD (SYSLOAD)
                PRETTYFILEINDEX WHO-LINE)
         (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP))

         (* ;; "Turn off who-line until after the user has greeted")


         (CL:WHEN (WINDOWP *WHO-LINE*)
                (CLOSEW *WHO-LINE*))
         [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS]
         (FILESLOAD (SYSLOAD)
                UNIXCOMM UNIXCHAT UNIXTELNET)
         (FILESLOAD (SYSLOAD)
                SETDEFAULTPRINTER)
         (FILESLOAD (SYSLOAD)
                LOADPATCHES)
         (\DAYTIME0 \LASTUSERACTION)
         (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
         (for
 TYPE in
 FILEPKTYPES do
 (FILEPKGCHANGES TYPE NIL))
         (SETTOPVAL 'INITIALS NIL)
         (PROMPTPRINT "About to end loadup")
         (PRINTOUT T "About to end loadup" T)

         (* ;; "From SYNCLISPFILES")


         (ENDLOADUP)
         (COND
            ((WINDOWP LOGOW)
             (CLOSEW LOGOW)))
         (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS)
                AFTERMAKESYSFORMS)
         (push
 AFTERMAKESYSFORMS '(CLRPROMPT)
                '(MEDLEY-INIT-VARS))

         (* ;; "Set up for making the sysout, if we made it this far.")


         (CL:WHEN WRITEFULLSYSOUTFLAG
             (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T)
             (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " (MEDLEYVERSION)
                              " Full Sysout%")")))
         (DRIBBLE])

(FIXMETA

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 25-Jun-2017 17:12 by rmk:")

    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA
)

(RPAQQ WRITEFULLSYSOUTFLAG
 T)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(MAKEFULLSYSOUT
)
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (885 7750 (LOADFULLFONTS 895 . 3399) (MAKEFULLSYSOUT 3401 . 7439) (FIXMETA 7441 . 7748))
)))
STOP
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "28-Feb-2021 19:48:05" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2
 5934   

      changes to%:  (FNS MAKEFULLSYSOUT)

      previous date%: "14-Feb-2021 10:08:45" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)


(PRETTYCOMPRINT LOADUP-FULLCOMS)

(RPAQQ LOADUP-FULLCOMS

       ((COMMANDS "cd" "pwd" "ls")
        (FNS LOADFULLFONTS MAKEFULLSYSOUT FIXMETA)
        (P (FIXMETA))
        (GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
        (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAKEFULLSYSOUT T)))
        (PROP FILETYPE)))

(DEFCOMMAND "cd" (DIR) (/CNDIR DIR))

(DEFCOMMAND "pwd" NIL (DIRECTORYNAME T))

(DEFCOMMAND "ls" (FIRST
 . REST) (DODIR (CONS FIRST REST)))
(DEFINEQ

(LOADFULLFONTS

  [LAMBDA NIL
                                          (* ; "Edited 13-Feb-2021 22:51 by larry")


    (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")


    (PRINTOUT T "Loading FULL fonts..." T)
    (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT STRIKE))
    (SETQ *POSTSCRIPT-FILE-TYPE* 'TEXT)
    (RESETVARS ((MISSINGDISPLAYFONTCOERCIONS NIL)
                (MISSINGCHARSETDISPLAYFONTCOERCIONS NIL))    (* ; 

                  "Don't let the font loader substitute just because a server went catatonic on us")

               (for
 FAMILY in
 '(CLASSIC MODERN TERMINAL)
                  do
 (PRINTOUT T "  Loading " FAMILY " ")
                        [for
 SIZE in
 '(8 10 12)
                           do
 (PRINTOUT T SIZE " ")
                                 (for
 FACE in
 '(MRR BRR MIR)
                                    do
 (for
 CSET
                                              in
 '(0 33 34 35 238 239 241)
                                              do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE NIL
                                                                    'DISPLAY NIL CSET]
                        (PRINTOUT T T))
               (PRINTOUT T "  Loading postscript fonts" T)
               (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
                                                ">c0>*.*")) do
 (PSCFONT.READFONT F))
               (PRINTOUT T "FULL fonts loaded" T])

(MAKEFULLSYSOUT

  [LAMBDA (DOIT)
                                       (* ; "Edited 28-Feb-2021 19:47 by larry")


                                                          (* ; "Edited 14-May-2018 15:01 by kaplan")


                                                            (* ; "Edited 28-Sep-2020 12:35 by rmk:")


                                                             (* ; "Edited 17-Apr-2018 08:41 by ")


                                                            (* ; "Edited 21-Apr-2018 07:27 by rmk:")


                                                             (* ; "Edited 23-Feb-94 15:04 by bvm")

    (CLRPROMPT)
    (SETQ MAKESYSFILENAME (CONCAT (MEDLEYDIR "loadups")
                                 "full.sysout"))
    (SETQ MAKESYSNAME (CONCAT "Medley from Interlisp.org of " (DATE)))
    (DRIBBLE (PACKFILENAME 'EXTENSION "dribble" 'BODY MAKESYSFILENAME))

    (* ;; "BKSYSBUF stops page holding ")


    (PRINTOUT T T "Full loadup started at " (DATE)
           " while connected to "
           (DIRECTORYNAME T)
           T T)
    (BKSYSBUF " ")
    (SETQ DEFAULTFILETYPE 'BINARY)                           (* ; 

                                      "These prevent bits from being lost due to lack of knowledge")

    (DREMOVE (ASSOC NIL DEFAULTFILETYPELIST)
           DEFAULTFILETYPELIST)
    (push
 DEFAULTFILETYPELIST '(TXT . TEXT)
           '(TEXT . TEXT)
           '(TEX . TEXT)
           '(HTML . TEXT)
           '(HTM . TEXT))
    (MEDLEY-INIT-VARS)
    (SETQ LOADUPDIRECTORIES DIRECTORIES)
    (LOADUP '(POSTSCRIPTSTREAM))                             (* ; " to get PSCFONT.READFONT")

    (LOADFULLFONTS
)
    (LISTPUT IDLE.PROFILE 'TIMEOUT 0)
    (SETQQ *DEFAULT-CLEANUP-COMPILER* BCOMPL)
    (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDITCHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES
                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT UNICODE 
                   ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE PRETTYFILEINDEX WHO-LINE UNIXCOMM 
                   UNIXCHAT))
    (SETQ *WHO-LINE-ANCHOR* '(:CENTER :TOP))

    (* ;; "Turn off who-line until after the user has greeted")


    (CL:WHEN (WINDOWP *WHO-LINE*)
           (CLOSEW *WHO-LINE*))
    [SETQ POSTGREETFORMS (APPEND POSTGREETFORMS '((INSTALL-WHO-LINE-OPTIONS]
    (LISTPUT IDLE.PROFILE 'TIMEOUT 20)
    (SETTOPVAL 'INITIALS NIL)
    (ENDLOADUP)
    (COND
       ((WINDOWP LOGOW)
        (CLOSEW LOGOW)))
    (DREMOVE (ASSOC 'LOGOW AFTERMAKESYSFORMS)
           AFTERMAKESYSFORMS)
    (push
 AFTERMAKESYSFORMS '(CLRPROMPT)
           '(MEDLEY-INIT-VARS))

    (* ;; "Set up for making the sysout, if we made it this far.")


    (CL:WHEN DOIT
        (PRINTOUT T "Creating FULL sysout on " MAKESYSFILENAME T)
        (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley " " Full Sysout%")" 
                         "
(IL:LOGOUT T)")))
    (DRIBBLE])

(FIXMETA

  [LAMBDA NIL                                                (* ; 

                                                           "Edited 25-Jun-2017 17:12 by rmk:")

    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP)
           \CURRENTKEYACTION)
    (KEYACTION 'BLANK-TOP '(METADOWN . METAUP])
)

(FIXMETA
)
(DECLARE%: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS MISSINGDISPLAYFONTCOERCIONS MISSINGCHARSETDISPLAYFONTCOERCIONS)
)
(DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY 

(MAKEFULLSYSOUT
 T)
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (802 5706 (LOADFULLFONTS 812 . 2400) (MAKEFULLSYSOUT 2402 . 5395) (FIXMETA 5397 . 5704))
)))
STOP
\ No newline at end of file
diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM
index 1599f26b..524c7113 100644
Binary files a/sources/LOADUP-FULL.LCOM and b/sources/LOADUP-FULL.LCOM differ