diff --git a/internal/library/MEDLEY-UTILS b/internal/library/MEDLEY-UTILS
index 5df90492..a56edd1b 100644
--- a/internal/library/MEDLEY-UTILS
+++ b/internal/library/MEDLEY-UTILS
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "23-Jan-2021 12:09:14" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;3| 3335   

      |changes| |to:|  (VARS MEDLEY-UTILSCOMS)
                       (FNS MEDLEY-FIX-DATES)

      |previous| |date:| "23-Jan-2021 09:37:23" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;2|)


(PRETTYCOMPRINT MEDLEY-UTILSCOMS)

(RPAQQ MEDLEY-UTILSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
                             (VARS MEDLEY-FIX-DIRS)
                             (FILES COMPAREDIRECTORIES WHERE-IS)
                             (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
(DEFINEQ

(MEDLEY-FIX-LINKS
  (LAMBDA (UNIXPATH)                                  (* \; "Edited 18-Jan-2021 12:01 by larry")
    (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR"))
        (ERROR "No Directory"))                       (* \; "Edited 18-Jan-2021 11:45 by larry")
    (|ShellCommand| (CONCAT "cd " UNIXPATH " && /bin/sh scripts/fixlinks && /bin/sh /tmp/doit"))))

(MEDLEY-FIX-DATES
  (LAMBDA NIL                                         (* \; "Edited 23-Jan-2021 09:42 by larry")
    (|for| X |in| MEDLEY-FIX-DIRS |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T))))))
)

(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" 
                                  "docs>Documentation Tools" "cltl2" "clos" "makesysout"))

(FILESLOAD COMPAREDIRECTORIES WHERE-IS)
(DEFINEQ

(MAKE-EXPORTS-ALL
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:49 by larry")
                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")
                                                             (* 
        "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
                                                             (* 
                      "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
                                                             (* 
                                                           "Edited September 29, 1986 by van Melle")
    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
    (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL)
           (MEDLEYDIR "library" "EXPORTS.ALL" T))))

(MAKE-WHEREIS-HASH
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:04 by larry")
    (LET ((FILING.ENUMERATION.DEPTH 1)
          HASHFILE)
         (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T))
         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T)
                               :FILES
                               (|for| X |in| MEDLEY-FIX-DIRS |collect|
                                                                     (CONCAT (MEDLEYDIR X)
                                                                            "*.;"))
                               :NEW T))
         (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T))
         (DRIBBLE))))
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (678 1309 (MEDLEY-FIX-LINKS 688 . 1077) (MEDLEY-FIX-DATES 1079 . 1307)) (1536 3312 (
MAKE-EXPORTS-ALL 1546 . 2542) (MAKE-WHEREIS-HASH 2544 . 3310)))))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "28-Jan-2021 12:22:44" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;4| 3420   

      |changes| |to:|  (VARS MEDLEY-FIX-DIRS)
                       (FNS MEDLEY-FIX-DATES)

      |previous| |date:| "23-Jan-2021 12:09:14" 
|{DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;3|)


(PRETTYCOMPRINT MEDLEY-UTILSCOMS)

(RPAQQ MEDLEY-UTILSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
                             (VARS MEDLEY-FIX-DIRS)
                             (FILES COMPAREDIRECTORIES WHERE-IS)
                             (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)))
(DEFINEQ

(MEDLEY-FIX-LINKS
  (LAMBDA (UNIXPATH)                                  (* \; "Edited 18-Jan-2021 12:01 by larry")
    (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR"))
        (ERROR "No Directory"))                       (* \; "Edited 18-Jan-2021 11:45 by larry")
    (|ShellCommand| (CONCAT "cd " UNIXPATH " && /bin/sh scripts/fixlinks && /bin/sh /tmp/doit"))))

(MEDLEY-FIX-DATES
  (LAMBDA (DIRS)                                      (* \; "Edited 28-Jan-2021 12:15 by larry")
    (|for| X |in| (OR DIRS MEDLEY-FIX-DIRS) |join| (FIX-DIRECTORY-DATES
                                                                (MEDLEYDIR (PRINT X T))))))
)

(RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" 
                                  "docs/Documentation Tools" "cltl2" "clos" "makesysout" "sunloadup"))

(FILESLOAD COMPAREDIRECTORIES WHERE-IS)
(DEFINEQ

(MAKE-EXPORTS-ALL
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:49 by larry")
                                                             (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")
                                                             (* 
        "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")
                                                             (* 
                      "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.")
                                                             (* 
                                                           "Edited September 29, 1986 by van Melle")
    (CNDIR (MEDLEYDIR "sources"))
    (LOAD 'FILESETS)
    (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL)
           (MEDLEYDIR "library" "EXPORTS.ALL" T))))

(MAKE-WHEREIS-HASH
  (LAMBDA NIL                                         (* \; "Edited 16-Jan-2021 22:04 by larry")
    (LET ((FILING.ENUMERATION.DEPTH 1)
          HASHFILE)
         (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T))
         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T)
                               :FILES
                               (|for| X |in| MEDLEY-FIX-DIRS |collect|
                                                                     (CONCAT (MEDLEYDIR X)
                                                                            "*.;"))
                               :NEW T))
         (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T))
         (DRIBBLE))))
)
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (677 1382 (MEDLEY-FIX-LINKS 687 . 1076) (MEDLEY-FIX-DATES 1078 . 1380)) (1621 3397 (
MAKE-EXPORTS-ALL 1631 . 2627) (MAKE-WHEREIS-HASH 2629 . 3395)))))
STOP
\ No newline at end of file
diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/library/MEDLEY-UTILS.LCOM
index 73894e2e..7528e6f5 100644
Binary files a/internal/library/MEDLEY-UTILS.LCOM and b/internal/library/MEDLEY-UTILS.LCOM differ
