diff --git a/sources/PRETTY b/sources/PRETTY
index cd4f14a6..51684519 100644
--- a/sources/PRETTY
+++ b/sources/PRETTY
@@ -1,15 +1,14 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
-(FILECREATED " 9-Jul-2021 14:12:19" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;19 64744  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(FILECREATED "11-Sep-2021 09:14:19" {DSK}<home>larry>medley>sources>PRETTY.;5 65019  
 
-      changes to%:  (FNS PRETTYDEF)
+      changes to%:  (VARS PRETTYCOMS)
+                    (FNS PRINTCOPYRIGHT)
 
-      previous date%: " 3-Jul-2021 15:24:17" 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;17)
+      previous date%: " 9-Jul-2021 14:12:19" {DSK}<home>larry>medley>sources>PRETTY.;1)
 
 
 (* ; "
-Copyright (c) 1984-1990, 1999, 2018, 2021 by Venue & Xerox Corporation.
+Copyright (c) 1984-1990, 1999, 2018 by Venue & Xerox Corporation.
 The following program was created in 1984 but has not been published
 within the meaning of the copyright law, is furnished under license,
 and may not be used, copied and/or disclosed except in accordance
@@ -24,7 +23,7 @@ with the terms of said license.
              PRETTYPRINT2 PRETTYPRINT3 PRINTDEF1 SUPERPRINTEQ SUPERPRINTGETPROP CHANGEFONT)
         (FNS READARRAY PRINTARRAY READARRAY-FROM-LIST PRINTARRAY-TO-LIST)
         (COMS (DECLARE%: DONTCOPY (MACROS CHANGFONT)))
