diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 22adb5ee..485b555f 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "13-Jul-2022 15:34:07" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;10 6722   
+(FILECREATED "18-Jul-2022 12:12:11" {DSK}<home>larry>medley>sources>MEDLEYDIR.;2 6649   
 
-      :CHANGES-TO (VARS MEDLEYDIRCOMS MEDLEY-INIT-VARS)
+      :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "13-Jul-2022 11:37:28" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;8)
+      :PREVIOUS-DATE "13-Jul-2022 15:34:07" {DSK}<home>larry>medley>sources>MEDLEYDIR.;1)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -37,35 +35,35 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS
-  [LAMBDA (CLEAR)                                            (* ; 
-                                                           "Edited 21-Aug-2021 18:23 by larry")
+  [LAMBDA (CLEAR)                                          (* ; "Edited 18-Jul-2022 12:11 by larry")
+                                                           (* ; "Edited 21-Aug-2021 18:23 by larry")
 
     (* ;; "MEDLEY-INIT-VARS has variables that might need to get reset. ")
 
     (if CLEAR
         then (SETQ MEDLEYDIR NIL)
-              (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-              (for X in MEDLEY-INIT-VARS do (SET (CAR X)))
+             (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+             (for X in MEDLEY-INIT-VARS do (SET (CAR X)))
       elseif [OR (NOT (BOUNDP 'MEDLEYDIR))
-                     (AND (NULL MEDLEYDIR)
-                          (NULL (MEDLEYDIR]
+                 (AND (NULL MEDLEYDIR)
+                      (NULL (MEDLEYDIR]
         then (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" 
-                        " set it and call (MEDLEY-INIT-VARS) again" T)
+                    " set it and call (MEDLEY-INIT-VARS) again" T)
       else [for X in MEDLEY-INIT-VARS do (SET (CAR X)
-                                                              (EVAL (CADR X] 
+                                              (EVAL (CADR X] 
 
-            (* ;; "WHEREIS doesn't follow conventions")
+           (* ;; "WHEREIS doesn't follow conventions")
 
-            [LET [(NEWSYS (STRPOS "/tmp/" (UNIX-GETENV "LDESRCESYSOUT"]
-                 (if NEWSYS
-                     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 NEWSYS
-                                                                            then "tmp"
-                                                                          else "loadups")
-                                                                "WHEREIS.HASH"))))]
-            NIL])
+           [LET [(NEWSYS (STRPOS "tmp/" (UNIX-GETENV "LDESRCESYSOUT"]
+                (if NEWSYS
+                    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 NEWSYS
+                                                                       then "tmp"
+                                                                     else "loadups")
+                                                               "WHEREIS.HASH"))))]
+           NIL])
 
 (MEDLEYDIR
   [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)                (* ; "Edited  5-Mar-2022 12:43 by larry")
@@ -144,5 +142,5 @@
 (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1588 4998 (MEDLEY-INIT-VARS 1598 . 3212) (MEDLEYDIR 3214 . 4996)))))
+  (FILEMAP (NIL (1518 4925 (MEDLEY-INIT-VARS 1528 . 3139) (MEDLEYDIR 3141 . 4923)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 04fd9567..d840f012 100644
Binary files a/sources/MEDLEYDIR.LCOM and b/sources/MEDLEYDIR.LCOM differ
