diff --git a/library/VTCHAT b/library/VTCHAT
index 0107b106..f1c909d9 100644
--- a/library/VTCHAT
+++ b/library/VTCHAT
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "20-Feb-2022 11:10:55" {DSK}<home>larry>medley>library>VTCHAT.;2 21881  
+(FILECREATED " 3-Aug-2022 11:30:53" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;3 21940  
 
-      :CHANGES-TO (VARS VTCHATCOMS)
+      :CHANGES-TO (RECORDS VT100SAVE)
 
-      :PREVIOUS-DATE "30-Sep-2021 17:41:51" {DSK}<home>larry>medley>library>VTCHAT.;1)
+      :PREVIOUS-DATE "20-Feb-2022 11:10:55" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>VTCHAT.;2)
 
 
 (* ; "
@@ -151,7 +153,7 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
 
 (DECLARE%: EVAL@COMPILE
 
-(RECORD VT100SAVE (CURSORPOS CHARATTR CHARSET))
+(RECORD VT100SAVE (CURSORPOS CHARATTR VTSCHARSET))
 
 (DATATYPE VT100.STATE ((DINGED FLAG)
                        (EATLF FLAG)
@@ -261,10 +263,10 @@ Copyright (c) 1983-1988, 1990, 1993, 2022 by Venue & Xerox Corporation.
 )
 (PUTPROPS VTCHAT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1990 1993 2022))
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (1731 9797 (VTCHAT.STATE 1741 . 2251) (VTCHAT.HANDLECHARACTER 2253 . 4827) (
+VTCHAT.SEQUENCE 4829 . 6372) (VTCHAT.DOCOMMAND 6374 . 9795)) (9798 17309 (VTCHAT.ADDRESS 9808 . 10326)
+ (VTCHAT.REVERSE.INDEX 10328 . 10897) (VTCHAT.ATTRIBUTES 10899 . 11285) (VTCHAT.DECLFONT 11287 . 11556
+) (VTCHAT.CLEARMODES 11558 . 12061) (VTCHAT.SAVE 12063 . 12802) (VTCHAT.RESTORE 12804 . 13511) (
+VTCHAT.SETMODE 13513 . 14585) (VTCHAT.SETMARGINS 14587 . 15178) (VTCHAT.REPORT 15180 . 15940) (
+VTCHAT.STATUS 15942 . 17307)))))
 STOP
