diff --git a/lispusers/IDLEHAX.TEDIT b/lispusers/IDLEHAX.TEDIT
index 0fe13314..fba6d6df 100644
Binary files a/lispusers/IDLEHAX.TEDIT and b/lispusers/IDLEHAX.TEDIT differ
diff --git a/lispusers/migration-tool/FILEPKGRECORDS b/lispusers/migration-tool/FILEPKGRECORDS
deleted file mode 100644
index e424bee0..00000000
--- a/lispusers/migration-tool/FILEPKGRECORDS
+++ /dev/null
@@ -1,116 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
-(* "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988 by Xerox Corporation.  All rights reserved.
-The following program was created in 1982 but has not been published
-within the meaning of the copyright law, is furnished under license,
-and may not be used, copied and/or disclosed except in accordance
-with the terms of said license.
-")
-
-(PRETTYCOMPRINT FILEPKGRECORDSCOMS)
-
-(RPAQQ FILEPKGRECORDSCOMS 
-       [(COMS                                                (* ; 
-             "standard records for accessing file package type/command parts.  Exported for PRETTY")
-              (RECORDS * FILEPKGRECORDS)])
-
-(RPAQQ FILEPKGRECORDS (FILEPKGCOM FILEPKGTYPE FILE FILEDATEPAIR FILEPROP))
-
-(ACCESSFNS FILEPKGCOM [[ADD (GETPROP DATUM 'ADDTOPRETTYCOM)
-                                  (UNDOABLE (COND
-                                               (NEWVALUE (/PUTPROP DATUM 'ADDTOPRETTYCOM NEWVALUE))
-                                               (T (/REMPROP DATUM 'ADDTOPRETTYCOM]
-                           [DELETE (GETPROP DATUM 'DELFROMPRETTYCOM)
-                                  (UNDOABLE (COND
-                                               (NEWVALUE (/PUTPROP DATUM 'DELFROMPRETTYCOM NEWVALUE))
-                                               (T (/REMPROP DATUM 'DELFROMPRETTYCOM]
-                           [PRETTYTYPE (GETPROP DATUM 'PRETTYTYPE)
-                                  (UNDOABLE (COND
-                                               (NEWVALUE (/PUTPROP DATUM 'PRETTYTYPE NEWVALUE))
-                                               (T (/REMPROP DATUM 'PRETTYTYPE]
-                           [CONTENTS (GETPROP DATUM 'FILEPKGCONTENTS)
-                                  (UNDOABLE (COND
-                                               (NEWVALUE (/PUTPROP DATUM 'FILEPKGCONTENTS NEWVALUE))
-                                               (T (/REMPROP DATUM 'FILEPKGCONTENTS]
-                           (MACRO [CDR (FASSOC DATUM (GETTOPVAL 'PRETTYDEFMACROS]
-                                  (STANDARD [COND
-                                               [NEWVALUE (PUTASSOC DATUM NEWVALUE
-                                                                (OR (LISTP (GETTOPVAL 
-                                                                                  'PRETTYDEFMACROS))
-                                                                    (SETTOPVAL 'PRETTYDEFMACROS
-                                                                           (LIST (LIST DATUM]
-                                               (T (SETTOPVAL 'PRETTYDEFMACROS
-                                                         (REMOVE (FASSOC DATUM (GETTOPVAL
-                                                                                'PRETTYDEFMACROS))
-                                                                (GETTOPVAL 'PRETTYDEFMACROS]
-                                         UNDOABLE
-                                         (COND
-                                            [NEWVALUE (/PUTASSOC DATUM NEWVALUE
-                                                             (OR (LISTP (GETTOPVAL 'PRETTYDEFMACROS))
-                                                                 (/SETTOPVAL 'PRETTYDEFMACROS
-                                                                        (LIST (LIST DATUM]
-                                            (T (/SETTOPVAL 'PRETTYDEFMACROS
-                                                      (REMOVE (FASSOC DATUM (GETTOPVAL 
-                                                                                   'PRETTYDEFMACROS))
-                                                             (GETTOPVAL 'PRETTYDEFMACROS]
-                                                             (* Not an atom record cause want 
-                                                           REMPROP on NILs.)
-                                                             (* NOTE%: PRETTCOM on PRETTY has 
-                                                           open-coded access to the MACRO 
-                                                           property.)
-                          (INIT (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE 
-                                       FILEPKGCONTENTS)))
-
-
-
-(ATOMRECORD FILEPKGTYPE (NEWCOM WHENFILED WHENUNFILED GETDEF NULLDEF DELDEF PUTDEF WHENCHANGED 
-                                   HASDEF EDITDEF FILEGETDEF CANFILEDEF)
-                            (ACCESSFNS FILEPKGTYPE [(CHANGEDLST (CAR (SEARCHPRETTYTYPELST DATUM))
-                                                           (CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE))
-                                                           )
-                                                    (CHANGED (GETTOPVAL (CAR (SEARCHPRETTYTYPELST
-                                                                              DATUM)))
-                                                           (STANDARD (SETTOPVAL (CAR (
-                                                                                  SEARCHPRETTYTYPELST
-                                                                                      DATUM NEWVALUE)
-                                                                                     )
-                                                                            NEWVALUE)
-                                                                  UNDOABLE
-                                                                  (/SETTOPVAL (CAR (
-                                                                                  SEARCHPRETTYTYPELST
-                                                                                    DATUM NEWVALUE))
-                                                                         NEWVALUE)))
-                                                    (DESCRIPTION (CAR (CDDR (SEARCHPRETTYTYPELST
-                                                                             DATUM)))
-                                                           (CAR (RPLACA (CDDR (SEARCHPRETTYTYPELST
-                                                                               DATUM NEWVALUE))
-                                                                       NEWVALUE)))
-                                                    (ALLFIELDS NIL (/SETTOPVAL
-                                                                    'PRETTYTYPELST
-                                                                    (REMOVE (SEARCHPRETTYTYPELST
-                                                                             DATUM)
-                                                                           (GETTOPVAL 'PRETTYTYPELST]
-                                                             (* NOTE%: PRETTYCOM on PRETTY has 
-                                                           open-coded access to GETDEF property)
-                                   (INIT [PROGN (SETQ SYSPROPS (UNION FILEPKGTYPEPROPS SYSPROPS))
-                                                (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X)
-                                                                                   (PUT X
-                                                                                        'PROPTYPE
-                                                                                        'FILEPKGCOMS]
-                                         (ADDTOVAR PRETTYTYPELST))))
-
-
-(ATOMRECORD FILE (FILECHANGES FILEDATES FILEMAP)
-                     [ACCESSFNS FILE ((FILEPROP (GETPROP DATUM 'FILE)
-                                             (STANDARD (PUTPROP DATUM 'FILE NEWVALUE)
-                                                    UNDOABLE
-                                                    (/PUTPROP DATUM 'FILE NEWVALUE])
-
-(RECORD FILEDATEPAIR (FILEDATE . DATEFILENAME))
-
-(RECORD FILEPROP ((COMSNAME . LOADTYPE) . TOBEDUMPED))
-
-
-
-IL:STOP
diff --git a/lispusers/migration-tool/FILEPKGRECORDS.LCOM b/lispusers/migration-tool/FILEPKGRECORDS.LCOM
deleted file mode 100644
index 1d535001..00000000
--- a/lispusers/migration-tool/FILEPKGRECORDS.LCOM
+++ /dev/null
@@ -1 +0,0 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "19-Jan-93 19:53:16" ("compiled on " {DSK}<usr>local>src>tape>MIGRATION>FILEPKGRECORDS.;1
) "11-Jul-91 21:52:09" bcompl'd in "Lispcore 11-Jul-91 ..." dated "11-Jul-91 21:57:45")
(PRETTYCOMPRINT FILEPKGRECORDSCOMS)
(RPAQQ FILEPKGRECORDSCOMS ((COMS (* ; 
"standard records for accessing file package type/command parts.  Exported for PRETTY") (RECORDS * 
FILEPKGRECORDS))))
(RPAQQ FILEPKGRECORDS (FILEPKGCOM FILEPKGTYPE FILE FILEDATEPAIR FILEPROP))
(ACCESSFNS FILEPKGCOM ((ADD (GETPROP DATUM (QUOTE ADDTOPRETTYCOM)) (UNDOABLE (COND (NEWVALUE (/PUTPROP
 DATUM (QUOTE ADDTOPRETTYCOM) NEWVALUE)) (T (/REMPROP DATUM (QUOTE ADDTOPRETTYCOM)))))) (DELETE (
GETPROP DATUM (QUOTE DELFROMPRETTYCOM)) (UNDOABLE (COND (NEWVALUE (/PUTPROP DATUM (QUOTE 
DELFROMPRETTYCOM) NEWVALUE)) (T (/REMPROP DATUM (QUOTE DELFROMPRETTYCOM)))))) (PRETTYTYPE (GETPROP 
DATUM (QUOTE PRETTYTYPE)) (UNDOABLE (COND (NEWVALUE (/PUTPROP DATUM (QUOTE PRETTYTYPE) NEWVALUE)) (T (
/REMPROP DATUM (QUOTE PRETTYTYPE)))))) (CONTENTS (GETPROP DATUM (QUOTE FILEPKGCONTENTS)) (UNDOABLE (
COND (NEWVALUE (/PUTPROP DATUM (QUOTE FILEPKGCONTENTS) NEWVALUE)) (T (/REMPROP DATUM (QUOTE 
FILEPKGCONTENTS)))))) (MACRO (CDR (FASSOC DATUM (GETTOPVAL (QUOTE PRETTYDEFMACROS)))) (STANDARD (COND 
(NEWVALUE (PUTASSOC DATUM NEWVALUE (OR (LISTP (GETTOPVAL (QUOTE PRETTYDEFMACROS))) (SETTOPVAL (QUOTE 
PRETTYDEFMACROS) (LIST (LIST DATUM)))))) (T (SETTOPVAL (QUOTE PRETTYDEFMACROS) (REMOVE (FASSOC DATUM (
GETTOPVAL (QUOTE PRETTYDEFMACROS))) (GETTOPVAL (QUOTE PRETTYDEFMACROS)))))) UNDOABLE (COND (NEWVALUE (
/PUTASSOC DATUM NEWVALUE (OR (LISTP (GETTOPVAL (QUOTE PRETTYDEFMACROS))) (/SETTOPVAL (QUOTE 
PRETTYDEFMACROS) (LIST (LIST DATUM)))))) (T (/SETTOPVAL (QUOTE PRETTYDEFMACROS) (REMOVE (FASSOC DATUM 
(GETTOPVAL (QUOTE PRETTYDEFMACROS))) (GETTOPVAL (QUOTE PRETTYDEFMACROS))))))))) (* Not an atom record 
cause want REMPROP on NILs.) (* NOTE%: PRETTCOM on PRETTY has open-coded access to the MACRO property.
) (INIT (FILEPKGCOMPROPS ADDTOPRETTYCOM DELFROMPRETTYCOM PRETTYTYPE FILEPKGCONTENTS)))
(ATOMRECORD FILEPKGTYPE (NEWCOM WHENFILED WHENUNFILED GETDEF NULLDEF DELDEF PUTDEF WHENCHANGED HASDEF 
EDITDEF FILEGETDEF CANFILEDEF) (ACCESSFNS FILEPKGTYPE ((CHANGEDLST (CAR (SEARCHPRETTYTYPELST DATUM)) (
CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE))) (CHANGED (GETTOPVAL (CAR (SEARCHPRETTYTYPELST DATUM))) (
STANDARD (SETTOPVAL (CAR (SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE) UNDOABLE (/SETTOPVAL (CAR (
SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE))) (DESCRIPTION (CAR (CDDR (SEARCHPRETTYTYPELST DATUM)))
 (CAR (RPLACA (CDDR (SEARCHPRETTYTYPELST DATUM NEWVALUE)) NEWVALUE))) (ALLFIELDS NIL (/SETTOPVAL (
QUOTE PRETTYTYPELST) (REMOVE (SEARCHPRETTYTYPELST DATUM) (GETTOPVAL (QUOTE PRETTYTYPELST)))))) (* 
NOTE%: PRETTYCOM on PRETTY has open-coded access to GETDEF property) (INIT (PROGN (SETQ SYSPROPS (
UNION FILEPKGTYPEPROPS SYSPROPS)) (MAPC FILEPKGTYPEPROPS (FUNCTION (LAMBDA (X) (PUT X (QUOTE PROPTYPE)
 (QUOTE FILEPKGCOMS)))))) (ADDTOVAR PRETTYTYPELST))))
(ATOMRECORD FILE (FILECHANGES FILEDATES FILEMAP) (ACCESSFNS FILE ((FILEPROP (GETPROP DATUM (QUOTE FILE
)) (STANDARD (PUTPROP DATUM (QUOTE FILE) NEWVALUE) UNDOABLE (/PUTPROP DATUM (QUOTE FILE) NEWVALUE)))))
)
(RECORD FILEDATEPAIR (FILEDATE . DATEFILENAME))
(RECORD FILEPROP ((COMSNAME . LOADTYPE) . TOBEDUMPED))
NIL
\ No newline at end of file
diff --git a/lispusers/migration-tool/IL-CONVERT b/lispusers/migration/IL-CONVERT
similarity index 100%
rename from lispusers/migration-tool/IL-CONVERT
rename to lispusers/migration/IL-CONVERT
diff --git a/lispusers/migration-tool/IL-CONVERT.LCOM b/lispusers/migration/IL-CONVERT.LCOM
similarity index 100%
rename from lispusers/migration-tool/IL-CONVERT.LCOM
rename to lispusers/migration/IL-CONVERT.LCOM
diff --git a/lispusers/migration-tool/IL-LOOPS b/lispusers/migration/IL-LOOPS
similarity index 100%
rename from lispusers/migration-tool/IL-LOOPS
rename to lispusers/migration/IL-LOOPS
diff --git a/lispusers/migration-tool/IL-LOOPS.LCOM b/lispusers/migration/IL-LOOPS.LCOM
similarity index 100%
rename from lispusers/migration-tool/IL-LOOPS.LCOM
rename to lispusers/migration/IL-LOOPS.LCOM
diff --git a/lispusers/migration-tool/IL-RECORD b/lispusers/migration/IL-RECORD
similarity index 100%
rename from lispusers/migration-tool/IL-RECORD
rename to lispusers/migration/IL-RECORD
diff --git a/lispusers/migration-tool/IL-RECORD.LCOM b/lispusers/migration/IL-RECORD.LCOM
similarity index 100%
rename from lispusers/migration-tool/IL-RECORD.LCOM
rename to lispusers/migration/IL-RECORD.LCOM
diff --git a/lispusers/migration-tool/IL-SIM b/lispusers/migration/IL-SIM
similarity index 100%
rename from lispusers/migration-tool/IL-SIM
rename to lispusers/migration/IL-SIM
diff --git a/lispusers/migration-tool/IL-SIM.LCOM b/lispusers/migration/IL-SIM.LCOM
similarity index 100%
rename from lispusers/migration-tool/IL-SIM.LCOM
rename to lispusers/migration/IL-SIM.LCOM
diff --git a/lispusers/migration-tool/IL-STARTUP b/lispusers/migration/IL-STARTUP
similarity index 100%
rename from lispusers/migration-tool/IL-STARTUP
rename to lispusers/migration/IL-STARTUP
diff --git a/lispusers/migration-tool/IL-STARTUP.LCOM b/lispusers/migration/IL-STARTUP.LCOM
similarity index 100%
rename from lispusers/migration-tool/IL-STARTUP.LCOM
rename to lispusers/migration/IL-STARTUP.LCOM
diff --git a/lispusers/migration-tool/MIGRATION-TOOL b/lispusers/migration/MIGRATION-TOOL
similarity index 100%
rename from lispusers/migration-tool/MIGRATION-TOOL
rename to lispusers/migration/MIGRATION-TOOL
diff --git a/lispusers/migration-tool/MIGRATION-TOOL.LCOM b/lispusers/migration/MIGRATION-TOOL.LCOM
similarity index 100%
rename from lispusers/migration-tool/MIGRATION-TOOL.LCOM
rename to lispusers/migration/MIGRATION-TOOL.LCOM
diff --git a/lispusers/migration-tool/MIGRATION-TOOL.TXT b/lispusers/migration/MIGRATION-TOOL.TXT
similarity index 100%
rename from lispusers/migration-tool/MIGRATION-TOOL.TXT
rename to lispusers/migration/MIGRATION-TOOL.TXT
diff --git a/lispusers/migration-tool/TRANSLATOR-ASSISTANT b/lispusers/migration/TRANSLATOR-ASSISTANT
similarity index 100%
rename from lispusers/migration-tool/TRANSLATOR-ASSISTANT
rename to lispusers/migration/TRANSLATOR-ASSISTANT
diff --git a/scripts/release-medley.sh b/scripts/release-medley.sh
old mode 100644
new mode 100755
