diff --git a/sources/LOADUP-LISP b/sources/LOADUP-LISP
index 68567ee2..eba4bbcb 100644
--- a/sources/LOADUP-LISP
+++ b/sources/LOADUP-LISP
@@ -1,9 +1,10 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-(FILECREATED "29-Apr-2021 22:31:24" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;2| 8463   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
+(FILECREATED " 1-Aug-2021 13:16:06" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;3| 9364   
 
-      |changes| |to:|  (FNS LOADUP-LISP)
+      |changes| |to:|  (FNS MEDLEY-INIT-VARS)
 
-      |previous| |date:| "28-Mar-2021 10:06:54" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;1|)
+      |previous| |date:| " 1-Aug-2021 13:09:52" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;2|
+)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -107,7 +108,7 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS
-  (LAMBDA (CLEAR)                                     (* \; "Edited 17-Jan-2021 14:29 by larry")
+  (LAMBDA (CLEAR)                                     (* \; "Edited  1-Aug-2021 13:15 by larry")
 
     (* |;;| "MEDLEY-INIT-VARS has variables that might need to get reset. ")
 
@@ -125,9 +126,15 @@
 
             (* |;;| "WHEREIS doesn't follow conventions")
 
-            (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
-                (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-                (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "WHEREIS.HASH"))))
+            (LET ((NEW (STRPOS "/tmp/" (UNIX-GETENV "LDESRCESYSOUT"))))
+                 (IF NEW
+                     THEN (PUSH DIRECTORIES (MEDLEYDIR "tmp")))
+                 (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
+                     (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+                     (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR (|if| |new|
+                                                                            |then| "tmp"
+                                                                          |else| "loadups")
+                                                                "WHEREIS.HASH")))))
             NIL)))
 
 (MEDLEYDIR
@@ -158,27 +165,28 @@
 
 (RPAQ? FILING.ENUMERATION.DEPTH T)
 
-(RPAQQ MEDLEY-INIT-VARS
-       ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library")))
-        (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
-        (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
-        (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
-        (IRM.DINFOGRAPH)
-        (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-        (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                          (UNIX-GETENV "HOME"))))
-        (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
-                          (,LOGINHOST/DIR "INIT")))
-        (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts")))
-        (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
-        (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
-        (XCL::*WHERE-IS-CASH-FILES*)))
+(RPAQQ MEDLEY-INIT-VARS ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" 
+                                                                      "internal/library")))
+                             (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
+                             (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
+                             (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
+                             (IRM.DINFOGRAPH)
+                             (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
+                             (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                                               (UNIX-GETENV "HOME"))))
+                             (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
+                                               (,LOGINHOST/DIR "INIT")))
+                             (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" 
+                                                                        "fonts/altofonts")))
+                             (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
+                             (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
+                             (XCL::*WHERE-IS-CASH-FILES*)))
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS XCL::*WHERE-IS-CASH-FILES* LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
        SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (753 4843 (LOADUP-LISP 763 . 4841)) (4844 7343 (MEDLEY-INIT-VARS 4854 . 5999) (MEDLEYDIR
- 6001 . 7341)))))
+  (FILEMAP (NIL (792 4882 (LOADUP-LISP 802 . 4880)) (4883 7834 (MEDLEY-INIT-VARS 4893 . 6490) (MEDLEYDIR
+ 6492 . 7832)))))
 STOP
diff --git a/sources/LOADUP-LISP.LCOM b/sources/LOADUP-LISP.LCOM
index f6acb562..75913fe5 100644
Binary files a/sources/LOADUP-LISP.LCOM and b/sources/LOADUP-LISP.LCOM differ
