diff --git a/sources/ATBL b/sources/ATBL
index c07ba4f1..123c79e6 100644
--- a/sources/ATBL
+++ b/sources/ATBL
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "24-Oct-2021 21:53:59" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;28 92451  
+(FILECREATED "19-Dec-2021 14:09:43" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;31 91882  
 
-      changes to%:  (FNS MAKE-READER-ENVIRONMENT)
+      :CHANGES-TO (FNS EQUAL-READER-ENVIRONMENT)
 
-      previous date%: "24-Oct-2021 20:14:01" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;27)
+      :PREVIOUS-DATE "24-Oct-2021 21:53:59" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;29)
 
 
 (* ; "
@@ -16,7 +16,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 
 (RPAQQ ATBLCOMS
        [(COMS                                                (* ; 
-                                                      "Common features of read and terminal tables")
+                                                        "Common features of read and terminal tables")
               (DECLARE%: DONTCOPY (EXPORT (MACROS \SYNCODE \SETSYNCODE)
                                          (RECORDS CHARTABLE))
                      (CONSTANTS \NSCHARHASHKEYS \NSCHARHASHOVERFLOW)
@@ -39,9 +39,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
                    \SETMACROSYNTAX \SETREADSYNTAX \READTABLEP.DEFPRINT)
               (PROP ARGNAMES READTABLEPROP)
               (DECLARE%: EVAL@COMPILE DONTCOPY               (* ; 
-                             "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's")
+                               "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's")
                                                              (* ; 
-                                                    "OTHER must be zero because of initialization.")
+                                                      "OTHER must be zero because of initialization.")
                      [VARS READCLASSTOKENS (READCLASSES (MAPCAR READCLASSTOKENS
                                                                (FUNCTION (LAMBDA
                                                                           (PAIR)
@@ -50,7 +50,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
                                                                                 (CADR PAIR]
                      (MACROS \COMPUTED.FORM)
                                                              (* ; 
-                                                          "This macro ought to be official somehow")
+                                                            "This macro ought to be official somehow")
                      (RECORDS CONTEXTS ESCAPES WAKEUPS)
                      (EXPORT (MACROS \GETREADMACRODEF \GTREADTABLE \GTREADTABLE1)
                             (CONSTANTS MACROBIT BREAKBIT STOPATOMBIT ESCAPEBIT INNERESCAPEBIT)
@@ -66,7 +66,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
               (FNS \ATBLSET)
               (INITRECORDS READER-ENVIRONMENT)
                                                              (* ; 
-            "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*")
+              "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*")
               (FNS MAKE-READER-ENVIRONMENT EQUAL-READER-ENVIRONMENT SET-READER-ENVIRONMENT)
               (INITVARS (*LISP-PACKAGE*)
                      (*INTERLISP-PACKAGE*)
@@ -85,30 +85,27 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \SYNCODE DMACRO [OPENLAMBDA (TABLE CHAR)
-                                    (CHECK (type? CHARTABLE TABLE))
-                                                             (* ; 
-                                                       "0 is either NONE.TC, REAL.CCE, or OTHER.RC")
-                                    (COND
-                                       ((IGREATERP CHAR \MAXTHINCHAR)
-                                        (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE)
-                                                 (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH)
-                                                                  of TABLE)))
-                                            0))
-                                       (T (\GETBASEBYTE TABLE CHAR])
+                            (CHECK (type? CHARTABLE TABLE))  (* ; 
+                                                         "0 is either NONE.TC, REAL.CCE, or OTHER.RC")
+                            (COND
+                               ((IGREATERP CHAR \MAXTHINCHAR)
+                                (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE)
+                                         (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) of TABLE)))
+                                    0))
+                               (T (\GETBASEBYTE TABLE CHAR])
 
 (PUTPROPS \SETSYNCODE DMACRO [LAMBDA (TABLE CHAR CODE)
-                                       (CHECK (type? CHARTABLE TABLE))
-                                                             (* ; 
-                                                           "0 is REAL.CCE, NONE.TC, OTHER.RC")
-                                       (COND
-                                          ((ILEQ CHAR \MAXTHINCHAR)
-                                           (\PUTBASEBYTE TABLE CHAR CODE))
-                                          (T (\SETFATSYNCODE TABLE CHAR CODE])
+                               (CHECK (type? CHARTABLE TABLE))
+                                                             (* ; "0 is REAL.CCE, NONE.TC, OTHER.RC")
+                               (COND
+                                  ((ILEQ CHAR \MAXTHINCHAR)
+                                   (\PUTBASEBYTE TABLE CHAR CODE))
+                                  (T (\SETFATSYNCODE TABLE CHAR CODE])
 )
 (DECLARE%: EVAL@COMPILE
 
 (DATATYPE CHARTABLE ((CHARSET0 256 BYTE)
-                         (NSCHARHASH FULLPOINTER)))
+                     (NSCHARHASH FULLPOINTER)))
 )
 
 (/DECLAREDATATYPE 'CHARTABLE
@@ -402,11 +399,11 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS \CREATENSCHARHASH MACRO (ARGS              (* ; 
-                        "added size argument for creation of \ORIGTERMTABLE during initialization.")
-                                                (LIST 'HASHARRAY (OR (CAR ARGS)
-                                                                     '\NSCHARHASHKEYS)
-                                                      '\NSCHARHASHOVERFLOW)))
+(PUTPROPS \CREATENSCHARHASH MACRO (ARGS                      (* ; 
+                          "added size argument for creation of \ORIGTERMTABLE during initialization.")
+                                        (LIST 'HASHARRAY (OR (CAR ARGS)
+                                                             '\NSCHARHASHKEYS)
+                                              '\NSCHARHASHOVERFLOW)))
 )
 )
 (DEFINEQ
@@ -924,8 +921,8 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (CONSTANTS REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE)
 )
 
-(RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC 
-                              RETYPE.TC CTRLV.TC))
+(RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC 
+                          CTRLV.TC))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ NONE.TC 0)
@@ -950,14 +947,14 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24))
-                         (TERMCLASS (LOGAND DATUM 7)))       (* ; 
-                                                  "We assume that values are appropriately shifted")
-                        (CREATE (LOGOR CCECHO TERMCLASS)))
+                     (TERMCLASS (LOGAND DATUM 7)))           (* ; 
+                                                    "We assume that values are appropriately shifted")
+                    (CREATE (LOGOR CCECHO TERMCLASS)))
 
