diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES
index 3ab7bd04..4c1e09db 100644
--- a/lispusers/COMPAREDIRECTORIES
+++ b/lispusers/COMPAREDIRECTORIES
@@ -1,7 +1,7 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 3-Oct-2022 11:56:59" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;251 128694 
+(FILECREATED " 3-Oct-2022 12:03:37" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>lispusers>COMPAREDIRECTORIES.;252 128695 
 
       :CHANGES-TO (FNS CDFILES)
 
@@ -388,7 +388,7 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
 (DEFINEQ
 
 (CDFILES
-  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited  3-Oct-2022 11:55 by rmk")
+  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited  3-Oct-2022 12:03 by rmk")
                                                              (* ; "Edited 25-Apr-2022 08:42 by rmk")
                                                              (* ; "Edited  5-Mar-2022 15:05 by rmk")
                                                             (* ; "Edited 16-Oct-2020 13:42 by rmk:")
@@ -417,7 +417,7 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
     (SETQ EXCLUDEDFILES (LDIFFERENCE EXCLUDEDFILES INCLUDEDFILES))
     (LET ([INCLUDES (CDFILES.PATS (OR INCLUDEDFILES '*.*]
           (EXCLUDES (AND EXCLUDEDFILES (CDFILES.PATS EXCLUDEDFILES)))
-          (*UPPER-CASE-FILE-NAMES NIL)
+          (*UPPER-CASE-FILE-NAMES* NIL)
           HOST ENUMPAT)
          (SETQ HOST (FILENAMEFIELD.STRING DIR 'HOST))
          (SETQ DIR (FILENAMEFIELD.STRING DIR 'DIRECTORY))
@@ -2160,22 +2160,22 @@ Copyright (c) 1985-1988, 1990, 1994, 1998, 2018, 2020-2021 by Venue & Xerox Corp
   (FILEMAP (NIL (2624 22181 (COMPAREDIRECTORIES 2634 . 7467) (COMPAREDIRECTORIES.INFOS 7469 . 10343) (
 COMPAREDIRECTORIES.CANDIDATES 10345 . 13730) (CDENTRIES.SELECT 13732 . 18507) (
 COMPAREDIRECTORIES.INFOS.TYPE 18509 . 19415) (MATCHNAME 19417 . 20097) (CD.INSURECDVALUE 20099 . 21713
-) (CD.UPDATEWIDTHS 21715 . 22179)) (22182 31999 (CDFILES 22192 . 28093) (CDFILES.MATCH 28095 . 29720) 
-(CDFILES.PATS 29722 . 31997)) (32000 49821 (CDPRINT 32010 . 34527) (CDPRINT.HEADER 34529 . 35426) (
-CDPRINT.LINE 35428 . 38660) (CDPRINT.MAXWIDTHS 38662 . 42777) (CDPRINT.COLHEADERS 42779 . 44064) (
-CDPRINT.COLUMNS 44066 . 49186) (CDTEDIT 49188 . 49819)) (49822 58191 (CDMAP 49832 . 51264) (CDENTRY 
-51266 . 51575) (CDSUBSET 51577 . 53016) (CDMERGE 53018 . 56872) (CDMERGE.COMMON 56874 . 58189)) (58192
- 65730 (BINCOMP 58202 . 62491) (EOLTYPE 62493 . 65055) (EOLTYPE.SHOW 65057 . 65728)) (66258 78785 (
-FIND-UNCOMPILED-FILES 66268 . 69911) (FIND-UNSOURCED-FILES 69913 . 72297) (FIND-SOURCE-FILES 72299 . 
-74037) (FIND-COMPILED-FILES 74039 . 75916) (FIND-UNLOADED-FILES 75918 . 76771) (FIND-LOADED-FILES 
-76773 . 77201) (FIND-MULTICOMPILED-FILES 77203 . 78783)) (78786 87217 (CREATED-AS 78796 . 83593) (
-SOURCE-FOR-COMPILED-P 83595 . 86522) (COMPILE-SOURCE-DATE-DIFF 86524 . 87215)) (87218 97524 (
-FIX-DIRECTORY-DATES 87228 . 90221) (FIX-EQUIV-DATES 90223 . 91748) (COPY-COMPARED-FILES 91750 . 93571)
- (COPY-MISSING-FILES 93573 . 95730) (COMPILED-ON-SAME-SOURCE 95732 . 97522)) (97718 105556 (CDBROWSER 
-97728 . 101655) (CDBROWSER.STRINGS 101657 . 105554)) (105718 107454 (CD.TABLEITEM 105728 . 105948) (
-CD.TABLEITEM.PRINTFN 105950 . 106149) (CD.TABLEITEM.COPYFN 106151 . 107209) (
-CDTABLEBROWSER.HEADING.REPAINTFN 107211 . 107452)) (107455 128110 (CDTABLEBROWSER.WHENSELECTEDFN 
-107465 . 107933) (CD.COMMANDSELECTEDFN 107935 . 113036) (CD-MENUFN 113038 . 117349) (CD-COMPARE-FILES 
-117351 . 120703) (CDBROWSER-COPY 120705 . 124374) (CDBROWSER-DELETE-FILE 124376 . 127589) (CD-SWAPDIRS
- 127591 . 128108)))))
+) (CD.UPDATEWIDTHS 21715 . 22179)) (22182 32000 (CDFILES 22192 . 28094) (CDFILES.MATCH 28096 . 29721) 
+(CDFILES.PATS 29723 . 31998)) (32001 49822 (CDPRINT 32011 . 34528) (CDPRINT.HEADER 34530 . 35427) (
+CDPRINT.LINE 35429 . 38661) (CDPRINT.MAXWIDTHS 38663 . 42778) (CDPRINT.COLHEADERS 42780 . 44065) (
+CDPRINT.COLUMNS 44067 . 49187) (CDTEDIT 49189 . 49820)) (49823 58192 (CDMAP 49833 . 51265) (CDENTRY 
+51267 . 51576) (CDSUBSET 51578 . 53017) (CDMERGE 53019 . 56873) (CDMERGE.COMMON 56875 . 58190)) (58193
+ 65731 (BINCOMP 58203 . 62492) (EOLTYPE 62494 . 65056) (EOLTYPE.SHOW 65058 . 65729)) (66259 78786 (
+FIND-UNCOMPILED-FILES 66269 . 69912) (FIND-UNSOURCED-FILES 69914 . 72298) (FIND-SOURCE-FILES 72300 . 
+74038) (FIND-COMPILED-FILES 74040 . 75917) (FIND-UNLOADED-FILES 75919 . 76772) (FIND-LOADED-FILES 
+76774 . 77202) (FIND-MULTICOMPILED-FILES 77204 . 78784)) (78787 87218 (CREATED-AS 78797 . 83594) (
+SOURCE-FOR-COMPILED-P 83596 . 86523) (COMPILE-SOURCE-DATE-DIFF 86525 . 87216)) (87219 97525 (
+FIX-DIRECTORY-DATES 87229 . 90222) (FIX-EQUIV-DATES 90224 . 91749) (COPY-COMPARED-FILES 91751 . 93572)
+ (COPY-MISSING-FILES 93574 . 95731) (COMPILED-ON-SAME-SOURCE 95733 . 97523)) (97719 105557 (CDBROWSER 
+97729 . 101656) (CDBROWSER.STRINGS 101658 . 105555)) (105719 107455 (CD.TABLEITEM 105729 . 105949) (
+CD.TABLEITEM.PRINTFN 105951 . 106150) (CD.TABLEITEM.COPYFN 106152 . 107210) (
+CDTABLEBROWSER.HEADING.REPAINTFN 107212 . 107453)) (107456 128111 (CDTABLEBROWSER.WHENSELECTEDFN 
+107466 . 107934) (CD.COMMANDSELECTEDFN 107936 . 113037) (CD-MENUFN 113039 . 117350) (CD-COMPARE-FILES 
+117352 . 120704) (CDBROWSER-COPY 120706 . 124375) (CDBROWSER-DELETE-FILE 124377 . 127590) (CD-SWAPDIRS
+ 127592 . 128109)))))
 STOP
diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM
index 394d5861..37daa114 100644
Binary files a/lispusers/COMPAREDIRECTORIES.LCOM and b/lispusers/COMPAREDIRECTORIES.LCOM differ