-        (COMS                                                (* ; "COPYRIGHT")
+        (COMS                                                (* ; "COPYRIGHT")
               (FNS PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT)
               (BLOCKS (NIL PRINTCOPYRIGHT PRINTCOPYRIGHT1 SAVECOPYRIGHT (LOCALVARS . T)
                            (NOLINKFNS PRINTCOPYRIGHT1)))
@@ -89,8 +88,8 @@ with the terms of said license.
         [DECLARE%: EVAL@COMPILE DOCOPY (P (CL:PROCLAIM '(CL:SPECIAL DEFAULTFONT LAMBDAFONT 
                                                                PRETTYCOMFONT COMMENTFONT 
                                                                **COMMENT**FLG PRETTYPRINTMACROS]
-        (DECLARE%: DOEVAL@COMPILE DONTCOPY                   (* ; 
-                   "IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
+        (DECLARE%: DOEVAL@COMPILE DONTCOPY                   (* ; 
+                   "IMPORT because FILEPKG has records EXPORTed but is not a member of EXPORTFILES")
                (FILES (IMPORT)
                       FILEPKG))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPT PP* PP)
@@ -455,15 +454,18 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
 (DEFINEQ
 
 (PRINTCOPYRIGHT
-  [LAMBDA (FILENAME)                                         (* ; "Edited 31-Aug-99 09:06 by rmk:")
-                                                             (* ; "Edited 31-Aug-99 09:01 by rmk:")
-                                                             (* edited%: " 1-Jan-85 20:16")
+  [LAMBDA (FILENAME)                                   (* ; "Edited 11-Sep-2021 09:07 by larry")
+                                                             (* ; "Edited 31-Aug-99 09:01 by rmk:")
+                                                             (* edited%: " 1-Jan-85 20:16")
 
-(* ;;; "CALLED BY PRETTYDEF TO PUT a copyright notice on a file.  The globalvar COPYRIGHTOWNERS is used to determine the possible copyright owners when it is determined the file doesn't have a copyright yet and has never been asked if the programmer wanted one.  The whole copyright mechanism can be turned off by setting COPYRIGHTFLG to NEVER -- originaly NIL.  If the file is copyrighted, any year the file is editted the new year is tacked on to the list of copyright years.  The copyright notice comes immediately after the FILECREATED expression * *")
+(* ;;; "CALLED BY PRETTYDEF TO PUT a copyright notice on a file.  The globalvar COPYRIGHTOWNERS is used to determine the possible copyright owners when it is determined the file doesn't have a copyright yet and has never been asked if the programmer wanted one.  The whole copyright mechanism can be turned off by setting COPYRIGHTFLG to NEVER -- originaly NIL.  If the file is copyrighted, any year the file is editted the new year is tacked on to the list of copyright years.  The copyright notice comes immediately after the FILECREATED expression ")
+
+    (* ;; 
+ "9/10/2021 LMM: Add COPYRIGHTFLG value PRESERVE meaning no new copyright (or year) but retain old")
 
     (PROG [(OWNER (GETPROP FILENAME 'COPYRIGHT]
           (AND [OR OWNER
-                   (AND COPYRIGHTFLG
+                   (AND COPYRIGHTFLG (NEQ COPYRIGHTFLG 'PRESERVE)
                         (SETQ OWNER
                          (ASKUSER (if (EQ COPYRIGHTFLG 'DEFAULT)
                                       then 0
@@ -500,7 +502,11 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
                         'NONE)
                    (PROG ((CURRENTYEAR (SUBATOM (DATE (DATEFORMAT YEAR.LONG NO.TIME))
                                               -4 -1)))
-                         (OR (MEMBER CURRENTYEAR (CDR OWNER))
+
+                    (* ;; " see github Interlisp/medley issue #207  (lmm 9/11/2021)")
+
+                         (OR (EQ COPYRIGHTFLG 'PRESERVE)
+                             (MEMBER CURRENTYEAR (CDR OWNER))
                              (NCONC1 OWNER CURRENTYEAR)))
                    (PRINTCOPYRIGHT1 OWNER])
 
@@ -687,16 +693,16 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
 (ADDTOVAR LAMA )
 )
 (PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018
- 2021))
+))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5950 48101 (PRETTYDEF 5960 . 21633) (PRETTYDEFCOMS 21635 . 22317) (PRETTYDEF0 22319 . 
-22510) (PRETTYDEF1 22512 . 24275) (PRINTDATE 24277 . 25513) (PRINTDATE1 25515 . 26720) (PRINTFNS 26722
- . 27291) (PRETTYCOM 27293 . 33634) (PRETTYVAR 33636 . 34674) (PRETTYVAR1 34676 . 36894) (PRETTYCOM1 
-36896 . 37600) (ENDFILE 37602 . 37698) (MAKEDEFLIST 37700 . 38104) (PP 38106 . 38382) (PP* 38384 . 
-38697) (PPT 38699 . 39018) (PRETTYPRINT 39020 . 42172) (PRETTYPRINT1 42174 . 44060) (PRETTYPRINT2 
-44062 . 45378) (PRETTYPRINT3 45380 . 46335) (PRINTDEF1 46337 . 47345) (SUPERPRINTEQ 47347 . 47441) (
-SUPERPRINTGETPROP 47443 . 47587) (CHANGEFONT 47589 . 48099)) (48102 53448 (READARRAY 48112 . 49038) (
-PRINTARRAY 49040 . 50780) (READARRAY-FROM-LIST 50782 . 51887) (PRINTARRAY-TO-LIST 51889 . 53446)) (
-53575 60788 (PRINTCOPYRIGHT 53585 . 57357) (PRINTCOPYRIGHT1 57359 . 60483) (SAVECOPYRIGHT 60485 . 
-60786)))))
+  (FILEMAP (NIL (5925 48076 (PRETTYDEF 5935 . 21608) (PRETTYDEFCOMS 21610 . 22292) (PRETTYDEF0 22294 . 
+22485) (PRETTYDEF1 22487 . 24250) (PRINTDATE 24252 . 25488) (PRINTDATE1 25490 . 26695) (PRINTFNS 26697
+ . 27266) (PRETTYCOM 27268 . 33609) (PRETTYVAR 33611 . 34649) (PRETTYVAR1 34651 . 36869) (PRETTYCOM1 
+36871 . 37575) (ENDFILE 37577 . 37673) (MAKEDEFLIST 37675 . 38079) (PP 38081 . 38357) (PP* 38359 . 
+38672) (PPT 38674 . 38993) (PRETTYPRINT 38995 . 42147) (PRETTYPRINT1 42149 . 44035) (PRETTYPRINT2 
+44037 . 45353) (PRETTYPRINT3 45355 . 46310) (PRINTDEF1 46312 . 47320) (SUPERPRINTEQ 47322 . 47416) (
+SUPERPRINTGETPROP 47418 . 47562) (CHANGEFONT 47564 . 48074)) (48077 53423 (READARRAY 48087 . 49013) (
+PRINTARRAY 49015 . 50755) (READARRAY-FROM-LIST 50757 . 51862) (PRINTARRAY-TO-LIST 51864 . 53421)) (
+53550 61068 (PRINTCOPYRIGHT 53560 . 57637) (PRINTCOPYRIGHT1 57639 . 60763) (SAVECOPYRIGHT 60765 . 
+61066)))))
 STOP
diff --git a/sources/PRETTY.LCOM b/sources/PRETTY.LCOM
index 60cb1b6d..492fe9cd 100644
Binary files a/sources/PRETTY.LCOM and b/sources/PRETTY.LCOM differ