-(DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL 
-                                EMPTYCHDEL (CONTROLFLG FLAG)
-                                (ECHOFLG FLAG))
-                         TERMSA _ (create CHARTABLE))
+(DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL
+                            (CONTROLFLG FLAG)
+                            (ECHOFLG FLAG))
+                     TERMSA _ (create CHARTABLE))
 )
 
 (/DECLAREDATATYPE 'TERMTABLEP '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG
@@ -1440,9 +1437,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
         (PACKAGEDELIM (LOGOR ESCAPEBIT INNERESCAPEBIT 1))))
 
 (RPAQ READCLASSES [MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR)
-                                                               (LIST (PACK* (CAR PAIR)
-                                                                            ".RC")
-                                                                     (CADR PAIR])
+                                                           (LIST (PACK* (CAR PAIR)
+                                                                        ".RC")
+                                                                 (CADR PAIR])
 
 (DECLARE%: EVAL@COMPILE 
 
@@ -1452,60 +1449,60 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS CONTEXTS ((KEY (SELECTC DATUM
-                                  (ALWAYS.RMC 'ALWAYS)
-                                  (FIRST.RMC 'FIRST)
-                                  (ALONE.RMC 'ALONE)
-                                  NIL))
-                         (VAL (SELECTQ DATUM
-                                  (ALWAYS ALWAYS.RMC)
-                                  (FIRST FIRST.RMC)
-                                  (ALONE ALONE.RMC)
-                                  NIL))))
+                              (ALWAYS.RMC 'ALWAYS)
+                              (FIRST.RMC 'FIRST)
+                              (ALONE.RMC 'ALONE)
+                              NIL))
+                     (VAL (SELECTQ DATUM
+                              (ALWAYS ALWAYS.RMC)
+                              (FIRST FIRST.RMC)
+                              (ALONE ALONE.RMC)
+                              NIL))))
 
 (ACCESSFNS ESCAPES ((KEY (SELECTC DATUM
-                                 (ESC.RME 'ESCQUOTE)
-                                 (NOESC.RME 'NOESCQUOTE)
-                                 NIL))
-                        (VAL (SELECTQ DATUM
-                                 ((ESCQUOTE ESC) 
-                                      ESC.RME)
-                                 ((NOESCQUOTE NOESC) 
-                                      NOESC.RME)
-                                 NIL))))
+                             (ESC.RME 'ESCQUOTE)
+                             (NOESC.RME 'NOESCQUOTE)
+                             NIL))
+                    (VAL (SELECTQ DATUM
+                             ((ESCQUOTE ESC) 
+                                  ESC.RME)
+                             ((NOESCQUOTE NOESC) 
+                                  NOESC.RME)
+                             NIL))))
 
 (ACCESSFNS WAKEUPS ((KEY (SELECTC DATUM
-                                 (IMMEDIATE.RMW 'IMMEDIATE)
-                                 (NONIMMEDIATE.RMW 
-                                      'NONIMMEDIATE)
-                                 NIL))
-                        (VAL (SELECTQ DATUM
-                                 ((IMMEDIATE IMMED WAKEUP) 
-                                      IMMEDIATE.RMW)
-                                 ((NONIMMEDIATE NONIMMED NOWAKEUP) 
-                                      NONIMMEDIATE.RMW)
-                                 NIL))))
+                             (IMMEDIATE.RMW 'IMMEDIATE)
+                             (NONIMMEDIATE.RMW 
+                                  'NONIMMEDIATE)
+                             NIL))
+                    (VAL (SELECTQ DATUM
+                             ((IMMEDIATE IMMED WAKEUP) 
+                                  IMMEDIATE.RMW)
+                             ((NONIMMEDIATE NONIMMED NOWAKEUP) 
+                                  NONIMMEDIATE.RMW)
+                             NIL))))
 )
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \GETREADMACRODEF MACRO ((C TBL)
-                                          (GETHASH C (fetch READMACRODEFS of TBL))))
+                                  (GETHASH C (fetch READMACRODEFS of TBL))))
 
 (PUTPROPS \GTREADTABLE MACRO [ARGS (COND
-                                              [(LITATOM (CAR ARGS))
-                                               (SUBPAIR '(X . FLG)
-                                                      ARGS
-                                                      '(SELECTQ X
-                                                           ((NIL T) 
-                                                                (\DTEST *READTABLE* 'READTABLEP))
-                                                           (\GTREADTABLE1 X . FLG]
-                                              (T 'IGNOREMACRO])
+                                      [(LITATOM (CAR ARGS))
+                                       (SUBPAIR '(X . FLG)
+                                              ARGS
+                                              '(SELECTQ X
+                                                   ((NIL T) 
+                                                        (\DTEST *READTABLE* 'READTABLEP))
+                                                   (\GTREADTABLE1 X . FLG]
+                                      (T 'IGNOREMACRO])
 
 (PUTPROPS \GTREADTABLE1 DMACRO [ARGS (COND
-                                                [(NULL (CDR ARGS))
-                                                 (LIST '\DTEST (CAR ARGS)
-                                                       ''READTABLEP]
-                                                (T 'IGNOREMACRO])
+                                        [(NULL (CDR ARGS))
+                                         (LIST '\DTEST (CAR ARGS)
+                                               ''READTABLEP]
+                                        (T 'IGNOREMACRO])
 )
 (DECLARE%: EVAL@COMPILE 
 
@@ -1524,7 +1521,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 )
 
 (RPAQQ READCODEMASKS ((CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1))
-                          (WAKEUPMASK (LOGOR MACROBIT 2))))
+                      (WAKEUPMASK (LOGOR MACROBIT 2))))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQ CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1))
@@ -1537,8 +1534,8 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 )
 
 (RPAQQ READMACROCONTEXTS ((ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0))
-                              (FIRST.RMC (LOGOR MACROBIT 0))
-                              (ALONE.RMC (LOGOR MACROBIT 1))))
+                          (FIRST.RMC (LOGOR MACROBIT 0))
+                          (ALONE.RMC (LOGOR MACROBIT 1))))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQ ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0))
@@ -1604,7 +1601,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 )
 
 (RPAQQ READMACROWAKEUPS ((IMMEDIATE.RMW (LOGOR MACROBIT 2))
-                             (NONIMMEDIATE.RMW (LOGOR MACROBIT 0))))
+                         (NONIMMEDIATE.RMW (LOGOR MACROBIT 0))))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQ IMMEDIATE.RMW (LOGOR MACROBIT 2))
@@ -1617,7 +1614,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 )
 
 (RPAQQ READMACROESCAPES ((ESC.RME ESCAPEBIT)
-                             (NOESC.RME 0)))
+                         (NOESC.RME 0)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQ ESC.RME ESCAPEBIT)
@@ -1631,46 +1628,46 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS READCODE ((ESCAPE (LOGAND DATUM ESCAPEBIT))
-                         (ESCQUOTE (BITTEST DATUM ESCAPEBIT))
-                         (STOPATOM (BITTEST DATUM STOPATOMBIT))
-                         (INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT)))
-                         (MACROCONTEXT (LOGAND DATUM CONTEXTMASK))
-                         (MACROP (BITTEST DATUM MACROBIT))
-                         (WAKEUP (LOGAND DATUM WAKEUPMASK))
-                         (BREAK (BITTEST DATUM BREAKBIT))))
+                     (ESCQUOTE (BITTEST DATUM ESCAPEBIT))
+                     (STOPATOM (BITTEST DATUM STOPATOMBIT))
+                     (INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT)))
+                     (MACROCONTEXT (LOGAND DATUM CONTEXTMASK))
+                     (MACROP (BITTEST DATUM MACROBIT))
+                     (WAKEUP (LOGAND DATUM WAKEUPMASK))
+                     (BREAK (BITTEST DATUM BREAKBIT))))
 
 (RECORD READMACRODEF (MACROTYPE . MACROFN))
 
