diff --git a/sources/SEDIT-TOPLEVEL b/sources/SEDIT-TOPLEVEL
index 914e16f7..a6299b13 100644
--- a/sources/SEDIT-TOPLEVEL
+++ b/sources/SEDIT-TOPLEVEL
@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "SEDIT" (USE "LISP" "XCL")) READTABLE "XCL" BASE 10)
 
-(IL:FILECREATED " 8-Dec-2021 14:01:58" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;19| 37986  
+(IL:FILECREATED "23-Aug-2022 20:43:35" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;3| 38392  
 
-      :CHANGES-TO (IL:FNS GET-WINDOW-REGION)
+      :CHANGES-TO (IL:FNS MARKASCHANGEDFN)
 
-      :PREVIOUS-DATE " 8-Dec-2021 11:50:57" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
+      :PREVIOUS-DATE " 8-Dec-2021 14:01:58" IL:|{DSK}<home>larry>medley>sources>SEDIT-TOPLEVEL.;1|)
 
 
 ; Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
@@ -240,7 +238,8 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
 )
 
 (MARKASCHANGEDFN
-  (IL:LAMBDA (NAME TYPE REASON)                       (IL:* IL:\; "Edited  8-Dec-2021 11:49 by rmk")
+  (IL:LAMBDA (NAME TYPE REASON)                       (IL:* IL:\; "Edited 23-Aug-2022 20:41 by lmm")
+                                                      (IL:* IL:\; "Edited  8-Dec-2021 11:49 by rmk")
                                                     (IL:* IL:\; "Edited  2-Dec-2021 22:57 by larry")
                                                         (IL:* IL:\; "Edited  3-Apr-91 15:42 by jds")
 
@@ -264,8 +263,15 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
 
               (IL:* IL:|;;| "found a matching context elsewhere")
 
-              (IL:RESETFORM (IL:EDITMODE 'SEDIT)
-                     (IL:EDITDEF NAME TYPE NIL NIL '(:DONTWAIT))))))))
+              (IL:RESETLST
+
+                  (IL:* IL:|;;| " This isn't quite right because there is more context for editdef, e.g. if you're eding a definition loaded from a file")
+
+                  (IL:* IL:|;;| " Rather than calling EDITDEF again lmm 8/23/22")
+
+                  (IL:RESETSAVE (IL:TTY.PROCESS (IL:THIS.PROCESS)))
+                  (IL:RESETSAVE (IL:EDITMODE 'SEDIT))
+                  (IL:EDITDEF NAME TYPE NIL NIL '(:DONTWAIT))))))))
 
 (new-function-body
 (il:lambda (dummy-body) (il:* il:\; "Edited  7-Jul-87 12:59 by DCB") (if (il:neq (il:editmode) (quote sedit)) (il:copy dummy-body) (list (quote il:lambda) args-gap body-gap)))
@@ -574,17 +580,17 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>SEDIT-TOPLEVEL.;18|)
 (IL:DEFPRINT 'GAP 'PRINT-GAP)
 (IL:PUTPROPS IL:SEDIT-TOPLEVEL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (3174 8776 (SEDIT 3187 . 5173) (RESET 5175 . 5376) (GET-WINDOW-REGION 5378 . 6676) (
-SAVE-WINDOW-REGION 6678 . 7692) (GET-WINDOW 7694 . 7998) (GET-PROP 8000 . 8304) (PUT-PROP 8306 . 8774)
-) (8777 15717 (GET-CONTEXT 8790 . 10810) (DISINTEGRATE-CONTEXT 10812 . 11538) (AWAKE-COMMAND-PROCESS 
-11540 . 13133) (AWAKE-ME 13135 . 13518) (MARKASCHANGEDFN 13520 . 15513) (NEW-FUNCTION-BODY 15515 . 
-15715)) (15719 16702 (QUERY-THROW-AWAY-CHANGES 15719 . 16702)) (16704 17479 (SET-OPTIONS 16704 . 17479
-)) (17481 20829 (SET-PROPS 17481 . 20829)) (20831 21502 (START-PROCESS 20831 . 21502)) (21818 34795 (
-SEDITE 21831 . 27598) (SEDITL 27600 . 28745) (FN-CHANGED 28747 . 29042) (PROP-CHANGED 29044 . 29181) (
-PROPLST-CHANGED 29183 . 29311) (VAR-CHANGED 29313 . 29425) (ALIST-COMPLETION 29427 . 30238) (
-COMPLETION 30240 . 31620) (PROPS-COMPLETION 31622 . 32447) (TTYFN 32449 . 34287) (
-LOCATE-NODE-FROM-EDITCHAIN 34289 . 34793)) (34941 35310 (SMART-TTYFN 34941 . 35310)) (35433 37118 (
-PRETTY-PRINT 35446 . 36489) (MAP-FONT 36491 . 37116)) (37300 37403 (MAKE-BROKEN-ATOM 37300 . 37403)) (
-37405 37563 (PRINT-BROKEN-ATOM 37405 . 37563)) (37565 37649 (MAKE-GAP 37565 . 37649)) (37651 37779 (
-PRINT-GAP 37651 . 37779)))))
+  (IL:FILEMAP (NIL (3126 8728 (SEDIT 3139 . 5125) (RESET 5127 . 5328) (GET-WINDOW-REGION 5330 . 6628) (
+SAVE-WINDOW-REGION 6630 . 7644) (GET-WINDOW 7646 . 7950) (GET-PROP 7952 . 8256) (PUT-PROP 8258 . 8726)
+) (8729 16123 (GET-CONTEXT 8742 . 10762) (DISINTEGRATE-CONTEXT 10764 . 11490) (AWAKE-COMMAND-PROCESS 
+11492 . 13085) (AWAKE-ME 13087 . 13470) (MARKASCHANGEDFN 13472 . 15919) (NEW-FUNCTION-BODY 15921 . 
+16121)) (16125 17108 (QUERY-THROW-AWAY-CHANGES 16125 . 17108)) (17110 17885 (SET-OPTIONS 17110 . 17885
+)) (17887 21235 (SET-PROPS 17887 . 21235)) (21237 21908 (START-PROCESS 21237 . 21908)) (22224 35201 (
+SEDITE 22237 . 28004) (SEDITL 28006 . 29151) (FN-CHANGED 29153 . 29448) (PROP-CHANGED 29450 . 29587) (
+PROPLST-CHANGED 29589 . 29717) (VAR-CHANGED 29719 . 29831) (ALIST-COMPLETION 29833 . 30644) (
+COMPLETION 30646 . 32026) (PROPS-COMPLETION 32028 . 32853) (TTYFN 32855 . 34693) (
+LOCATE-NODE-FROM-EDITCHAIN 34695 . 35199)) (35347 35716 (SMART-TTYFN 35347 . 35716)) (35839 37524 (
+PRETTY-PRINT 35852 . 36895) (MAP-FONT 36897 . 37522)) (37706 37809 (MAKE-BROKEN-ATOM 37706 . 37809)) (
+37811 37969 (PRINT-BROKEN-ATOM 37811 . 37969)) (37971 38055 (MAKE-GAP 37971 . 38055)) (38057 38185 (
+PRINT-GAP 38057 . 38185)))))
 IL:STOP
diff --git a/sources/SEDIT-TOPLEVEL.DFASL b/sources/SEDIT-TOPLEVEL.DFASL
index 19a34dca..44c8c4a6 100644
Binary files a/sources/SEDIT-TOPLEVEL.DFASL and b/sources/SEDIT-TOPLEVEL.DFASL differ
