diff --git a/internal/library/MEDLEY-UTILS b/internal/library/MEDLEY-UTILS
index a8d45a2d..5df90492 100644
--- a/internal/library/MEDLEY-UTILS
+++ b/internal/library/MEDLEY-UTILS
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "18-Jan-2021 12:02:56" |{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;2| 3342   

      |changes| |to:|  (VARS MEDLEY-FIX-DIRSCOMS)
                       (FNS MEDLEY-FIX-LINKS)

      |previous| |date:| "16-Jan-2021 23:12:42" 
|{DSK}<home>larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;1|)


(PRETTYCOMPRINT MEDLEY-FIX-DIRSCOMS)

(RPAQQ MEDLEY-FIX-DIRSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DIRS)
                                (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-DIRS
  (LAMBDA NIL                                         (* \; "Edited  4-Jan-2021 15: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 (686 1316 (MEDLEY-FIX-LINKS 696 . 1085) (MEDLEY-FIX-DIRS 1087 . 1314)) (1543 3319 (
MAKE-EXPORTS-ALL 1553 . 2549) (MAKE-WHEREIS-HASH 2551 . 3317)))))
STOP
\ No newline at end of file
+(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
diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/library/MEDLEY-UTILS.LCOM
new file mode 100644
index 00000000..73894e2e
Binary files /dev/null and b/internal/library/MEDLEY-UTILS.LCOM differ
