diff --git a/sources/RECORD b/sources/RECORD
index defffff3..b749f7dc 100644
--- a/sources/RECORD
+++ b/sources/RECORD
@@ -1,16 +1,19 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "19-Jan-93 11:15:39" {DSK}<python>lde>lispcore>sources>RECORD.;3 180531 
 
-      previous date%: " 5-Jan-93 02:03:38" {DSK}<python>lde>lispcore>sources>RECORD.;2)
+(FILECREATED " 6-Dec-2021 15:03:47" {DSK}<home>medley>medley>sources>RECORD.;2 181211 
+
+      changes to%:  (VARS RECORDCOMS)
+
+      previous date%: "19-Jan-93 11:15:39" {DSK}<home>medley>medley>sources>RECORD.;1)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1982-1988, 1990, 1993 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT RECORDCOMS)
 
-(RPAQQ RECORDCOMS 
+(RPAQQ RECORDCOMS
        [(FNS RECORDTRAN RECREDECLARE RECREDECLARE1 RECREDECLARE2 RECORDECL RECORDFIELD? RECORDECL0 
              RECORDECL1 RECORDECLBLOCK RECORDECLTAIL CHECKRECORDNAME LISTRECORDEFS 
              RECORD.REMOVE.COMMENTS DECLARERECORD DECLSUBFIELD UNCLISPTRAN RECDEC? ALLOCHASH GETSETQ
@@ -24,7 +27,7 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
              RECFIELDLOOK RECORDCHAIN RECLOOK1 SYSRECLOOK1 TOPPATHS ALLPATHS CHECKDEFS JOINDEF)
         (FNS NOTOKSWAP FIXFIELDORDER FINDFIELDUSAGE EMBEDPROG)
         (FNS RECLISPLOOKUP CONSFN RECORDGENSYM RECORDBIND RECORDERROR SETUPHASHARRAY DWIMIFYREC 
-             MKCONS MKPROGN)
+             MKCONS)
         (FNS RECORDINIT)
         (VARS PATGENSYMVARS)
         (INITVARS (RECORDINIT))
@@ -75,14 +78,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
                        CSUBSTLST DECLARERECORD DECLSUBFIELD DWIMIFYREC EMBEDPROG FIELDLOOK 
                        FIELDNAMESIN FINDFIELDUSAGE FIXDATUM FIXFIELDORDER GETFIELDFORCREATE GETSETQ 
                        HASHLINKS JOINDEF LISTRECORDEFS MAKEACCESS MAKEACCESS1 MAKECREATE0 MAKECREATE1
-                       MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS MKPROGN NOTOKSWAP
-                       REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 
-                       RECORD.FIELD.VALUE RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS 
-                       RECORDBIND RECORDBINDVAL RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 
-                       RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS RECORDERROR RECORDFIELD? 
-                       RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE 
-                       SETUPHASHARRAY SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN 
-                       RECORDPRIORITY
+                       MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS NOTOKSWAP REBINDP
+                       RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 RECORD.FIELD.VALUE
+                       RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL 
+                       RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL 
+                       RECORDECLARATIONS RECORDERROR RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM 
+                       RECORDTRAN RECORDWORD RECREDECLARE SETUPHASHARRAY SIMPLEP SUBDECLARATIONS 
+                       SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
                        (ENTRIES RECORDTRAN CHANGETRAN CLISPRECORD RECORDFIELD? RECORDECLARATIONS 
                               RECORDALLOCATIONS RECORDACCESS RECORDFIELDNAMES RECLOOK SETUPHASHARRAY
                               FIELDLOOK RECORD.FIELD.VALUE DECLARERECORD RECORDPRIORITY)
@@ -2681,13 +2683,6 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
             (NULL CDRPART))
         (CONS 'LIST (CONS CARPART (CDR CDRPART]
        (T (LIST 'CONS CARPART CDRPART])
-
-(MKPROGN
-  [LAMBDA (X)
-    (COND
-       ((NULL (CDR X))
-        (CAR X))
-       (T (CONS 'PROGN X])
 )
 (DEFINEQ
 
@@ -2699,8 +2694,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
     (/SET 'RECORDINIT])
 )
 
-(RPAQQ PATGENSYMVARS 
-       (GENSYMVARS%: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17))
+(RPAQQ PATGENSYMVARS (GENSYMVARS%: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 
+                                $$15 $$16 $$17))
 
 (RPAQ? RECORDINIT )
 
@@ -2870,9 +2865,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 
 (RPAQQ MSBLIP "sysout and inform Masinter@PARC")
 
-(RPAQQ NOSIDEFNS 
-       (fetch CONS NLISTP PROGN APPEND LIST NEQ MEMB MEMBER FMEMB ASSOC TAILP COPY create ELT ELTD 
-              AND OR ADD1 SUB1 IPLUS IDIFFERENCE EQ EQUAL NOT NULL))
+(RPAQQ NOSIDEFNS (fetch CONS NLISTP PROGN APPEND LIST NEQ MEMB MEMBER FMEMB ASSOC TAILP COPY 
+                            create ELT ELTD AND OR ADD1 SUB1 IPLUS IDIFFERENCE EQ EQUAL NOT NULL))
 
 (RPAQQ RECORDSUBSTFLG NIL)
 
@@ -2886,61 +2880,61 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 
 (RPAQQ CLISPRECORDWORDS (smashing using copying reusing SMASHING USING COPYING REUSING))
 
-(PUTPROPS /REPLACE CLISPWORD (RECORDTRAN . /replace))
+(PUTPROPS /REPLACE CLISPWORD (RECORDTRAN . /replace))
 
-(PUTPROPS COPYING CLISPWORD (RECORDTRAN . copying))
+(PUTPROPS COPYING CLISPWORD (RECORDTRAN . copying))
 
-(PUTPROPS FETCH CLISPWORD (RECORDTRAN . fetch))
+(PUTPROPS FETCH CLISPWORD (RECORDTRAN . fetch))
 
-(PUTPROPS FFETCH CLISPWORD (RECORDTRAN . ffetch))
+(PUTPROPS FFETCH CLISPWORD (RECORDTRAN . ffetch))
 
-(PUTPROPS FREPLACE CLISPWORD (RECORDTRAN . freplace))
+(PUTPROPS FREPLACE CLISPWORD (RECORDTRAN . freplace))
 
-(PUTPROPS REPLACE CLISPWORD (RECORDTRAN . replace))
+(PUTPROPS REPLACE CLISPWORD (RECORDTRAN . replace))
 
-(PUTPROPS REUSING CLISPWORD (RECORDTRAN . reusing))
+(PUTPROPS REUSING CLISPWORD (RECORDTRAN . reusing))
 
-(PUTPROPS SMASHING CLISPWORD (RECORDTRAN . smashing))
+(PUTPROPS SMASHING CLISPWORD (RECORDTRAN . smashing))
 
-(PUTPROPS TYPE? CLISPWORD (RECORDTRAN . type?))
+(PUTPROPS TYPE? CLISPWORD (RECORDTRAN . type?))
 
-(PUTPROPS USING CLISPWORD (RECORDTRAN . using))
+(PUTPROPS USING CLISPWORD (RECORDTRAN . using))
 
-(PUTPROPS /replace CLISPWORD (RECORDTRAN . /replace))
+(PUTPROPS /replace CLISPWORD (RECORDTRAN . /replace))
 
-(PUTPROPS copying CLISPWORD (RECORDTRAN . copying))
+(PUTPROPS copying CLISPWORD (RECORDTRAN . copying))
 
-(PUTPROPS fetch CLISPWORD (RECORDTRAN . fetch))
+(PUTPROPS fetch CLISPWORD (RECORDTRAN . fetch))
 
-(PUTPROPS ffetch CLISPWORD (RECORDTRAN . ffetch))
+(PUTPROPS ffetch CLISPWORD (RECORDTRAN . ffetch))
 
-(PUTPROPS freplace CLISPWORD (RECORDTRAN . freplace))
+(PUTPROPS freplace CLISPWORD (RECORDTRAN . freplace))
 
-(PUTPROPS replace CLISPWORD (RECORDTRAN . replace))
+(PUTPROPS replace CLISPWORD (RECORDTRAN . replace))
 
-(PUTPROPS reusing CLISPWORD (RECORDTRAN . reusing))
+(PUTPROPS reusing CLISPWORD (RECORDTRAN . reusing))
 
-(PUTPROPS smashing CLISPWORD (RECORDTRAN . smashing))
+(PUTPROPS smashing CLISPWORD (RECORDTRAN . smashing))
 
-(PUTPROPS type? CLISPWORD (RECORDTRAN . type?))
+(PUTPROPS type? CLISPWORD (RECORDTRAN . type?))
 
-(PUTPROPS using CLISPWORD (RECORDTRAN . using))
+(PUTPROPS using CLISPWORD (RECORDTRAN . using))
 
-(PUTPROPS OF CLISPWORD (RECORDTRAN . of))
+(PUTPROPS OF CLISPWORD (RECORDTRAN . of))
 
-(PUTPROPS of CLISPWORD (RECORDTRAN . of))
+(PUTPROPS of CLISPWORD (RECORDTRAN . of))
 
-(PUTPROPS WITH CLISPWORD (RECORDTRAN . with))
+(PUTPROPS WITH CLISPWORD (RECORDTRAN . with))
 
-(PUTPROPS with CLISPWORD (RECORDTRAN . with))
+(PUTPROPS with CLISPWORD (RECORDTRAN . with))
 
-(PUTPROPS CREATE CLISPWORD (RECORDTRAN . create))
+(PUTPROPS CREATE CLISPWORD (RECORDTRAN . create))
 
-(PUTPROPS create CLISPWORD (RECORDTRAN . create))
+(PUTPROPS create CLISPWORD (RECORDTRAN . create))
 
-(PUTPROPS INITRECORD CLISPWORD (RECORDTRAN . initrecord))
+(PUTPROPS INITRECORD CLISPWORD (RECORDTRAN . initrecord))
 
-(PUTPROPS initrecord CLISPWORD (RECORDTRAN . initrecord))
+(PUTPROPS initrecord CLISPWORD (RECORDTRAN . initrecord))
 (DECLARE%: DONTCOPY 
 (PUTDEF (QUOTE RECORDTYPES) (QUOTE FILEPKGCOMS) '[(COM MACRO
                                                        (X (IFPROP USERRECORDTYPE . X)
@@ -2950,13 +2944,13 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
                                                                                  (MOVD? 'RECORD FN])
 )
 
-(PUTPROPS HASHLINK USERRECORDTYPE [LAMBDA (DEC)
-                                             (CONS 'HASHRECORD (CDR DEC])
+(PUTPROPS HASHLINK USERRECORDTYPE [LAMBDA (DEC)
+                                                 (CONS 'HASHRECORD (CDR DEC])
 
-(PUTPROPS ACCESSFN USERRECORDTYPE [LAMBDA (DEC)
-                                             (CONS 'ACCESSFNS (CDR DEC])
+(PUTPROPS ACCESSFN USERRECORDTYPE [LAMBDA (DEC)
+                                                 (CONS 'ACCESSFNS (CDR DEC])
 
-(PUTPROPS SYNONYM USERRECORDTYPE 
+(PUTPROPS SYNONYM USERRECORDTYPE
           [LAMBDA (DEC)
                  (CONS 'RECORD (CONS (CADR DEC)
                                      (CONS [CAR (OR (LISTP (CADDR DEC))
@@ -2968,9 +2962,9 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
                                                                                 X]
                                                   (CDDDR DEC])
 
-(ADDTOVAR CLISPRECORDTYPES 
-          RECORD TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD ATOMRECORD ARRAYRECORD
-                DATATYPE BLOCKRECORD ASSOCRECORD CACCESSFNS ARRAYBLOCK SYNONYM)
+(ADDTOVAR CLISPRECORDTYPES RECORD TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD 
+                                     ATOMRECORD ARRAYRECORD DATATYPE BLOCKRECORD ASSOCRECORD 
+                                     CACCESSFNS ARRAYBLOCK SYNONYM)
 
 [MAPC '(RECORD TYPERECORD PROPRECORD HASHLINK ACCESSFN ACCESSFNS HASHRECORD ATOMRECORD 
               ARRAYRECORD DATATYPE BLOCKRECORD ASSOCRECORD CACCESSFNS ARRAYBLOCK SYNONYM)
@@ -2979,76 +2973,76 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS CREATE.RECORD MACRO ((FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS ALLOCATIONS 
-                                      DEFAULTFIELDS DECL PRIORITY)
-                               (LIST FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
-                                     ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)))
+(PUTPROPS CREATE.RECORD MACRO ((FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
+                                              ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)
+                                       (LIST FIELDNAMES NAME FIELDINFO CREATEINFO TYPECHECK SUBDECS 
+                                             ALLOCATIONS DEFAULTFIELDS DECL PRIORITY)))
 
-[PUTPROPS ADD.RECORD.SUBDECS MACRO ((TRAN NEWVALUE)
-                                    (FRPLACA (CDR (CDDDDR TRAN))
-                                           (NCONC1 (CADR (CDDDDR TRAN))
-                                                  NEWVALUE]
+(PUTPROPS ADD.RECORD.SUBDECS MACRO ((TRAN NEWVALUE)
+                                            (FRPLACA (CDR (CDDDDR TRAN))
+                                                   (NCONC1 (CADR (CDDDDR TRAN))
+                                                          NEWVALUE))))
 
-[PUTPROPS RECORD.ALLOCATIONS MACRO ((TRAN)
-                                    (CADDR (CDDDDR TRAN]
+(PUTPROPS RECORD.ALLOCATIONS MACRO ((TRAN)
+                                            (CADDR (CDDDDR TRAN))))
 
-(PUTPROPS RECORD.CREATEINFO MACRO ((TRAN)
-                                   (CADDDR TRAN)))
+(PUTPROPS RECORD.CREATEINFO MACRO ((TRAN)
+                                           (CADDDR TRAN)))
 
-[PUTPROPS RECORD.DEFAULTFIELDS MACRO ((TRAN)
-                                      (CADDDR (CDDDDR TRAN]
+(PUTPROPS RECORD.DEFAULTFIELDS MACRO ((TRAN)
+                                              (CADDDR (CDDDDR TRAN))))
 
-(PUTPROPS RECORD.FIELDINFO MACRO ((TRAN)
-                                  (CADDR TRAN)))
+(PUTPROPS RECORD.FIELDINFO MACRO ((TRAN)
+                                          (CADDR TRAN)))
 
-(PUTPROPS RECORD.FIELDNAMES MACRO ((TRAN)
-                                   (CAR TRAN)))
+(PUTPROPS RECORD.FIELDNAMES MACRO ((TRAN)
+                                           (CAR TRAN)))
 
-(PUTPROPS RECORD.NAME MACRO ((TRAN)
-                             (CADR TRAN)))
+(PUTPROPS RECORD.NAME MACRO ((TRAN)
+                                     (CADR TRAN)))
 
-[PUTPROPS RECORD.SUBDECS MACRO (LAMBDA (TRAN)
-                                 (CADR (CDDDDR TRAN]
+(PUTPROPS RECORD.SUBDECS MACRO [LAMBDA (TRAN)
+                                         (CADR (CDDDDR TRAN])
 
-[PUTPROPS RECORD.TYPECHECK MACRO ((TRAN)
-                                  (CAR (CDDDDR TRAN]
+(PUTPROPS RECORD.TYPECHECK MACRO ((TRAN)
+                                          (CAR (CDDDDR TRAN))))
 
-(PUTPROPS SET.RECORD.ALLOCATIONS MACRO ((TRAN NEWVALUE)
-                                        (FRPLACA (CDDR (CDDDDR TRAN))
-                                               NEWVALUE)))
+(PUTPROPS SET.RECORD.ALLOCATIONS MACRO ((TRAN NEWVALUE)
+                                                (FRPLACA (CDDR (CDDDDR TRAN))
+                                                       NEWVALUE)))
 
-(PUTPROPS SET.RECORD.CREATEINFO MACRO ((TRAN NEWVALUE)
-                                       (FRPLACA (CDDDR TRAN)
-                                              NEWVALUE)))
+(PUTPROPS SET.RECORD.CREATEINFO MACRO ((TRAN NEWVALUE)
+                                               (FRPLACA (CDDDR TRAN)
+                                                      NEWVALUE)))
 
-(PUTPROPS SET.RECORD.DEFAULTFIELDS MACRO ((TRAN NEWVALUE)
-                                          (FRPLACA (CDDDR (CDDDDR TRAN))
-                                                 NEWVALUE)))
+(PUTPROPS SET.RECORD.DEFAULTFIELDS MACRO ((TRAN NEWVALUE)
+                                                  (FRPLACA (CDDDR (CDDDDR TRAN))
+                                                         NEWVALUE)))
 
-(PUTPROPS SET.RECORD.FIELDNAMES MACRO ((TRAN NEWVALUE)
-                                       (FRPLACA TRAN NEWVALUE)))
+(PUTPROPS SET.RECORD.FIELDNAMES MACRO ((TRAN NEWVALUE)
+                                               (FRPLACA TRAN NEWVALUE)))
 
-(PUTPROPS SET.RECORD.NAME MACRO ((TRAN NEWVALUE)
-                                 (FRPLACA (CDR TRAN)
-                                        NEWVALUE)))
+(PUTPROPS SET.RECORD.NAME MACRO ((TRAN NEWVALUE)
+                                         (FRPLACA (CDR TRAN)
+                                                NEWVALUE)))
 
-(PUTPROPS SET.RECORD.TYPECHECK MACRO ((TRAN NEWVALUE)
-                                      (FRPLACA (CDDDDR TRAN)
-                                             NEWVALUE)))
+(PUTPROPS SET.RECORD.TYPECHECK MACRO ((TRAN NEWVALUE)
+                                              (FRPLACA (CDDDDR TRAN)
+                                                     NEWVALUE)))
 
-[PUTPROPS RECORD.DECL MACRO ((X)
-                             (CAR (FNTH X 9]
+(PUTPROPS RECORD.DECL MACRO ((X)
+                                     (CAR (FNTH X 9))))
 
-(PUTPROPS SET.RECORD.DECL MACRO ((X Y)
-                                 (FRPLACA (FNTH X 9)
-                                        Y)))
+(PUTPROPS SET.RECORD.DECL MACRO ((X Y)
+                                         (FRPLACA (FNTH X 9)
+                                                Y)))
 
-[PUTPROPS RECORD.PRIORITY MACRO ((X)
-                                 (CAR (FNTH X 10]
+(PUTPROPS RECORD.PRIORITY MACRO ((X)
+                                         (CAR (FNTH X 10))))
 
-(PUTPROPS SET.RECORD.PRIORITY MACRO ((X Y)
-                                     (/RPLACA (FNTH X 10)
-                                            Y)))
+(PUTPROPS SET.RECORD.PRIORITY MACRO ((X Y)
+                                             (/RPLACA (FNTH X 10)
+                                                    Y)))
 )
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -3056,8 +3050,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 (LOCALVARS . T)
 )
 
-(ADDTOVAR SYSLOCALVARS 
-          $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17)
+(ADDTOVAR SYSLOCALVARS $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 
+                               $$17)
 
 
 
@@ -3068,25 +3062,25 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 
 (MOVD 'REPLACEFIELD 'FREPLACEFIELD)
 
-(PUTPROPS FETCHFIELD LISPFN FETCHFIELD)
+(PUTPROPS FETCHFIELD LISPFN FETCHFIELD)
 
-(PUTPROPS FREPLACEFIELD LISPFN FREPLACEFIELD)
+(PUTPROPS FREPLACEFIELD LISPFN FREPLACEFIELD)
 
-(PUTPROPS REPLACEFIELD LISPFN REPLACEFIELD)
+(PUTPROPS REPLACEFIELD LISPFN REPLACEFIELD)
 
-(PUTPROPS FETCHFIELD CLISPCLASS FETCHFIELD)
+(PUTPROPS FETCHFIELD CLISPCLASS FETCHFIELD)
 
-(PUTPROPS FFETCHFIELD CLISPCLASS FETCHFIELD)
+(PUTPROPS FFETCHFIELD CLISPCLASS FETCHFIELD)
 
-(PUTPROPS FREPLACEFIELD CLISPCLASS REPLACEFIELD)
+(PUTPROPS FREPLACEFIELD CLISPCLASS REPLACEFIELD)
 
-(PUTPROPS /REPLACEFIELD CLISPCLASS REPLACEFIELD)
+(PUTPROPS /REPLACEFIELD CLISPCLASS REPLACEFIELD)
 
-(PUTPROPS REPLACEFIELD CLISPCLASS REPLACEFIELD)
+(PUTPROPS REPLACEFIELD CLISPCLASS REPLACEFIELD)
 
-(PUTPROPS FETCHFIELD CLISPCLASSDEF (ACCESS FETCHFIELD NIL FFETCHFIELD))
+(PUTPROPS FETCHFIELD CLISPCLASSDEF (ACCESS FETCHFIELD NIL FFETCHFIELD))
 
-(PUTPROPS REPLACEFIELD CLISPCLASSDEF (ACCESS REPLACEFIELD /REPLACEFIELD FREPLACEFIELD))
+(PUTPROPS REPLACEFIELD CLISPCLASSDEF (ACCESS REPLACEFIELD /REPLACEFIELD FREPLACEFIELD))
 
 (ADDTOVAR DECLWORDS FFETCHFIELD FETCHFIELD REPLACEFIELD FREPLACEFIELD /REPLACEFIELD)
 
@@ -3103,41 +3097,41 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 (* ; "for CHANGETRAN")
 
 
-(PUTPROPS ADD CLISPWORD (CHANGETRAN . add))
+(PUTPROPS ADD CLISPWORD (CHANGETRAN . add))
 
-(PUTPROPS CHANGE CLISPWORD (CHANGETRAN . change))
+(PUTPROPS CHANGE CLISPWORD (CHANGETRAN . change))
 
-(PUTPROPS POP CLISPWORD (CHANGETRAN . pop))
+(PUTPROPS POP CLISPWORD (CHANGETRAN . pop))
 
-(PUTPROPS PUSH CLISPWORD (CHANGETRAN . push))
+(PUTPROPS PUSH CLISPWORD (CHANGETRAN . push))
 
-(PUTPROPS PUSHNEW CLISPWORD (CHANGETRAN . pushnew))
+(PUTPROPS PUSHNEW CLISPWORD (CHANGETRAN . pushnew))
 
-(PUTPROPS PUSHLIST CLISPWORD (CHANGETRAN . pushlist))
+(PUTPROPS PUSHLIST CLISPWORD (CHANGETRAN . pushlist))
 
-(PUTPROPS add CLISPWORD (CHANGETRAN . add))
+(PUTPROPS add CLISPWORD (CHANGETRAN . add))
 
-(PUTPROPS change CLISPWORD (CHANGETRAN . change))
+(PUTPROPS change CLISPWORD (CHANGETRAN . change))
 
-(PUTPROPS pop CLISPWORD (CHANGETRAN . pop))
+(PUTPROPS pop CLISPWORD (CHANGETRAN . pop))
 
-(PUTPROPS push CLISPWORD (CHANGETRAN . push))
+(PUTPROPS push CLISPWORD (CHANGETRAN . push))
 
-(PUTPROPS pushnew CLISPWORD (CHANGETRAN . pushnew))
+(PUTPROPS pushnew CLISPWORD (CHANGETRAN . pushnew))
 
-(PUTPROPS pushlist CLISPWORD (CHANGETRAN . pushlist))
+(PUTPROPS pushlist CLISPWORD (CHANGETRAN . pushlist))
 
-(PUTPROPS SWAP CLISPWORD (CHANGETRAN . swap))
+(PUTPROPS SWAP CLISPWORD (CHANGETRAN . swap))
 
-(PUTPROPS swap CLISPWORD (CHANGETRAN . swap))
+(PUTPROPS swap CLISPWORD (CHANGETRAN . swap))
 
-(PUTPROPS /push CLISPWORD (CHANGETRAN . /push))
+(PUTPROPS /push CLISPWORD (CHANGETRAN . /push))
 
-(PUTPROPS /pushnew CLISPWORD (CHANGETRAN . /pushnew))
+(PUTPROPS /pushnew CLISPWORD (CHANGETRAN . /pushnew))
 
-(PUTPROPS /PUSH CLISPWORD (CHANGETRAN . /push))
+(PUTPROPS /PUSH CLISPWORD (CHANGETRAN . /push))
 
-(PUTPROPS /PUSHNEW CLISPWORD (CHANGETRAN . /pushnew))
+(PUTPROPS /PUSHNEW CLISPWORD (CHANGETRAN . /pushnew))
 (DEFINEQ
 
 (CHANGETRAN
@@ -3291,37 +3285,37 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
           (RECORDERROR 'CHANGE FORM RECORDEXPRESSION])
 )
 
-(PUTPROPS GETP SETFN PUT)
+(PUTPROPS GETP SETFN PUT)
 
-(PUTPROPS GETPROP SETFN PUTPROP)
+(PUTPROPS GETPROP SETFN PUTPROP)
 
-(PUTPROPS EVALV SETFN SET)
+(PUTPROPS EVALV SETFN SET)
 
-(PUTPROPS GETATOMVAL SETFN SETATOMVAL)
+(PUTPROPS GETATOMVAL SETFN SETATOMVAL)
 
-(PUTPROPS OPENR SETFN CLOSER)
+(PUTPROPS OPENR SETFN CLOSER)
 
-(PUTPROPS WORDCONTENTS SETFN SETWORDCONTENTS)
+(PUTPROPS WORDCONTENTS SETFN SETWORDCONTENTS)
 
-(PUTPROPS \GETBASE SETFN \PUTBASE)
+(PUTPROPS \GETBASE SETFN \PUTBASE)
 
-(PUTPROPS \GETBASEBYTE SETFN \PUTBASEBYTE)
+(PUTPROPS \GETBASEBYTE SETFN \PUTBASEBYTE)
 
-(PUTPROPS \GETBASEBIT SETFN \PUTBASEBIT)
+(PUTPROPS \GETBASEBIT SETFN \PUTBASEBIT)
 
-(PUTPROPS FETCHFIELD SETFN REPLACEFIELD)
+(PUTPROPS FETCHFIELD SETFN REPLACEFIELD)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
 
 (BLOCK%: RECORDBLOCK ACCESSDEF ACCESSDEF4 ALLFIELDS ALLOCHASH ALLPATHS CHANGETRAN CHANGETRAN1 
        CHECKDEFS CHECKRECORDNAME CLISPRECORD CONSFN COPY1 CREATEFIELDS CSUBST RECONS CSUBSTLST 
        DECLARERECORD DECLSUBFIELD DWIMIFYREC EMBEDPROG FIELDLOOK FIELDNAMESIN FINDFIELDUSAGE FIXDATUM
        FIXFIELDORDER GETFIELDFORCREATE GETSETQ HASHLINKS JOINDEF LISTRECORDEFS MAKEACCESS MAKEACCESS1
-       MAKECREATE0 MAKECREATE1 MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS MKPROGN 
-       NOTOKSWAP REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 
-       RECORD.FIELD.VALUE RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL
-       RECORDCHAIN RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS 
-       RECORDERROR RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE 
-       SETUPHASHARRAY SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
+       MAKECREATE0 MAKECREATE1 MAKECREATELST MAKECREATELST1 MAKEHASHLINKS MKACCESSFN MKCONS NOTOKSWAP
+       REBINDP RECDEC? RECEVAL RECFIELDLOOK RECLISPLOOKUP RECLOOK RECLOOK1 RECORD.FIELD.VALUE 
+       RECORD.FIELD.VALUE0 RECORDACCESS RECORDALLOCATIONS RECORDBIND RECORDBINDVAL RECORDCHAIN 
+       RECORDECL RECORDECL0 RECORDECL1 RECORDECLBLOCK RECORDECLTAIL RECORDECLARATIONS RECORDERROR 
+       RECORDFIELD? RECORDFIELDNAMES RECORDGENSYM RECORDTRAN RECORDWORD RECREDECLARE SETUPHASHARRAY 
+       SIMPLEP SUBDECLARATIONS SUBFIELDCREATE TOPPATHS UNCLISPTRAN RECORDPRIORITY
        (ENTRIES RECORDTRAN CHANGETRAN CLISPRECORD RECORDFIELD? RECORDECLARATIONS RECORDALLOCATIONS 
               RECORDACCESS RECORDFIELDNAMES RECLOOK SETUPHASHARRAY FIELDLOOK RECORD.FIELD.VALUE 
               DECLARERECORD RECORDPRIORITY)
@@ -3352,10 +3346,10 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 )
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
-(ADDTOVAR NLAMA 
-          EDITREC SAVEONSYSRECLST RECORDALLOCATIONS RECORDECLARATIONS SYNONYM ARRAYBLOCK CACCESSFNS 
-                ASSOCRECORD BLOCKRECORD DATATYPE ARRAYRECORD ATOMRECORD HASHRECORD ACCESSFNS ACCESSFN
-                HASHLINK PROPRECORD TYPERECORD RECORD MESATYPE MESARECORD MESAARRAY)
+(ADDTOVAR NLAMA EDITREC SAVEONSYSRECLST RECORDALLOCATIONS RECORDECLARATIONS SYNONYM ARRAYBLOCK 
+                          CACCESSFNS ASSOCRECORD BLOCKRECORD DATATYPE ARRAYRECORD ATOMRECORD 
+                          HASHRECORD ACCESSFNS ACCESSFN HASHLINK PROPRECORD TYPERECORD RECORD 
+                          MESATYPE MESARECORD MESAARRAY)
 
 (ADDTOVAR NLAML )
 
@@ -3363,35 +3357,35 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xe
 )
 (PUTPROPS RECORD COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7343 65283 (RECORDTRAN 7353 . 20527) (RECREDECLARE 20529 . 20824) (RECREDECLARE1 20826
- . 21171) (RECREDECLARE2 21173 . 21848) (RECORDECL 21850 . 22669) (RECORDFIELD? 22671 . 23468) (
-RECORDECL0 23470 . 24090) (RECORDECL1 24092 . 36143) (RECORDECLBLOCK 36145 . 41124) (RECORDECLTAIL 
-41126 . 45294) (CHECKRECORDNAME 45296 . 46204) (LISTRECORDEFS 46206 . 46982) (RECORD.REMOVE.COMMENTS 
-46984 . 47560) (DECLARERECORD 47562 . 51978) (DECLSUBFIELD 51980 . 53888) (UNCLISPTRAN 53890 . 54183) 
-(RECDEC? 54185 . 54552) (ALLOCHASH 54554 . 55283) (GETSETQ 55285 . 58665) (RECORDACCESS 58667 . 61189)
- (RECORDFIELDNAMES 61191 . 62023) (RECEVAL 62025 . 62577) (FIELDLOOK 62579 . 62660) (SIMPLEP 62662 . 
-63621) (RECORDBINDVAL 63623 . 63740) (RECORDPRIORITY 63742 . 64713) (RECORDACCESSFORM 64715 . 65281)) 
-(65284 109137 (RECORDWORD 65294 . 66069) (MAKECREATE0 66071 . 66406) (MAKECREATE1 66408 . 85743) (
-CREATEFIELDS 85745 . 86132) (REBINDP 86134 . 86458) (CSUBST 86460 . 93818) (RECONS 93820 . 94022) (
-COPY1 94024 . 94226) (CSUBSTLST 94228 . 94499) (RECORD.FIELD.VALUE 94501 . 94840) (RECORD.FIELD.VALUE0
- 94842 . 95172) (MAKECREATELST 95174 . 95432) (SMASHPATTERN 95434 . 95846) (SMASHPAT1 95848 . 96859) (
-MAKECREATELST1 96861 . 98781) (GETFIELDFORCREATE 98783 . 102137) (SUBFIELDCREATE 102139 . 104415) (
-MAKEHASHLINKS 104417 . 105631) (HASHLINKS 105633 . 106110) (RECLOOK 106112 . 107851) (ALLFIELDS 107853
- . 108310) (SUBDECLARATIONS 108312 . 109135)) (109138 134187 (CLISPRECORD 109148 . 111644) (ACCESSDEF 
-111646 . 115722) (FIELDNAMESIN 115724 . 115948) (ACCESSDEF4 115950 . 118682) (MAKEACCESS 118684 . 
-119089) (MAKEACCESS1 119091 . 124732) (MKACCESSFN 124734 . 126007) (RECFIELDLOOK 126009 . 127846) (
-RECORDCHAIN 127848 . 128376) (RECLOOK1 128378 . 128775) (SYSRECLOOK1 128777 . 129078) (TOPPATHS 129080
- . 129357) (ALLPATHS 129359 . 131893) (CHECKDEFS 131895 . 133437) (JOINDEF 133439 . 134185)) (134188 
-145499 (NOTOKSWAP 134198 . 134344) (FIXFIELDORDER 134346 . 141160) (FINDFIELDUSAGE 141162 . 142632) (
-EMBEDPROG 142634 . 145497)) (145500 151566 (RECLISPLOOKUP 145510 . 146565) (CONSFN 146567 . 146722) (
-RECORDGENSYM 146724 . 146905) (RECORDBIND 146907 . 147158) (RECORDERROR 147160 . 150090) (
-SETUPHASHARRAY 150092 . 150405) (DWIMIFYREC 150407 . 151168) (MKCONS 151170 . 151459) (MKPROGN 151461
- . 151564)) (151567 151853 (RECORDINIT 151577 . 151851)) (152082 154890 (RECORD 152095 . 152550) (
-TYPERECORD 152552 . 152718) (PROPRECORD 152720 . 152886) (HASHLINK 152888 . 153050) (ACCESSFN 153052
- . 153214) (ACCESSFNS 153216 . 153380) (HASHRECORD 153382 . 153548) (ATOMRECORD 153550 . 153716) (
-ARRAYRECORD 153718 . 153886) (DATATYPE 153888 . 154050) (BLOCKRECORD 154052 . 154220) (ASSOCRECORD 
-154222 . 154390) (CACCESSFNS 154392 . 154558) (ARRAYBLOCK 154560 . 154726) (SYNONYM 154728 . 154888)) 
-(154891 159156 (RECORDECLARATIONS 154901 . 157428) (RECORDALLOCATIONS 157430 . 157741) (
-SAVEONSYSRECLST 157743 . 159154)) (168425 177163 (CHANGETRAN 168435 . 168577) (CHANGETRAN1 168579 . 
-171180) (FIXDATUM 171182 . 177161)) (179755 179985 (EDITREC 179765 . 179983)))))
+  (FILEMAP (NIL (7288 65228 (RECORDTRAN 7298 . 20472) (RECREDECLARE 20474 . 20769) (RECREDECLARE1 20771
+ . 21116) (RECREDECLARE2 21118 . 21793) (RECORDECL 21795 . 22614) (RECORDFIELD? 22616 . 23413) (
+RECORDECL0 23415 . 24035) (RECORDECL1 24037 . 36088) (RECORDECLBLOCK 36090 . 41069) (RECORDECLTAIL 
+41071 . 45239) (CHECKRECORDNAME 45241 . 46149) (LISTRECORDEFS 46151 . 46927) (RECORD.REMOVE.COMMENTS 
+46929 . 47505) (DECLARERECORD 47507 . 51923) (DECLSUBFIELD 51925 . 53833) (UNCLISPTRAN 53835 . 54128) 
+(RECDEC? 54130 . 54497) (ALLOCHASH 54499 . 55228) (GETSETQ 55230 . 58610) (RECORDACCESS 58612 . 61134)
+ (RECORDFIELDNAMES 61136 . 61968) (RECEVAL 61970 . 62522) (FIELDLOOK 62524 . 62605) (SIMPLEP 62607 . 
+63566) (RECORDBINDVAL 63568 . 63685) (RECORDPRIORITY 63687 . 64658) (RECORDACCESSFORM 64660 . 65226)) 
+(65229 109082 (RECORDWORD 65239 . 66014) (MAKECREATE0 66016 . 66351) (MAKECREATE1 66353 . 85688) (
+CREATEFIELDS 85690 . 86077) (REBINDP 86079 . 86403) (CSUBST 86405 . 93763) (RECONS 93765 . 93967) (
+COPY1 93969 . 94171) (CSUBSTLST 94173 . 94444) (RECORD.FIELD.VALUE 94446 . 94785) (RECORD.FIELD.VALUE0
+ 94787 . 95117) (MAKECREATELST 95119 . 95377) (SMASHPATTERN 95379 . 95791) (SMASHPAT1 95793 . 96804) (
+MAKECREATELST1 96806 . 98726) (GETFIELDFORCREATE 98728 . 102082) (SUBFIELDCREATE 102084 . 104360) (
+MAKEHASHLINKS 104362 . 105576) (HASHLINKS 105578 . 106055) (RECLOOK 106057 . 107796) (ALLFIELDS 107798
+ . 108255) (SUBDECLARATIONS 108257 . 109080)) (109083 134132 (CLISPRECORD 109093 . 111589) (ACCESSDEF 
+111591 . 115667) (FIELDNAMESIN 115669 . 115893) (ACCESSDEF4 115895 . 118627) (MAKEACCESS 118629 . 
+119034) (MAKEACCESS1 119036 . 124677) (MKACCESSFN 124679 . 125952) (RECFIELDLOOK 125954 . 127791) (
+RECORDCHAIN 127793 . 128321) (RECLOOK1 128323 . 128720) (SYSRECLOOK1 128722 . 129023) (TOPPATHS 129025
+ . 129302) (ALLPATHS 129304 . 131838) (CHECKDEFS 131840 . 133382) (JOINDEF 133384 . 134130)) (134133 
+145444 (NOTOKSWAP 134143 . 134289) (FIXFIELDORDER 134291 . 141105) (FINDFIELDUSAGE 141107 . 142577) (
+EMBEDPROG 142579 . 145442)) (145445 151406 (RECLISPLOOKUP 145455 . 146510) (CONSFN 146512 . 146667) (
+RECORDGENSYM 146669 . 146850) (RECORDBIND 146852 . 147103) (RECORDERROR 147105 . 150035) (
+SETUPHASHARRAY 150037 . 150350) (DWIMIFYREC 150352 . 151113) (MKCONS 151115 . 151404)) (151407 151693 
+(RECORDINIT 151417 . 151691)) (151947 154755 (RECORD 151960 . 152415) (TYPERECORD 152417 . 152583) (
+PROPRECORD 152585 . 152751) (HASHLINK 152753 . 152915) (ACCESSFN 152917 . 153079) (ACCESSFNS 153081 . 
+153245) (HASHRECORD 153247 . 153413) (ATOMRECORD 153415 . 153581) (ARRAYRECORD 153583 . 153751) (
+DATATYPE 153753 . 153915) (BLOCKRECORD 153917 . 154085) (ASSOCRECORD 154087 . 154255) (CACCESSFNS 
+154257 . 154423) (ARRAYBLOCK 154425 . 154591) (SYNONYM 154593 . 154753)) (154756 159021 (
+RECORDECLARATIONS 154766 . 157293) (RECORDALLOCATIONS 157295 . 157606) (SAVEONSYSRECLST 157608 . 
+159019)) (169036 177774 (CHANGETRAN 169046 . 169188) (CHANGETRAN1 169190 . 171791) (FIXDATUM 171793 . 
+177772)) (180398 180628 (EDITREC 180408 . 180626)))))
 STOP
diff --git a/sources/RECORD.LCOM b/sources/RECORD.LCOM
index 9c38f6d2..78c43698 100644
Binary files a/sources/RECORD.LCOM and b/sources/RECORD.LCOM differ