diff --git a/library/VTCHAT.LCOM b/library/VTCHAT.LCOM
index ea1ed75d..46b82296 100644
Binary files a/library/VTCHAT.LCOM and b/library/VTCHAT.LCOM differ
diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES
index 911e9218..70f74eb4 100644
--- a/lispusers/COMPAREDIRECTORIES
+++ b/lispusers/COMPAREDIRECTORIES
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Jul-2022 15:31:50" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;248 128327 
+(FILECREATED "11-Aug-2022 21:10:25" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;249 128449 
 
       :CHANGES-TO (FNS CDBROWSER.STRINGS)
 
-      :PREVIOUS-DATE "20-Jul-2022 21:20:33" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;247)
+      :PREVIOUS-DATE "25-Jul-2022 15:31:50" 
+{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>COMPAREDIRECTORIES.;1)
 
 
 (* ; "
@@ -1707,7 +1707,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
              BROWSER)])
 
 (CDBROWSER.STRINGS
-  [LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS)           (* ; "Edited 25-Jul-2022 15:31 by rmk")
+  [LAMBDA (CDVALUE COLHEADINGS SEPARATEDIRECTIONS)           (* ; "Edited 11-Aug-2022 20:23 by rmk")
+                                                             (* ; "Edited 25-Jul-2022 15:31 by rmk")
                                                              (* ; "Edited 20-Jul-2022 21:14 by rmk")
                                                              (* ; "Edited 22-Feb-2022 18:30 by rmk")
                                                              (* ; "Edited 14-Dec-2021 21:03 by rmk")
@@ -1758,8 +1759,8 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
                      (* ;; "Stick a blank object between")
 
                      (SETQ PAIRS (NCONC (DREVERSE L2R)
-                                        `(("")
-                                          (""))
+                                        [APPEND '(("")
+                                                  (""]
                                         (DREVERSE R2L)))))
              (CL:WHEN COLHEADERS
                  (PUSH PAIRS (LIST COLHEADERS)))
@@ -2153,25 +2154,25 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
 (PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1994 1998
  2018 2020 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2634 22191 (COMPAREDIRECTORIES 2644 . 7477) (COMPAREDIRECTORIES.INFOS 7479 . 10353) (
-COMPAREDIRECTORIES.CANDIDATES 10355 . 13740) (CDENTRIES.SELECT 13742 . 18517) (
-COMPAREDIRECTORIES.INFOS.TYPE 18519 . 19425) (MATCHNAME 19427 . 20107) (CD.INSURECDVALUE 20109 . 21723
-) (CD.UPDATEWIDTHS 21725 . 22189)) (22192 31861 (CDFILES 22202 . 27955) (CDFILES.MATCH 27957 . 29582) 
-(CDFILES.PATS 29584 . 31859)) (31862 49683 (CDPRINT 31872 . 34389) (CDPRINT.HEADER 34391 . 35288) (
-CDPRINT.LINE 35290 . 38522) (CDPRINT.MAXWIDTHS 38524 . 42639) (CDPRINT.COLHEADERS 42641 . 43926) (
-CDPRINT.COLUMNS 43928 . 49048) (CDTEDIT 49050 . 49681)) (49684 58053 (CDMAP 49694 . 51126) (CDENTRY 
-51128 . 51437) (CDSUBSET 51439 . 52878) (CDMERGE 52880 . 56734) (CDMERGE.COMMON 56736 . 58051)) (58054
- 65592 (BINCOMP 58064 . 62353) (EOLTYPE 62355 . 64917) (EOLTYPE.SHOW 64919 . 65590)) (66120 78647 (
-FIND-UNCOMPILED-FILES 66130 . 69773) (FIND-UNSOURCED-FILES 69775 . 72159) (FIND-SOURCE-FILES 72161 . 
-73899) (FIND-COMPILED-FILES 73901 . 75778) (FIND-UNLOADED-FILES 75780 . 76633) (FIND-LOADED-FILES 
-76635 . 77063) (FIND-MULTICOMPILED-FILES 77065 . 78645)) (78648 87079 (CREATED-AS 78658 . 83455) (
-SOURCE-FOR-COMPILED-P 83457 . 86384) (COMPILE-SOURCE-DATE-DIFF 86386 . 87077)) (87080 97386 (
-FIX-DIRECTORY-DATES 87090 . 90083) (FIX-EQUIV-DATES 90085 . 91610) (COPY-COMPARED-FILES 91612 . 93433)
- (COPY-MISSING-FILES 93435 . 95592) (COMPILED-ON-SAME-SOURCE 95594 . 97384)) (97580 105189 (CDBROWSER 
-97590 . 101517) (CDBROWSER.STRINGS 101519 . 105187)) (105351 107087 (CD.TABLEITEM 105361 . 105581) (
-CD.TABLEITEM.PRINTFN 105583 . 105782) (CD.TABLEITEM.COPYFN 105784 . 106842) (
-CDTABLEBROWSER.HEADING.REPAINTFN 106844 . 107085)) (107088 127743 (CDTABLEBROWSER.WHENSELECTEDFN 
-107098 . 107566) (CD.COMMANDSELECTEDFN 107568 . 112669) (CD-MENUFN 112671 . 116982) (CD-COMPARE-FILES 
-116984 . 120336) (CDBROWSER-COPY 120338 . 124007) (CDBROWSER-DELETE-FILE 124009 . 127222) (CD-SWAPDIRS
- 127224 . 127741)))))
+  (FILEMAP (NIL (2632 22189 (COMPAREDIRECTORIES 2642 . 7475) (COMPAREDIRECTORIES.INFOS 7477 . 10351) (
+COMPAREDIRECTORIES.CANDIDATES 10353 . 13738) (CDENTRIES.SELECT 13740 . 18515) (
+COMPAREDIRECTORIES.INFOS.TYPE 18517 . 19423) (MATCHNAME 19425 . 20105) (CD.INSURECDVALUE 20107 . 21721
+) (CD.UPDATEWIDTHS 21723 . 22187)) (22190 31859 (CDFILES 22200 . 27953) (CDFILES.MATCH 27955 . 29580) 
+(CDFILES.PATS 29582 . 31857)) (31860 49681 (CDPRINT 31870 . 34387) (CDPRINT.HEADER 34389 . 35286) (
+CDPRINT.LINE 35288 . 38520) (CDPRINT.MAXWIDTHS 38522 . 42637) (CDPRINT.COLHEADERS 42639 . 43924) (
+CDPRINT.COLUMNS 43926 . 49046) (CDTEDIT 49048 . 49679)) (49682 58051 (CDMAP 49692 . 51124) (CDENTRY 
+51126 . 51435) (CDSUBSET 51437 . 52876) (CDMERGE 52878 . 56732) (CDMERGE.COMMON 56734 . 58049)) (58052
+ 65590 (BINCOMP 58062 . 62351) (EOLTYPE 62353 . 64915) (EOLTYPE.SHOW 64917 . 65588)) (66118 78645 (
+FIND-UNCOMPILED-FILES 66128 . 69771) (FIND-UNSOURCED-FILES 69773 . 72157) (FIND-SOURCE-FILES 72159 . 
+73897) (FIND-COMPILED-FILES 73899 . 75776) (FIND-UNLOADED-FILES 75778 . 76631) (FIND-LOADED-FILES 
+76633 . 77061) (FIND-MULTICOMPILED-FILES 77063 . 78643)) (78646 87077 (CREATED-AS 78656 . 83453) (
+SOURCE-FOR-COMPILED-P 83455 . 86382) (COMPILE-SOURCE-DATE-DIFF 86384 . 87075)) (87078 97384 (
+FIX-DIRECTORY-DATES 87088 . 90081) (FIX-EQUIV-DATES 90083 . 91608) (COPY-COMPARED-FILES 91610 . 93431)
+ (COPY-MISSING-FILES 93433 . 95590) (COMPILED-ON-SAME-SOURCE 95592 . 97382)) (97578 105311 (CDBROWSER 
+97588 . 101515) (CDBROWSER.STRINGS 101517 . 105309)) (105473 107209 (CD.TABLEITEM 105483 . 105703) (
+CD.TABLEITEM.PRINTFN 105705 . 105904) (CD.TABLEITEM.COPYFN 105906 . 106964) (
+CDTABLEBROWSER.HEADING.REPAINTFN 106966 . 107207)) (107210 127865 (CDTABLEBROWSER.WHENSELECTEDFN 
+107220 . 107688) (CD.COMMANDSELECTEDFN 107690 . 112791) (CD-MENUFN 112793 . 117104) (CD-COMPARE-FILES 
+117106 . 120458) (CDBROWSER-COPY 120460 . 124129) (CDBROWSER-DELETE-FILE 124131 . 127344) (CD-SWAPDIRS
+ 127346 . 127863)))))
 STOP
diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM
index 558cb081..c2f1db4b 100644
Binary files a/lispusers/COMPAREDIRECTORIES.LCOM and b/lispusers/COMPAREDIRECTORIES.LCOM differ
diff --git a/lispusers/GITFNS b/lispusers/GITFNS
index bd379b57..1a38c6e7 100644
--- a/lispusers/GITFNS
+++ b/lispusers/GITFNS
@@ -1,11 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Aug-2022 09:35:32" {DSK}<home>larry>medley>lispusers>GITFNS.;5 115355 
+(FILECREATED "11-Aug-2022 17:54:59" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>GITFNS.;444 115395 
 
-      :CHANGES-TO (VARS GITFNSCOMS)
-                  (FNS GIT-MAKE-PROJECT GIT-INIT GIT-INIT-MEDLEY)
+      :CHANGES-TO (FNS GIT-MAKE-PROJECT GIT-INIT)
+                  (VARS GITFNSCOMS)
 
-      :PREVIOUS-DATE "25-Jul-2022 15:14:26" {DSK}<home>larry>medley>lispusers>GITFNS.;1)
+      :PREVIOUS-DATE "25-Jul-2022 15:14:26" 
+{DSK}<Users>kaplan>Local>medley3.5>release-medley>lispusers>GITFNS.;1)
 
 
 (PRETTYCOMPRINT GITFNSCOMS)
@@ -161,7 +163,7 @@
 
 (GIT-MAKE-PROJECT
   [LAMBDA (PROJECTNAME PROJECTPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)
-                                                             (* ; "Edited  8-Aug-2022 22:03 by lmm")
+                                                             (* ; "Edited 11-Aug-2022 17:54 by rmk")
                                                              (* ; "Edited 13-Jul-2022 13:47 by rmk")
                                                              (* ; "Edited  6-Jul-2022 19:34 by rmk")
                                                              (* ; "Edited 17-May-2022 17:08 by rmk")
@@ -2158,31 +2160,31 @@
 
 (PUTPROPS GITFNS FILETYPE :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3965 19213 (GIT-CLONEP 3975 . 5238) (GIT-INIT 5240 . 5667) (GIT-MAKE-PROJECT 5669 . 
-14054) (GIT-GET-PROJECT 14056 . 15981) (GIT-PROJECT-PATH 15983 . 17027) (FIND-ANCESTOR-DIRECTORY 17029
- . 17378) (GIT-FIND-CLONE 17380 . 18461) (GIT-MAINBRANCH 18463 . 18858) (GIT-MAINBRANCH? 18860 . 19211
-)) (25594 28382 (ALLSUBDIRS 25604 . 26890) (MEDLEYSUBDIRS 26892 . 27585) (GITSUBDIRS 27587 . 28380)) (
-28383 33173 (TOGIT 28393 . 29799) (FROMGIT 29801 . 30782) (GIT-DELETE-FILE 30784 . 31630) (
-MYMEDLEY-DELETE-FILES 31632 . 33171)) (33174 35706 (MYMEDLEYSUBDIR 33184 . 33640) (GITSUBDIR 33642 . 
-34085) (STRIPDIR 34087 . 34458) (STRIPHOST 34460 . 34700) (STRIPNAME 34702 . 35455) (STRIPWHERE 35457
- . 35704)) (35707 37609 (GFILE4MFILE 35717 . 36080) (MFILE4GFILE 36082 . 36651) (GIT-REPO-FILENAME 
-36653 . 37607)) (37658 47480 (GIT-COMMIT 37668 . 38494) (GIT-PUSH 38496 . 39140) (GIT-PULL 39142 . 
-39754) (GIT-APPROVAL 39756 . 40105) (GIT-GET-FILE 40107 . 42072) (GIT-FILE-EXISTS? 42074 . 42348) (
-GIT-REMOTE-UPDATE 42350 . 43074) (GIT-REMOTE-ADD 43076 . 43383) (GIT-FILE-DATE 43385 . 44316) (
-GIT-FILE-HISTORY 44318 . 46252) (GIT-PRINT-FILE-HISTORY 46254 . 47304) (GIT-FETCH 47306 . 47478)) (
-47510 58242 (GIT-BRANCH-DIFF 47520 . 54304) (GIT-COMMIT-DIFFS 54306 . 54859) (GIT-BRANCH-RELATIONS 
-54861 . 58240)) (58287 69089 (GIT-BRANCH-NUM 58297 . 58870) (GIT-CHECKOUT 58872 . 59931) (
-GIT-WHICH-BRANCH 59933 . 60231) (GIT-MAKE-BRANCH 60233 . 62446) (GIT-BRANCHES 62448 . 64421) (
-GIT-BRANCH-EXISTS? 64423 . 65127) (GIT-PICK-BRANCH 65129 . 65457) (GIT-PRC-MENU 65459 . 67207) (
-GIT-PULL-REQUESTS 67209 . 68475) (GIT-SHORT-BRANCH-NAME 68477 . 68768) (GIT-LONG-NAME 68770 . 69087)) 
-(69119 72454 (GIT-MY-CURRENT-BRANCH 69129 . 69499) (GIT-MY-BRANCHP 69501 . 70006) (GIT-MY-NEXT-BRANCH 
-70008 . 70502) (GIT-MY-BRANCHES 70504 . 72452)) (72500 76452 (GIT-ADD-WORKTREE 72510 . 73994) (
-GIT-REMOVE-WORKTREE 73996 . 74926) (GIT-LIST-WORKTREES 74928 . 75732) (WORKTREEDIR 75734 . 76450)) (
-76500 106701 (GIT-GET-DIFFERENT-FILES 76510 . 82335) (GIT-BRANCHES-COMPARE-DIRECTORIES 82337 . 88318) 
-(GIT-WORKING-COMPARE-DIRECTORIES 88320 . 93146) (GIT-COMPARE-WORKTREE 93148 . 97126) (GITCDOBJBUTTONFN
- 97128 . 101618) (GIT-CD-LABELFN 101620 . 102702) (GIT-CD-MENUFN 102704 . 104911) (
-GIT-WORKING-COMPARE-FILES 104913 . 105533) (GIT-BRANCHES-COMPARE-FILES 105535 . 106699)) (106771 
-115288 (CDGITDIR 106781 . 107341) (GIT-COMMAND 107343 . 108901) (GITORIGIN 108903 . 109600) (
-GIT-INITIALS 109602 . 109906) (GIT-COMMAND-TO-FILE 109908 . 113397) (PROCESS-COMMAND 113399 . 114012) 
-(GIT-RESULT-TO-LINES 114014 . 114621) (STRIPLOCAL 114623 . 115286)))))
+  (FILEMAP (NIL (4005 19253 (GIT-CLONEP 4015 . 5278) (GIT-INIT 5280 . 5707) (GIT-MAKE-PROJECT 5709 . 
+14094) (GIT-GET-PROJECT 14096 . 16021) (GIT-PROJECT-PATH 16023 . 17067) (FIND-ANCESTOR-DIRECTORY 17069
+ . 17418) (GIT-FIND-CLONE 17420 . 18501) (GIT-MAINBRANCH 18503 . 18898) (GIT-MAINBRANCH? 18900 . 19251
+)) (25634 28422 (ALLSUBDIRS 25644 . 26930) (MEDLEYSUBDIRS 26932 . 27625) (GITSUBDIRS 27627 . 28420)) (
+28423 33213 (TOGIT 28433 . 29839) (FROMGIT 29841 . 30822) (GIT-DELETE-FILE 30824 . 31670) (
+MYMEDLEY-DELETE-FILES 31672 . 33211)) (33214 35746 (MYMEDLEYSUBDIR 33224 . 33680) (GITSUBDIR 33682 . 
+34125) (STRIPDIR 34127 . 34498) (STRIPHOST 34500 . 34740) (STRIPNAME 34742 . 35495) (STRIPWHERE 35497
+ . 35744)) (35747 37649 (GFILE4MFILE 35757 . 36120) (MFILE4GFILE 36122 . 36691) (GIT-REPO-FILENAME 
+36693 . 37647)) (37698 47520 (GIT-COMMIT 37708 . 38534) (GIT-PUSH 38536 . 39180) (GIT-PULL 39182 . 
+39794) (GIT-APPROVAL 39796 . 40145) (GIT-GET-FILE 40147 . 42112) (GIT-FILE-EXISTS? 42114 . 42388) (
+GIT-REMOTE-UPDATE 42390 . 43114) (GIT-REMOTE-ADD 43116 . 43423) (GIT-FILE-DATE 43425 . 44356) (
+GIT-FILE-HISTORY 44358 . 46292) (GIT-PRINT-FILE-HISTORY 46294 . 47344) (GIT-FETCH 47346 . 47518)) (
+47550 58282 (GIT-BRANCH-DIFF 47560 . 54344) (GIT-COMMIT-DIFFS 54346 . 54899) (GIT-BRANCH-RELATIONS 
+54901 . 58280)) (58327 69129 (GIT-BRANCH-NUM 58337 . 58910) (GIT-CHECKOUT 58912 . 59971) (
+GIT-WHICH-BRANCH 59973 . 60271) (GIT-MAKE-BRANCH 60273 . 62486) (GIT-BRANCHES 62488 . 64461) (
+GIT-BRANCH-EXISTS? 64463 . 65167) (GIT-PICK-BRANCH 65169 . 65497) (GIT-PRC-MENU 65499 . 67247) (
+GIT-PULL-REQUESTS 67249 . 68515) (GIT-SHORT-BRANCH-NAME 68517 . 68808) (GIT-LONG-NAME 68810 . 69127)) 
+(69159 72494 (GIT-MY-CURRENT-BRANCH 69169 . 69539) (GIT-MY-BRANCHP 69541 . 70046) (GIT-MY-NEXT-BRANCH 
+70048 . 70542) (GIT-MY-BRANCHES 70544 . 72492)) (72540 76492 (GIT-ADD-WORKTREE 72550 . 74034) (
+GIT-REMOVE-WORKTREE 74036 . 74966) (GIT-LIST-WORKTREES 74968 . 75772) (WORKTREEDIR 75774 . 76490)) (
+76540 106741 (GIT-GET-DIFFERENT-FILES 76550 . 82375) (GIT-BRANCHES-COMPARE-DIRECTORIES 82377 . 88358) 
+(GIT-WORKING-COMPARE-DIRECTORIES 88360 . 93186) (GIT-COMPARE-WORKTREE 93188 . 97166) (GITCDOBJBUTTONFN
+ 97168 . 101658) (GIT-CD-LABELFN 101660 . 102742) (GIT-CD-MENUFN 102744 . 104951) (
+GIT-WORKING-COMPARE-FILES 104953 . 105573) (GIT-BRANCHES-COMPARE-FILES 105575 . 106739)) (106811 
+115328 (CDGITDIR 106821 . 107381) (GIT-COMMAND 107383 . 108941) (GITORIGIN 108943 . 109640) (
+GIT-INITIALS 109642 . 109946) (GIT-COMMAND-TO-FILE 109948 . 113437) (PROCESS-COMMAND 113439 . 114052) 
+(GIT-RESULT-TO-LINES 114054 . 114661) (STRIPLOCAL 114663 . 115326)))))
 STOP
diff --git a/lispusers/GITFNS.LCOM b/lispusers/GITFNS.LCOM
index cef0ccb7..d94fa362 100644
Binary files a/lispusers/GITFNS.LCOM and b/lispusers/GITFNS.LCOM differ
diff --git a/sources/INSPECT b/sources/INSPECT
index 22ef397e..aab05492 100644
--- a/sources/INSPECT
+++ b/sources/INSPECT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "11-Oct-2021 14:04:22" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;11 119118 
+(FILECREATED " 9-Aug-2022 08:56:54" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>INSPECT.;12 119048 
 
-      changes to%:  (FNS \TEDIT.INSPECTCODE)
+      :CHANGES-TO (FNS INSPECT/DATATYPE)
 
-      previous date%: "10-Jul-2021 20:31:23" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;10)
+      :PREVIOUS-DATE "11-Oct-2021 14:04:22" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>INSPECT.;11)
 
 
 (* ; "
@@ -1160,10 +1160,11 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
         NIL])
 
 (INSPECT/DATATYPE
-  [LAMBDA (DATUM TYPE WHERE)                                 (* ; "Edited  1-Dec-96 20:15 by rmk:")
-                                                             (* ; "Edited  7-Aug-87 10:21 by jop")
+  [LAMBDA (DATUM TYPE WHERE)                                 (* ; "Edited  9-Aug-2022 08:56 by rmk")
+                                                             (* ; "Edited  1-Dec-96 20:15 by rmk:")
+                                                             (* ; "Edited  7-Aug-87 10:21 by jop")
 
-    (* ;; "creates an inspector window for datatype or record instance DATUM")
+    (* ;; "creates an inspector window for datatype or record instance DATUM")
 
     (LET (SYSREC DEC)
          (COND
@@ -1174,31 +1175,29 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
             ((SETQ DEC (FINDSYSRECDECL DATUM))
              (SETQ SYSREC T)))
          (COND
-            (DEC                                             (* ; 
-                      "The fetchfn and storefn would be more attractive if we had lexical closures")
-                 (INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG)
-                                                   )
+            (DEC                                             (* ; 
+                        "The fetchfn and storefn would be more attractive if we had lexical closures")
+                 (INSPECTW.CREATE DATUM (INSPECTABLEFIELDNAMES DEC (NULL INSPECTALLFIELDSFLG))
                         `[LAMBDA (INSTANCE FIELD)
                            (RECORDACCESS FIELD INSTANCE ',DEC]
                         [if SYSREC
                             then `[LAMBDA (INSTANCE FIELD NEWVALUE)
-                                        (AND (CONFIRM-SET)
-                                             (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
+                                    (AND (CONFIRM-SET)
+                                         (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
                           else `(LAMBDA (INSTANCE FIELD NEWVALUE)
-                                      (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
+                                  (RECORDACCESS FIELD INSTANCE ',DEC '/REPLACE NEWVALUE]
                         NIL NIL (if (EQ (CAR DEC)
-                                            'BLOCKRECORD)
+                                        'BLOCKRECORD)
                                     then 
+                                         (* ;; 
+                                    "To this by hand  to avoid being fooled by invalid lisp pointers")
 
-                                          (* ;; 
-                                  "To this by hand  to avoid being fooled by invalid lisp pointers")
-
-                                          (CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM)
-                                                 (\LOLOC DATUM)))
-                        NIL WHERE))
+                                         (CL:FORMAT NIL "<~a @ ~o,~o>" TYPE (\HILOC DATUM)
+                                                (\LOLOC DATUM)))
+                        NIL NIL WHERE))
             ([SETQ DEC (fetch DTDDESCRS of (\GETDTD (NTYPX DATUM]
-                                                             (* ; 
-                        "No user-level declaration, but we can at least fetch raw fields out of it")
+                                                             (* ; 
+                          "No user-level declaration, but we can at least fetch raw fields out of it")
              (INSPECTW.CREATE DATUM (for I to (LENGTH DEC) collect I)
                     `[LAMBDA (FIELD INSTANCE)
                        (\INSPECT.DATATYPE.RAW.FETCH FIELD INSTANCE ',DEC]
@@ -1532,22 +1531,19 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
 
 (DECLARE%: EVAL@COMPILE 
 
-(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO
-          [ARGS (LET ((PROFILE (CAR ARGS))
-                      (FORM (CADR ARGS)))
-                     `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE (LIST 'QUOTE ,PROFILE)
-                                             ,FORM])
+(PUTPROPS EVAL.AS.PROCESS.WITH.PROFILE MACRO [ARGS (LET ((PROFILE (CAR ARGS))
+                                                         (FORM (CADR ARGS)))
+                                                        `(EVAL.AS.PROCESS (LIST 'XCL:WITH-PROFILE
+                                                                                (LIST 'QUOTE
+                                                                                      ,PROFILE)
+                                                                                ,FORM])
 
 (PUTPROPS WITH-INSPECTOR-ENV MACRO [ARGS (LET ((PROFILE (CAR ARGS))
-                                                       (FORMS (CDR ARGS)))
-                                                      `(XCL:WITH-PROFILE ,PROFILE
-                                                              (LET ((*PRINT-LEVEL* (CAR 
-                                                                                    INSPECTPRINTLEVEL
-                                                                                        ))
-                                                                    (*PRINT-LENGTH* (CDR 
-                                                                                    INSPECTPRINTLEVEL
-                                                                                         )))
-                                                                   ,@FORMS])
+                                               (FORMS (CDR ARGS)))
+                                              `(XCL:WITH-PROFILE ,PROFILE
+                                                      (LET ((*PRINT-LEVEL* (CAR INSPECTPRINTLEVEL))
+                                                            (*PRINT-LENGTH* (CDR INSPECTPRINTLEVEL)))
+                                                           ,@FORMS])
 )
 
 
@@ -2147,40 +2143,40 @@ Copyright (c) 1982-1987, 1990-1991, 1993, 1995, 1999, 2018, 2021 by Venue & Xero
 (PUTPROPS INSPECT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1991 1993 
 1995 1999 2018 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6986 42714 (INSPECTW.CREATE 6996 . 11751) (INSPECTW.REPAINTFN 11753 . 17289) (
-INSPECTW.REDISPLAY 17291 . 26163) (\INSPECTW.VALUE.MARGIN 26165 . 26568) (INSPECTW.REPLACE 26570 . 
-27278) (INSPECTW.SELECTITEM 27280 . 28270) (\INSPECTW.REDISPLAYPROP 28272 . 30702) (INSPECTW.FETCH 
-30704 . 31127) (INSPECTW.PROPERTIES 31129 . 31770) (DECODE.WINDOW.ARG 31772 . 33500) (
-DEFAULT.INSPECTW.PROPCOMMANDFN 33502 . 35520) (DEFAULT.INSPECTW.VALUECOMMANDFN 35522 . 36780) (
-DEFAULT.INSPECTW.TITLECOMMANDFN 36782 . 38472) (\SELITEM.FROM.PROPERTY 38474 . 38916) (
-\INSPECT.COMPUTE.TITLE 38918 . 40044) (LEVELEDFORM 40046 . 40765) (MAKEWITHINREGION 40767 . 42712)) (
-42715 60016 (ITEMW.REPAINTFN 42725 . 43945) (\ITEM.WINDOW.BUTTON.HANDLER 43947 . 44362) (
-\ITEM.WINDOW.SELECTION.HANDLER 44364 . 47031) (\INSPECTW.COMMAND.HANDLER 47033 . 51034) (
-ITEM.WINDOW.SET.STACK.ARG 51036 . 53240) (REPLACESTKARG 53242 . 54341) (IN/ITEM? 54343 . 55225) (
-\ITEMW.DESELECTITEM 55227 . 55491) (\ITEMW.SELECTITEM 55493 . 55755) (\ITEMW.CLEARSELECTION 55757 . 
-56112) (\ITEMW.FLIPITEM 56114 . 56587) (PRINTANDBOX 56589 . 59098) (PRINTATBOX 59100 . 59617) (
-ITEMOFPROPERTYVALUE 59619 . 60014)) (60017 63622 (\ITEM.WINDOW.COPY.HANDLER 60027 . 61748) (
-\ITEMW.FLIPCOPY 61750 . 62209) (BKSYSBUF.GENERAL 62211 . 63620)) (64014 86489 (INSPECT 64024 . 68287) 
-(\APPLYINSPECTMACRO 68289 . 69271) (INSPECT/BITMAP 69273 . 70308) (INSPECT/DATATYPE 70310 . 73553) (
-INSPECTABLEFIELDNAMES 73555 . 74076) (REMOVEDUPS 74078 . 74283) (INSPECT/ARRAY 74285 . 75322) (
-INSPECT/TOP/LEVEL/LIST 75324 . 76283) (INSPECT/PROPLIST 76285 . 77260) (NONSYSPROPNAMES 77262 . 77558)
- (INSPECT/LISTP 77560 . 77882) (ALISTP 77884 . 78093) (PROPLISTP 78095 . 78735) (INSPECT/ALIST 78737
- . 79092) (ASSOCGET 79094 . 79305) (/ASSOCPUT 79307 . 79572) (INSPECT/PLIST 79574 . 79937) (
-INSPECT/TYPERECORD 79939 . 80179) (INSPECT/AS/RECORD 80181 . 81305) (SELECT.LIST.INSPECTOR 81307 . 
-83352) (STANDARDEDITE 83354 . 83637) (NTHTOPLEVELELT 83639 . 83955) (SETNTHTOPLEVELELT 83957 . 84717) 
-(DEDITE 84719 . 84926) (FINDRECDECL 84928 . 85511) (FINDSYSRECDECL 85513 . 85914) (
-MAKE-INSPECTOR-PROFILE 85916 . 86301) (CONFIRM-SET 86303 . 86487)) (88383 96472 (INSPECT/ATOM 88393 . 
-92373) (SELECT.ATOM.ASPECT 92375 . 93519) (INSPECT/AS/FUNCTION 93521 . 95807) (SELECT.FNS.EDITOR 95809
- . 96470)) (96513 101932 (INSPECTCODE 96523 . 97669) (\TEDIT.INSPECTCODE 97671 . 99649) (
-\INSPECT/CODE/RESHAPEFN 99651 . 101190) (\INSPECT/CODE/REPAINTFN 101192 . 101930)) (101970 103455 (
-INSPECT/HARRAYP 101980 . 102607) (HARRAYKEYS 102609 . 102988) (INSPECTW.GETHASH 102990 . 103217) (
-INSPECTW.PUTHASH 103219 . 103453)) (103504 109713 (RDTBL\NONOTHERCODES 103514 . 104534) (GETSYNTAXPROP
- 104536 . 106034) (SETSYNTAXPROP 106036 . 107763) (GETTTBLPROP 107765 . 108683) (SETTTBLPROP 108685 . 
-109711)) (110192 118575 (INSPECT/AS/BLOCKRECORD 110202 . 111085) (INSPECT/TYPELESS 111087 . 112333) (
-LIST-ALL-BLOCKRECORDS 112335 . 112610) (INSPECT/HUNK 112612 . 115218) (\INSPECT.DATATYPE.RAW.FETCH 
-115220 . 115546) (\INSPECT.FETCH.8 115548 . 115697) (\INSPECT.FETCH.32 115699 . 115870) (
-\INSPECT.FETCH.CHAR 115872 . 116035) (\INSPECT.FETCH.FATCHAR 116037 . 116199) (\INSPECT.FETCH.PTR 
-116201 . 116372) (\INSPECT.STORE.8 116374 . 116680) (\INSPECT.STORE.16 116682 . 116982) (
-\INSPECT.STORE.32 116984 . 117419) (\INSPECT.STORE.CHAR 117421 . 117747) (\INSPECT.STORE.FATCHAR 
-117749 . 118071) (\INSPECT.STORE.PTR 118073 . 118420) (INSPECT/MAKE/CCODEP 118422 . 118573)))))
+  (FILEMAP (NIL (6989 42717 (INSPECTW.CREATE 6999 . 11754) (INSPECTW.REPAINTFN 11756 . 17292) (
+INSPECTW.REDISPLAY 17294 . 26166) (\INSPECTW.VALUE.MARGIN 26168 . 26571) (INSPECTW.REPLACE 26573 . 
+27281) (INSPECTW.SELECTITEM 27283 . 28273) (\INSPECTW.REDISPLAYPROP 28275 . 30705) (INSPECTW.FETCH 
+30707 . 31130) (INSPECTW.PROPERTIES 31132 . 31773) (DECODE.WINDOW.ARG 31775 . 33503) (
+DEFAULT.INSPECTW.PROPCOMMANDFN 33505 . 35523) (DEFAULT.INSPECTW.VALUECOMMANDFN 35525 . 36783) (
+DEFAULT.INSPECTW.TITLECOMMANDFN 36785 . 38475) (\SELITEM.FROM.PROPERTY 38477 . 38919) (
+\INSPECT.COMPUTE.TITLE 38921 . 40047) (LEVELEDFORM 40049 . 40768) (MAKEWITHINREGION 40770 . 42715)) (
+42718 60019 (ITEMW.REPAINTFN 42728 . 43948) (\ITEM.WINDOW.BUTTON.HANDLER 43950 . 44365) (
+\ITEM.WINDOW.SELECTION.HANDLER 44367 . 47034) (\INSPECTW.COMMAND.HANDLER 47036 . 51037) (
+ITEM.WINDOW.SET.STACK.ARG 51039 . 53243) (REPLACESTKARG 53245 . 54344) (IN/ITEM? 54346 . 55228) (
+\ITEMW.DESELECTITEM 55230 . 55494) (\ITEMW.SELECTITEM 55496 . 55758) (\ITEMW.CLEARSELECTION 55760 . 
+56115) (\ITEMW.FLIPITEM 56117 . 56590) (PRINTANDBOX 56592 . 59101) (PRINTATBOX 59103 . 59620) (
+ITEMOFPROPERTYVALUE 59622 . 60017)) (60020 63625 (\ITEM.WINDOW.COPY.HANDLER 60030 . 61751) (
+\ITEMW.FLIPCOPY 61753 . 62212) (BKSYSBUF.GENERAL 62214 . 63623)) (64017 86547 (INSPECT 64027 . 68290) 
+(\APPLYINSPECTMACRO 68292 . 69274) (INSPECT/BITMAP 69276 . 70311) (INSPECT/DATATYPE 70313 . 73611) (
+INSPECTABLEFIELDNAMES 73613 . 74134) (REMOVEDUPS 74136 . 74341) (INSPECT/ARRAY 74343 . 75380) (
+INSPECT/TOP/LEVEL/LIST 75382 . 76341) (INSPECT/PROPLIST 76343 . 77318) (NONSYSPROPNAMES 77320 . 77616)
+ (INSPECT/LISTP 77618 . 77940) (ALISTP 77942 . 78151) (PROPLISTP 78153 . 78793) (INSPECT/ALIST 78795
+ . 79150) (ASSOCGET 79152 . 79363) (/ASSOCPUT 79365 . 79630) (INSPECT/PLIST 79632 . 79995) (
+INSPECT/TYPERECORD 79997 . 80237) (INSPECT/AS/RECORD 80239 . 81363) (SELECT.LIST.INSPECTOR 81365 . 
+83410) (STANDARDEDITE 83412 . 83695) (NTHTOPLEVELELT 83697 . 84013) (SETNTHTOPLEVELELT 84015 . 84775) 
+(DEDITE 84777 . 84984) (FINDRECDECL 84986 . 85569) (FINDSYSRECDECL 85571 . 85972) (
+MAKE-INSPECTOR-PROFILE 85974 . 86359) (CONFIRM-SET 86361 . 86545)) (88313 96402 (INSPECT/ATOM 88323 . 
+92303) (SELECT.ATOM.ASPECT 92305 . 93449) (INSPECT/AS/FUNCTION 93451 . 95737) (SELECT.FNS.EDITOR 95739
+ . 96400)) (96443 101862 (INSPECTCODE 96453 . 97599) (\TEDIT.INSPECTCODE 97601 . 99579) (
+\INSPECT/CODE/RESHAPEFN 99581 . 101120) (\INSPECT/CODE/REPAINTFN 101122 . 101860)) (101900 103385 (
+INSPECT/HARRAYP 101910 . 102537) (HARRAYKEYS 102539 . 102918) (INSPECTW.GETHASH 102920 . 103147) (
+INSPECTW.PUTHASH 103149 . 103383)) (103434 109643 (RDTBL\NONOTHERCODES 103444 . 104464) (GETSYNTAXPROP
+ 104466 . 105964) (SETSYNTAXPROP 105966 . 107693) (GETTTBLPROP 107695 . 108613) (SETTTBLPROP 108615 . 
+109641)) (110122 118505 (INSPECT/AS/BLOCKRECORD 110132 . 111015) (INSPECT/TYPELESS 111017 . 112263) (
+LIST-ALL-BLOCKRECORDS 112265 . 112540) (INSPECT/HUNK 112542 . 115148) (\INSPECT.DATATYPE.RAW.FETCH 
+115150 . 115476) (\INSPECT.FETCH.8 115478 . 115627) (\INSPECT.FETCH.32 115629 . 115800) (
+\INSPECT.FETCH.CHAR 115802 . 115965) (\INSPECT.FETCH.FATCHAR 115967 . 116129) (\INSPECT.FETCH.PTR 
+116131 . 116302) (\INSPECT.STORE.8 116304 . 116610) (\INSPECT.STORE.16 116612 . 116912) (
+\INSPECT.STORE.32 116914 . 117349) (\INSPECT.STORE.CHAR 117351 . 117677) (\INSPECT.STORE.FATCHAR 
+117679 . 118001) (\INSPECT.STORE.PTR 118003 . 118350) (INSPECT/MAKE/CCODEP 118352 . 118503)))))
 STOP
diff --git a/sources/INSPECT.LCOM b/sources/INSPECT.LCOM
index 0207bbf8..009dd871 100644
Binary files a/sources/INSPECT.LCOM and b/sources/INSPECT.LCOM differ