-(DATATYPE READTABLEP ((READSA POINTER)                   (* ; 
-                                                         "A CHARTABLE defining syntax of each char")
-                          (READMACRODEFS POINTER)            (* ; 
-                                      "A hash table associating macro chars with macro definitions")
-                          (READMACROFLG FLAG)                (* ; 
-           "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)")
-                          (ESCAPEFLG FLAG)                   (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)")
-                          (COMMONLISP FLAG)                  (* ; 
-           "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules")
-                          (NUMBERBASE BITS 5)                (* ; "Not used")
-                          (CASEINSENSITIVE FLAG)             (* ; 
-                         "If true, unescaped lowercase chars are converted to uppercase in symbols")
-                          (COMMONNUMSYNTAX FLAG)             (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers")
-                          (USESILPACKAGE FLAG)               (* ; 
-                                   "If true, IL:READ ignores *PACKAGE* and reads in the IL package")
-                          (NIL 5 FLAG)
-                          (DISPATCHMACRODEFS POINTER)        (* ; 
-                                 "An a-list of dispatching macro char and its dispatch definitions")
-                          (HASHMACROCHAR BYTE)               (* ; 
-                              "The character code used in this read table for the # dispatch macro")
-                          (ESCAPECHAR BYTE)                  (* ; 
-                                     "The character code used in this read table for single escape")
-                          (MULTESCAPECHAR BYTE)              (* ; 
-                                   "The character code used in this read table for multiple escape")
-                          (PACKAGECHAR BYTE)                 (* ; 
-                                 "The character code used in this read table for package delimiter")
-                          (READTBLNAME POINTER)              (* ; 
-                                                          "The canonical 'name' of this read table")
-                          )
-                         READSA _ (create CHARTABLE))
+(DATATYPE READTABLEP ((READSA POINTER)                       (* ; 
+                                                           "A CHARTABLE defining syntax of each char")
+                      (READMACRODEFS POINTER)                (* ; 
+                                        "A hash table associating macro chars with macro definitions")
+                      (READMACROFLG FLAG)                    (* ; 
+             "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)")
+                      (ESCAPEFLG FLAG)                       (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)")
+                      (COMMONLISP FLAG)                      (* ; 
+             "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules")
+                      (NUMBERBASE BITS 5)                    (* ; "Not used")
+                      (CASEINSENSITIVE FLAG)                 (* ; 
+                           "If true, unescaped lowercase chars are converted to uppercase in symbols")
+                      (COMMONNUMSYNTAX FLAG)                 (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers")
+                      (USESILPACKAGE FLAG)                   (* ; 
+                                     "If true, IL:READ ignores *PACKAGE* and reads in the IL package")
+                      (NIL 5 FLAG)
+                      (DISPATCHMACRODEFS POINTER)            (* ; 
+                                   "An a-list of dispatching macro char and its dispatch definitions")
+                      (HASHMACROCHAR BYTE)                   (* ; 
+                                "The character code used in this read table for the # dispatch macro")
+                      (ESCAPECHAR BYTE)                      (* ; 
+                                       "The character code used in this read table for single escape")
+                      (MULTESCAPECHAR BYTE)                  (* ; 
+                                     "The character code used in this read table for multiple escape")
+                      (PACKAGECHAR BYTE)                     (* ; 
+                                   "The character code used in this read table for package delimiter")
+                      (READTBLNAME POINTER)                  (* ; 
+                                                            "The canonical 'name' of this read table")
+                      )
+                     READSA _ (create CHARTABLE))
 )
 
 (/DECLAREDATATYPE 'READTABLEP
@@ -1870,8 +1867,12 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
            REREADTABLEFORM _ READTABLEFORM])
 
 (EQUAL-READER-ENVIRONMENT
-  [LAMBDA (ENV1 ENV2)                                   (* ; "Edited 16-Aug-2021 23:43 by rmk:")
-                                                             (* ; ":XCCS is the prehistoric value")
+  [LAMBDA (ENV1 ENV2)
+
+    (* ;; "Edited 19-Dec-2021 14:09 by rmk: Replace constant :XCCS with *DEFAULT-EXTERNALFORMAT*")
+
+    (* ;; "Edited 19-Dec-2021 14:01 by rmk")
+
     (AND (EQ (fetch (READER-ENVIRONMENT REREADTABLE) of ENV1)
              (fetch (READER-ENVIRONMENT REREADTABLE) of ENV2))
          (EQ (fetch (READER-ENVIRONMENT REPACKAGE) of ENV1)
@@ -1879,9 +1880,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
          (EQ (fetch (READER-ENVIRONMENT REBASE) of ENV1)
              (fetch (READER-ENVIRONMENT REBASE) of ENV2))
          (EQ (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV1)
-                 :XCCS)
+                 *DEFAULT-EXTERNALFORMAT*)
              (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV2)
-                 :XCCS))
+                 *DEFAULT-EXTERNALFORMAT*))
          (EQUAL (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV1)
                 (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV2))
          (EQUAL (fetch (READER-ENVIRONMENT REREADTABLEFORM) of ENV1)
@@ -1924,22 +1925,22 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 (PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1993 2018 
 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (18046 29198 (GETSYNTAX 18056 . 22887) (SETSYNTAX 22889 . 23962) (SYNTAXP 23964 . 26461)
- (\COPYSYNTAX 26463 . 27180) (\GETCHARCODE 27182 . 27470) (\SETFATSYNCODE 27472 . 28763) (
-\MAPCHARTABLE 28765 . 29196)) (29231 44197 (CONTROL 29241 . 29493) (COPYTERMTABLE 29495 . 29862) (
-DELETECONTROL 29864 . 32505) (GETDELETECONTROL 32507 . 33469) (ECHOCHAR 33471 . 34912) (ECHOCONTROL 
-34914 . 35371) (ECHOMODE 35373 . 35619) (GETECHOMODE 35621 . 35785) (GETCONTROL 35787 . 35953) (
-GETTERMTABLE 35955 . 36022) (RAISE 36024 . 36450) (GETRAISE 36452 . 36614) (RESETTERMTABLE 36616 . 
-37700) (SETTERMTABLE 37702 . 37936) (TERMTABLEP 37938 . 38099) (\GETTERMSYNTAX 38101 . 38372) (
-\GTTERMTABLE 38374 . 38710) (\ORIGTERMTABLE 38712 . 42322) (\SETTERMSYNTAX 42324 . 42959) (
-\TERMCLASSTOCODE 42961 . 43390) (\TERMCODETOCLASS 43392 . 43779) (\LITCHECK 43781 . 44195)) (46727 
-70551 (COPYREADTABLE 46737 . 46935) (FIND-READTABLE 46937 . 47084) (IN-READTABLE 47086 . 47246) (
-ESCAPE 47248 . 47501) (GETBRK 47503 . 47641) (GETREADTABLE 47643 . 47779) (GETSEPR 47781 . 47919) (
-READMACROS 47921 . 48184) (READTABLEP 48186 . 48349) (READTABLEPROP 48351 . 53509) (RESETREADTABLE 
-53511 . 57758) (SETBRK 57760 . 59370) (SETREADTABLE 59372 . 59560) (SETSEPR 59562 . 61104) (
-\GETREADSYNTAX 61106 . 63796) (\GTREADTABLE 63798 . 64023) (\GTREADTABLE1 64025 . 64281) (
-\ORIGREADTABLE 64283 . 66191) (\READCLASSTOCODE 66193 . 66644) (\SETMACROSYNTAX 66646 . 68441) (
-\SETREADSYNTAX 68443 . 69504) (\READTABLEP.DEFPRINT 69506 . 70549)) (83643 88096 (\ATBLSET 83653 . 
-88094)) (88543 91975 (MAKE-READER-ENVIRONMENT 88553 . 90231) (EQUAL-READER-ENVIRONMENT 90233 . 91377) 
-(SET-READER-ENVIRONMENT 91379 . 91973)))))
+  (FILEMAP (NIL (17750 28902 (GETSYNTAX 17760 . 22591) (SETSYNTAX 22593 . 23666) (SYNTAXP 23668 . 26165)
+ (\COPYSYNTAX 26167 . 26884) (\GETCHARCODE 26886 . 27174) (\SETFATSYNCODE 27176 . 28467) (
+\MAPCHARTABLE 28469 . 28900)) (28935 43901 (CONTROL 28945 . 29197) (COPYTERMTABLE 29199 . 29566) (
+DELETECONTROL 29568 . 32209) (GETDELETECONTROL 32211 . 33173) (ECHOCHAR 33175 . 34616) (ECHOCONTROL 
+34618 . 35075) (ECHOMODE 35077 . 35323) (GETECHOMODE 35325 . 35489) (GETCONTROL 35491 . 35657) (
+GETTERMTABLE 35659 . 35726) (RAISE 35728 . 36154) (GETRAISE 36156 . 36318) (RESETTERMTABLE 36320 . 
+37404) (SETTERMTABLE 37406 . 37640) (TERMTABLEP 37642 . 37803) (\GETTERMSYNTAX 37805 . 38076) (
+\GTTERMTABLE 38078 . 38414) (\ORIGTERMTABLE 38416 . 42026) (\SETTERMSYNTAX 42028 . 42663) (
+\TERMCLASSTOCODE 42665 . 43094) (\TERMCODETOCLASS 43096 . 43483) (\LITCHECK 43485 . 43899)) (46412 
+70236 (COPYREADTABLE 46422 . 46620) (FIND-READTABLE 46622 . 46769) (IN-READTABLE 46771 . 46931) (
+ESCAPE 46933 . 47186) (GETBRK 47188 . 47326) (GETREADTABLE 47328 . 47464) (GETSEPR 47466 . 47604) (
+READMACROS 47606 . 47869) (READTABLEP 47871 . 48034) (READTABLEPROP 48036 . 53194) (RESETREADTABLE 
+53196 . 57443) (SETBRK 57445 . 59055) (SETREADTABLE 59057 . 59245) (SETSEPR 59247 . 60789) (
+\GETREADSYNTAX 60791 . 63481) (\GTREADTABLE 63483 . 63708) (\GTREADTABLE1 63710 . 63966) (
+\ORIGREADTABLE 63968 . 65876) (\READCLASSTOCODE 65878 . 66329) (\SETMACROSYNTAX 66331 . 68126) (
+\SETREADSYNTAX 68128 . 69189) (\READTABLEP.DEFPRINT 69191 . 70234)) (83068 87521 (\ATBLSET 83078 . 
+87519)) (87968 91406 (MAKE-READER-ENVIRONMENT 87978 . 89656) (EQUAL-READER-ENVIRONMENT 89658 . 90808) 
+(SET-READER-ENVIRONMENT 90810 . 91404)))))
 STOP
diff --git a/sources/ATBL.LCOM b/sources/ATBL.LCOM
index af3880ed..d01f73ac 100644
Binary files a/sources/ATBL.LCOM and b/sources/ATBL.LCOM differ
