diff --git a/sources/EDITINTERFACE b/sources/EDITINTERFACE
index 534b4746..415c940e 100644
--- a/sources/EDITINTERFACE
+++ b/sources/EDITINTERFACE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "13-May-2022 08:16:23" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;44 47034  
+(FILECREATED "22-Jun-2022 13:32:08" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45 47672  
 
-      :CHANGES-TO (FNS FIXEDITDATE EDITDATE?)
+      :CHANGES-TO (FNS FIXEDITDATE)
 
-      :PREVIOUS-DATE "12-May-2022 23:21:03" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;43)
+      :PREVIOUS-DATE "13-May-2022 08:16:23" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;44)
 
 
 (* ; "
@@ -629,6 +629,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 (FIXEDITDATE
   [LAMBDA (EXPR)
 
+    (* ;; "Edited 22-Jun-2022 13:31 by rmk")
+
     (* ;; "Edited 13-May-2022 08:11 by rmk")
 
     (* ;; "Edited   8-May-2022 22:49 by rmk")
@@ -702,10 +704,10 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 
          (* ;; "E is now the cell that the date will attach to or whose CAR will be updated.")
 
-              [LET (PARSE COMMENTLEVEL (INITLS (CL:IF (EQ (CHARCODE %:)
-                                                          (NTHCHARCODE INITIALS -1))
-                                                   (SUBSTRING INITIALS 1 -2)
-                                                   INITIALS)))
+              [LET (PARSE COMMENTLEVEL ENDINITIALS (INITLS (CL:IF (EQ (CHARCODE %:)
+                                                                      (NTHCHARCODE INITIALS -1))
+                                                               (SUBSTRING INITIALS 1 -2)
+                                                               INITIALS)))
                    (IF *REPLACE-OLD-EDIT-DATES*
                        THEN 
                             (* ;; "Strip out all previous modern-format edit dates. Since EDITDATE? only recognizes that format, hand editing is needed if prehistoric dates are really not desired. We don't strip out anything with a further comment.")
@@ -753,12 +755,18 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
                                         (MEMB [CAR (LISTP (SETQ PARSE (CDAR E]
                                               '(; ;; ;;;))
                                         [STRINGP (SETQ PARSE (CAR (LISTP (CDR PARSE]
-                                        (STRPOS (CONCAT INITLS ": ")
-                                               PARSE 1 NIL NIL T))
+                                        (SETQ ENDINITIALS (STRPOS INITLS PARSE 1 NIL NIL T 
+                                                                 UPPERCASEARRAY)))
                               THEN 
                                    (* ;; 
   "Just an ordinary comment in first position, with initials: in front.  Upgrade it to an edit date.")
 
+                                   (SETQ PARSE (CONCAT INITLS (CL:IF (EQ (CHARCODE %:)
+                                                                         (NTHCHARCODE PARSE 
+                                                                                ENDINITIALS))
+                                                                  ""
+                                                                  ": ")
+                                                      (SUBSTRING PARSE ENDINITIALS)))
                                    (/RPLACA E (EDITDATE (CAR E)
                                                      NIL PARSE))
                             ELSE 
@@ -941,6 +949,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 18767) (EDITLOADFNS? 18769 . 22569) (EDITMODE 22571 . 24581) (EDITP 24583 . 25094) (EDITV 25096 . 
 25735) (DC 25737 . 26418) (DF 26420 . 27462) (DP 27464 . 28548) (DV 28550 . 29122) (EDITPROP 29124 . 
 29343) (EF 29345 . 29674) (EP 29676 . 29859) (EV 29861 . 30040) (EDITE 30042 . 30920) (EDITL 30922 . 
-31148)) (31500 46179 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 39703) (EDITDATE? 39705 . 42733
-) (EDITDATE 42735 . 44182) (SETINITIALS 44184 . 46177)))))
+31148)) (31500 46817 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 40341) (EDITDATE? 40343 . 43371
+) (EDITDATE 43373 . 44820) (SETINITIALS 44822 . 46815)))))
 STOP
diff --git a/sources/EDITINTERFACE.LCOM b/sources/EDITINTERFACE.LCOM
index e8babab4..0f8f4e27 100644
Binary files a/sources/EDITINTERFACE.LCOM and b/sources/EDITINTERFACE.LCOM differ
