diff --git a/library/VTCHAT b/library/VTCHAT
index 7f14664c..0107b106 100644
--- a/library/VTCHAT
+++ b/library/VTCHAT
@@ -1,13 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "30-Sep-2021 17:41:51" {DSK}<Users>briggs>Projects>medley>library>VTCHAT.;4 21924  
 
-      changes to%:  (FNS VTCHAT.STATUS)
+(FILECREATED "20-Feb-2022 11:10:55" {DSK}<home>larry>medley>library>VTCHAT.;2 21881  
 
-      previous date%: "20-Jan-93 15:06:01" {DSK}<Users>briggs>Projects>medley>library>VTCHAT.;3)
+      :CHANGES-TO (VARS VTCHATCOMS)
+
+      :PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}<home>larry>medley>library>VTCHAT.;1)
 
 
 (* ; "
-Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
+Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT VTCHATCOMS)
@@ -31,7 +32,13 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
         (SYSRECORDS VT100.STATE)
         (DECLARE%: DONTEVAL@LOAD DOCOPY (FILES (SYSLOAD)
                                                VT100KP)
-               (ADDVARS (CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100])
+               
+               (* ;; "lmm 2/20/22:")
+
+               
+               (* ;; "(CAAR CHAT.DISPLAYTYPES) had %"replace this string with NIL to prefer VT100 for chat%", now replaced")
+
+               (ADDVARS (CHAT.DISPLAYTYPES (NIL NIL VT100])
 
 
 
@@ -147,27 +154,27 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
 (RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET))
 
 (DATATYPE VT100.STATE ((DINGED FLAG)
-                           (EATLF FLAG)
-                           (EATCRLF FLAG)
-                           (EATTOCRLF FLAG)
-                           (AUTOLF FLAG)
-                           (BLINKMODE FLAG)
-                           (BRIGHTMODE FLAG)
-                           (SMOOTHSCROLL FLAG)
-                           (SIFONT POINTER)
-                           (KEYPADMODE FLAG)
-                           (CURSORMODE FLAG)
-                           (CHARSET0 FLAG)
-                           (CHARSET1 FLAG)
-                           (SOFONT POINTER)
-                           (PARAMCOUNT WORD)
-                           (ADDRESSING WORD)
-                           ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)
-                          VT100MEM _ (create VT100SAVE
-                                            CURSORPOS _ (create POSITION
-                                                               XCOORD _ 1
-                                                               YCOORD _ 1))
-                          PARAMARRAY _ (ARRAY 12 'SMALLP 0 1))
+                       (EATLF FLAG)
+                       (EATCRLF FLAG)
+                       (EATTOCRLF FLAG)
+                       (AUTOLF FLAG)
+                       (BLINKMODE FLAG)
+                       (BRIGHTMODE FLAG)
+                       (SMOOTHSCROLL FLAG)
+                       (SIFONT POINTER)
+                       (KEYPADMODE FLAG)
+                       (CURSORMODE FLAG)
+                       (CHARSET0 FLAG)
+                       (CHARSET1 FLAG)
+                       (SOFONT POINTER)
+                       (PARAMCOUNT WORD)
+                       (ADDRESSING WORD)
+                       ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM)
+                      VT100MEM _ (create VT100SAVE
+                                        CURSORPOS _ (create POSITION
+                                                           XCOORD _ 1
+                                                           YCOORD _ 1))
+                      PARAMARRAY _ (ARRAY 12 'SMALLP 0 1))
 )
 
 (/DECLAREDATATYPE 'VT100.STATE
@@ -227,22 +234,22 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE VT100.STATE ((DINGED FLAG)
-                           (EATLF FLAG)
-                           (EATCRLF FLAG)
-                           (EATTOCRLF FLAG)
-                           (AUTOLF FLAG)
-                           (BLINKMODE FLAG)
-                           (BRIGHTMODE FLAG)
-                           (SMOOTHSCROLL FLAG)
-                           (SIFONT POINTER)
-                           (KEYPADMODE FLAG)
-                           (CURSORMODE FLAG)
-                           (CHARSET0 FLAG)
-                           (CHARSET1 FLAG)
-                           (SOFONT POINTER)
-                           (PARAMCOUNT WORD)
-                           (ADDRESSING WORD)
-                           ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM))
+                       (EATLF FLAG)
+                       (EATCRLF FLAG)
+                       (EATTOCRLF FLAG)
+                       (AUTOLF FLAG)
+                       (BLINKMODE FLAG)
+                       (BRIGHTMODE FLAG)
+                       (SMOOTHSCROLL FLAG)
+                       (SIFONT POINTER)
+                       (KEYPADMODE FLAG)
+                       (CURSORMODE FLAG)
+                       (CHARSET0 FLAG)
+                       (CHARSET1 FLAG)
+                       (SOFONT POINTER)
+                       (PARAMCOUNT WORD)
+                       (ADDRESSING WORD)
+                       ESCAPESEQUENCE VT100MEM PARAMARRAY RELORIGIN INVERTFLG CSTERM))
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
@@ -250,14 +257,14 @@ Copyright (c) 1983-1988, 1990, 1993 by Venue & Xerox Corporation.
        VT100KP)
 
 
-(ADDTOVAR CHAT.DISPLAYTYPES ("Replace this string with NIL to prefer vt100" NIL VT100))
+(ADDTOVAR CHAT.DISPLAYTYPES (NIL NIL VT100))
 )
-(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993))
+(PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1532 9598 (VTCHAT.STATE 1542 . 2052) (VTCHAT.HANDLECHARACTER 2054 . 4628) (
-VTCHAT.SEQUENCE 4630 . 6173) (VTCHAT.DOCOMMAND 6175 . 9596)) (9599 17110 (VTCHAT.ADDRESS 9609 . 10127)
- (VTCHAT.REVERSE.INDEX 10129 . 10698) (VTCHAT.ATTRIBUTES 10700 . 11086) (VTCHAT.DECLFONT 11088 . 11357
-) (VTCHAT.CLEARMODES 11359 . 11862) (VTCHAT.SAVE 11864 . 12603) (VTCHAT.RESTORE 12605 . 13312) (
-VTCHAT.SETMODE 13314 . 14386) (VTCHAT.SETMARGINS 14388 . 14979) (VTCHAT.REPORT 14981 . 15741) (
-VTCHAT.STATUS 15743 . 17108)))))
+  (FILEMAP (NIL (1675 9741 (VTCHAT.STATE 1685 . 2195) (VTCHAT.HANDLECHARACTER 2197 . 4771) (
+VTCHAT.SEQUENCE 4773 . 6316) (VTCHAT.DOCOMMAND 6318 . 9739)) (9742 17253 (VTCHAT.ADDRESS 9752 . 10270)
+ (VTCHAT.REVERSE.INDEX 10272 . 10841) (VTCHAT.ATTRIBUTES 10843 . 11229) (VTCHAT.DECLFONT 11231 . 11500
+) (VTCHAT.CLEARMODES 11502 . 12005) (VTCHAT.SAVE 12007 . 12746) (VTCHAT.RESTORE 12748 . 13455) (
+VTCHAT.SETMODE 13457 . 14529) (VTCHAT.SETMARGINS 14531 . 15122) (VTCHAT.REPORT 15124 . 15884) (
+VTCHAT.STATUS 15886 . 17251)))))
 STOP
diff --git a/library/VTCHAT.LCOM b/library/VTCHAT.LCOM
index 05bb61f0..ea1ed75d 100644
Binary files a/library/VTCHAT.LCOM and b/library/VTCHAT.LCOM differ
