diff --git a/library/UNICODE b/library/UNICODE
index b49f8414..0c64c4a6 100644
--- a/library/UNICODE
+++ b/library/UNICODE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "28-Jun-2022 00:02:58" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNICODE.;195 64708  
+(FILECREATED "13-Jul-2022 11:38:18" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;196 64439  
 
-      :CHANGES-TO (FNS NUTF8CODEBYTES)
+      :CHANGES-TO (VARS UNICODECOMS)
 
-      :PREVIOUS-DATE "30-Sep-2021 16:03:18" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNICODE.;194)
+      :PREVIOUS-DATE "28-Jun-2022 00:02:58" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;195)
 
 
 (PRETTYCOMPRINT UNICODECOMS)
@@ -25,7 +25,7 @@
               (FNS XCCS-UTF8-AFTER-OPEN)
               (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNICODE.TRANSLATE))
               (FNS XTOUCODE UTOXCODE))
-        [COMS 
+        (COMS 
               (* ;; "Unicode mapping files")
 
               (FNS READ-UNICODE-MAPPING-FILENAMES READ-UNICODE-MAPPING WRITE-UNICODE-MAPPING 
@@ -40,9 +40,7 @@
                                                       (UNDEFINEDCODE (CL:PARSE-INTEGER "FFFF" :RADIX
                                                                             16]
               (VARS UNICODE-MAPPING-HEADER)
-              (INITVARS (UNICODEDIRECTORIES NIL))
-              (P (PUSHNEW UNICODEDIRECTORIES (PACK* (UNIX-GETENV "MEDLEYDIR")
-                                                    '/unicode/xerox/]
+              (INITVARS (UNICODEDIRECTORIES NIL)))
         (COMS 
               (* ;; "Set up translation tables for UTF8 and UTFBE external formats")
 
@@ -832,9 +830,6 @@
 
 (RPAQ? UNICODEDIRECTORIES NIL)
 
-(PUSHNEW UNICODEDIRECTORIES (PACK* (UNIX-GETENV "MEDLEYDIR")
-                                   '/unicode/xerox/))
-
 
 
 (* ;; "Set up translation tables for UTF8 and UTFBE external formats")
@@ -1207,15 +1202,15 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4094 17774 (UTF8.OUTCHARFN 4104 . 6935) (UTF8.INCCODEFN 6937 . 12427) (UTF8.PEEKCCODEFN
- 12429 . 17203) (\UTF8.BACKCCODEFN 17205 . 17772)) (17775 21101 (UTF16BE.OUTCHARFN 17785 . 18609) (
-UTF16BE.INCCODEFN 18611 . 19510) (UTF16BE.PEEKCCODEFN 19512 . 20583) (\UTF16.BACKCCODEFN 20585 . 21099
-)) (21131 22939 (MAKE-UNICODE-FORMATS 21141 . 22937)) (23036 24342 (UNICODE.UNMAPPED 23046 . 24340)) (
-24343 24879 (XCCS-UTF8-AFTER-OPEN 24353 . 24877)) (25712 26061 (XTOUCODE 25722 . 25890) (UTOXCODE 
-25892 . 26059)) (26101 42223 (READ-UNICODE-MAPPING-FILENAMES 26111 . 27212) (READ-UNICODE-MAPPING 
-27214 . 30512) (WRITE-UNICODE-MAPPING 30514 . 34731) (WRITE-UNICODE-INCLUDED 34733 . 39455) (
-WRITE-UNICODE-MAPPING-HEADER 39457 . 40689) (WRITE-UNICODE-MAPPING-FILENAME 40691 . 42221)) (45556 
-54035 (MAKE-UNICODE-TRANSLATION-TABLES 45566 . 54033)) (54452 62478 (HEXSTRING 54462 . 55623) (
-UTF8HEXSTRING 55625 . 57830) (NUTF8CODEBYTES 57832 . 58617) (NUTF8STRINGBYTES 58619 . 59100) (
-XTOUSTRING 59102 . 62113) (XCCSSTRING 62115 . 62476)) (62479 63948 (SHOWCHARS 62489 . 63946)))))
+  (FILEMAP (NIL (3945 17625 (UTF8.OUTCHARFN 3955 . 6786) (UTF8.INCCODEFN 6788 . 12278) (UTF8.PEEKCCODEFN
+ 12280 . 17054) (\UTF8.BACKCCODEFN 17056 . 17623)) (17626 20952 (UTF16BE.OUTCHARFN 17636 . 18460) (
+UTF16BE.INCCODEFN 18462 . 19361) (UTF16BE.PEEKCCODEFN 19363 . 20434) (\UTF16.BACKCCODEFN 20436 . 20950
+)) (20982 22790 (MAKE-UNICODE-FORMATS 20992 . 22788)) (22887 24193 (UNICODE.UNMAPPED 22897 . 24191)) (
+24194 24730 (XCCS-UTF8-AFTER-OPEN 24204 . 24728)) (25563 25912 (XTOUCODE 25573 . 25741) (UTOXCODE 
+25743 . 25910)) (25952 42074 (READ-UNICODE-MAPPING-FILENAMES 25962 . 27063) (READ-UNICODE-MAPPING 
+27065 . 30363) (WRITE-UNICODE-MAPPING 30365 . 34582) (WRITE-UNICODE-INCLUDED 34584 . 39306) (
+WRITE-UNICODE-MAPPING-HEADER 39308 . 40540) (WRITE-UNICODE-MAPPING-FILENAME 40542 . 42072)) (45287 
+53766 (MAKE-UNICODE-TRANSLATION-TABLES 45297 . 53764)) (54183 62209 (HEXSTRING 54193 . 55354) (
+UTF8HEXSTRING 55356 . 57561) (NUTF8CODEBYTES 57563 . 58348) (NUTF8STRINGBYTES 58350 . 58831) (
+XTOUSTRING 58833 . 61844) (XCCSSTRING 61846 . 62207)) (62210 63679 (SHOWCHARS 62220 . 63677)))))
 STOP
diff --git a/library/UNICODE.LCOM b/library/UNICODE.LCOM
index 984aecf4..98b4235c 100644
Binary files a/library/UNICODE.LCOM and b/library/UNICODE.LCOM differ
diff --git a/sources/LOADUP-FULL b/sources/LOADUP-FULL
index bb51c718..5e17a384 100644
--- a/sources/LOADUP-FULL
+++ b/sources/LOADUP-FULL
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 7-Mar-2022 21:08:31" {DSK}<home>larry>medley>sources>LOADUP-FULL.;2 4390   
+(FILECREATED "14-Jul-2022 12:33:11" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;6 4656   
 
       :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE " 4-Mar-2022 19:17:17" {DSK}<home>larry>medley>sources>LOADUP-FULL.;1)
+      :PREVIOUS-DATE "12-Jul-2022 21:57:39" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-FULL.;5)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -45,7 +47,9 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL
-  [LAMBDA NIL                                              (* ; "Edited  7-Mar-2022 21:06 by larry")
+  [LAMBDA NIL                                                (* ; "Edited 14-Jul-2022 12:32 by rmk")
+                                                             (* ; "Edited 12-Jul-2022 21:57 by rmk")
+                                                           (* ; "Edited  7-Mar-2022 21:06 by larry")
                                                            (* ; "Edited  2-Mar-2022 13:58 by larry")
                                                              (* ; "Edited 15-Jan-2022 15:48 ")
                                                              (* ; "Edited 29-Apr-2021 22:27 by rmk:")
@@ -72,8 +76,8 @@
     (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 
+    (LOADUP '(CHAT PRESS INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER 
+                   THINFILES GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT 
                    ISO8859IO HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE 
                    UNIXCOMM UNIXCHAT))
     (COND
@@ -91,5 +95,5 @@
 
 (FIXMETA)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (639 4352 (LOADFULLFONTS 649 . 2090) (LOADUP-FULL 2092 . 4102) (FIXMETA 4104 . 4350)))))
+  (FILEMAP (NIL (693 4618 (LOADFULLFONTS 703 . 2144) (LOADUP-FULL 2146 . 4368) (FIXMETA 4370 . 4616)))))
 STOP
diff --git a/sources/LOADUP-FULL.LCOM b/sources/LOADUP-FULL.LCOM
index f067d4f9..afd70265 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 7e590ddf..5b0285c3 100644
--- a/sources/LOADUP-LISP
+++ b/sources/LOADUP-LISP
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED " 4-Mar-2022 19:17:17" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2| 5132   
+(FILECREATED "13-Jul-2022 14:10:00" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;5| 5331   
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE " 2-Mar-2022 16:31:39" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "12-Jul-2022 21:57:32" 
+|{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LOADUP-LISP.;4|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,11 +19,13 @@
 (DEFINEQ
 
 (LOADUP-LISP
-  (LAMBDA NIL                                             (* \; "Edited  4-Mar-2022 19:13 by larry")
+  (LAMBDA NIL                                               (* \; "Edited 13-Jul-2022 14:09 by rmk")
+                                                          (* \; "Edited  4-Mar-2022 19:13 by larry")
                                                           (* \; "Edited  2-Mar-2022 16:31 by larry")
                                                           (* \; "Edited 28-Feb-2022 15:02 by larry")
                                                            (* \; "Edited 29-Apr-2021 22:30 by rmk:")
-    (SETQQ COMPILE.EXT LCOM)                                 (* \; "should be set earlier")
+    (SETQQ COMPILE.EXT LCOM)
+    (MEDLEY-INIT-VARS)                                       (* \; "should be set earlier")
     (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
     (FOR X IN BOOTLOADEDFILES DO (CL:UNLESS (MEMB X SYSFILES)
                                      (PRINTOUT T X " bootloaded" T)
@@ -73,7 +77,7 @@
                     CMLENVIRONMENT CMLLOAD CMLFLOAT CMLTIME CMLRAND CMLMODULES))
     (LOADUP '(PROFILE CMLEXEC EXEC-COMMANDS DEBUGGER IL-ERROR-STUFF DEBUGEDIT))
     (LOADUP '(ADDARITH))
-    (LOADUP '(CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW 
+    (LOADUP '(UNICODE CMLPATHNAME HPRINT AARITH ADISPLAY HLDISPLAY MENU WINDOWOBJ WINDOWSCROLL WINDOW
                     WINDOWICON PAINTW ATTACHEDWINDOW XXGEOM XXFILL DEXEC INSPECT DESCRIBE 
                     CMLARRAYINSPECTOR EDITINTERFACE TTYIN))
     (LOADUP '(BREAK-AND-TRACE))
@@ -117,5 +121,5 @@
 (GLOBALVARS LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (642 4910 (LOADUP-LISP 652 . 4908)))))
+  (FILEMAP (NIL (696 5109 (LOADUP-LISP 706 . 5107)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index 6507ba95..71630d0c 100644
Binary files a/sources/LOADUP-LISP.LCOM and b/sources/LOADUP-LISP.LCOM differ
diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 46d4713f..22adb5ee 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 7-Mar-2022 19:39:13" {DSK}<home>larry>medley>sources>MEDLEYDIR.;2 6274   
+(FILECREATED "13-Jul-2022 15:34:07" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;10 6722   
 
-      :CHANGES-TO (VARS MEDLEY-INIT-VARS)
+      :CHANGES-TO (VARS MEDLEYDIRCOMS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE " 5-Mar-2022 12:43:54" {DSK}<home>larry>medley>sources>MEDLEYDIR.;1)
+      :PREVIOUS-DATE "13-Jul-2022 11:37:28" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;8)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -19,6 +21,10 @@
                (BEFOREMAKESYSFORMS (SETQ MEDLEYDIR))
                (AFTERSYSOUTFORMS (MEDLEY-INIT-VARS))
                (AFTERMAKESYSFORMS (MEDLEY-INIT-VARS)))
+        
+        (* ;; 
+ "NOTE:  Do not use backquote in the variable definitions.  These get evaluated early in the loadup.")
+
         (VARS MEDLEY-INIT-VARS)
         (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS])
 
@@ -106,6 +112,12 @@
 
 (ADDTOVAR AFTERMAKESYSFORMS (MEDLEY-INIT-VARS))
 
+
+
+(* ;; 
+"NOTE:  Do not use backquote in the variable definitions.  These get evaluated early in the loadup.")
+
+
 (RPAQQ MEDLEY-INIT-VARS
        ([LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal" "greetfiles" "doctools"]
         [LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources"]
@@ -115,8 +127,8 @@
         (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
         [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"]
-        [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
-                          (,LOGINHOST/DIR "INIT"]
+        [USERGREETFILES (LIST (CONS LOGINHOST/DIR '("INIT" COM))
+                              (CONS LOGINHOST/DIR '("INIT"]
         (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts" "fonts/adobe" 
                                                    "fonts/big" "fonts/other")
                                        NIL NIL T))
@@ -124,11 +136,13 @@
                                           NIL NIL T))
         (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
                                           NIL NIL T))
+        (UNICODEDIRECTORIES (MEDLEYDIR '("unicode/xerox")
+                                   NIL NIL T))
         (XCL::*WHERE-IS-CASH-FILES*)))
 (DECLARE%: EVAL@COMPILE DOCOPY 
 
 (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1383 4793 (MEDLEY-INIT-VARS 1393 . 3007) (MEDLEYDIR 3009 . 4791)))))
+  (FILEMAP (NIL (1588 4998 (MEDLEY-INIT-VARS 1598 . 3212) (MEDLEYDIR 3214 . 4996)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index d6ca852a..04fd9567 100644
Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ
