diff --git a/sources/SEDIT-WINDOW b/sources/SEDIT-WINDOW
index 53f583f5..79766069 100644
--- a/sources/SEDIT-WINDOW
+++ b/sources/SEDIT-WINDOW
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE (DEFPACKAGE SEDIT (USE LISP XCL)) READTABLE "XCL" BASE 10)
 
-(IL:FILECREATED "20-Jun-2023 21:10:34" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;3| 87531  
+(IL:FILECREATED "13-Jul-2023 14:28:53" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;6| 87869  
 
       :EDIT-BY IL:|rmk|
 
       :CHANGES-TO (IL:FNS BUTTONEVENTFN)
 
-      :PREVIOUS-DATE "17-Jun-2023 19:59:30" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;2|)
+      :PREVIOUS-DATE "13-Jul-2023 14:06:39" IL:|{WMEDLEY}<sources>SEDIT-WINDOW.;5|)
 
 
 ; Copyright (c) 1986-1988, 1990-1992, 2018 by Venue & Xerox Corporation.
@@ -207,7 +207,8 @@
          (IL:DSPRIGHTMARGIN 64000 DISPLAY-WINDOW))))
 
 (BUTTONEVENTFN
-  (IL:LAMBDA (WINDOW)                                 (IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
+  (IL:LAMBDA (WINDOW)                                 (IL:* IL:\; "Edited 13-Jul-2023 14:27 by rmk")
+                                                      (IL:* IL:\; "Edited 20-Jun-2023 21:10 by rmk")
                                                       (IL:* IL:\; "Edited 17-Jun-2023 19:59 by rmk")
                                                      (IL:* IL:\; "Edited 23-Apr-2018 09:37 by rmk:")
 
@@ -251,13 +252,16 @@
                    (IL:MOUSESTATE IL:LEFT)
                    (IN-TITLE-BAR WINDOW))
 
-              (IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited")
+              (IL:* IL:|;;| "RMK: copy-select in the title bar: return the thing being edited. Previous attempt was too immediate, did not conform to usual mouse-up conventions.")
 
-              (LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
-                                 :|name|)))
-                   (WHEN NAME                                (IL:* IL:\; 
+              (IL:WHILE (EQ 'COPY (SHIFT-DOWN)))
+              (IL:GETMOUSESTATE)
+              (WHEN (IN-TITLE-BAR WINDOW)
+                  (LET ((NAME (IL:LISTGET (IL:WINDOWPROP WINDOW 'TITLE-INFO)
+                                     :|name|)))
+                       (WHEN NAME                            (IL:* IL:\; 
                                                              "Not sure about FLG and RDTBL")
-                       (IL:COPYINSERT NAME))))
+                           (IL:COPYINSERT NAME)))))
              ((OR (EQ SHIFT-DOWN 'COPY)
                   (IL:OBTAIN.MONITORLOCK LOCK T))
 
@@ -815,22 +819,22 @@
 (IL:PUTPROPS IL:SEDIT-WINDOW IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992 
 2018))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87393 (BUILD-WINDOW 12348 . 
-18188) (BUTTONEVENTFN 18190 . 24395) (CHECK-SELECTION 24397 . 26437) (CHECK-SELECTION-SHIFT 26439 . 
-27562) (CLOSEFN 27564 . 30567) (CONFLICTING-SELECTION? 30569 . 31330) (DISPLAY-SELECTION 31332 . 32359
-) (DRAW-HIGHLIGHT 32361 . 33491) (DRAW-OUTLINE 33493 . 34848) (DRAW-UNDERLINE 34850 . 35625) (EXPANDFN
- 35627 . 36134) (EXPANDREGIONFN 36136 . 36726) (EXTEND-SELECTION 36728 . 39305) (
-FINALIZE-MOUSE-SELECTION 39307 . 45853) (FIND-LINE-START 45855 . 46546) (FIND-NODE 46548 . 47823) (
-GET-DESTINATION-CONTEXT 47825 . 48377) (GRAY 48379 . 48766) (GROW-CLICK? 48768 . 50753) (
-GROW-SELECTION 50755 . 51098) (GROW-SELECTION-DEFAULT 51100 . 51471) (HIGHLIGHT-SELECTION 51473 . 
-51766) (ICON-COPYFN 51768 . 52112) (LESS-PROMPT-WINDOW 52114 . 52483) (NORMALIZE-SELECTION 52485 . 
-53851) (OUTLINE-SELECTION 53853 . 54991) (PENDING-DELETE 54993 . 55327) (PLACE-CARET-AND-SELECTION 
-55329 . 56889) (PUNT-SET-POINT 56891 . 57349) (PUNT-SET-SELECTION 57351 . 57800) (REPAINTFN 57802 . 
-59080) (RESHAPEFN 59082 . 61420) (SCAN-FOR-BOUNDS 61422 . 63965) (SELECT-NODE 63967 . 64337) (
-SELECT-SEGMENT 64339 . 64779) (SELECT-SEGMENT-DEFAULT 64781 . 66808) (SELECTION-DOWN 66810 . 67220) (
-SELECTION-UP 67222 . 67648) (SET-POINT 67650 . 68409) (SET-POINT-NOWHERE 68411 . 68670) (
-SET-POINT-UNKNOWN 68672 . 69293) (SET-SELECTION 69295 . 69728) (SET-SELECTION-ME 69730 . 70822) (
-SET-SELECTION-NOWHERE 70824 . 71022) (SHIFT-DOWN 71024 . 71565) (SHOW-CARET 71567 . 77125) (SHRINKFN 
-77127 . 79862) (STRING-OFFSET 79864 . 81224) (TRACK-EXTEND 81226 . 83282) (TRACK-SELECT 83284 . 85773)
- (UNDERLINE-SELECTION 85775 . 86177) (UPDATE-TITLE 86179 . 87391)))))
+  (IL:FILEMAP (NIL (11430 12334 (SELECT-NODE-SEGMENT 11430 . 12334)) (12335 87731 (BUILD-WINDOW 12348 . 
+18188) (BUTTONEVENTFN 18190 . 24733) (CHECK-SELECTION 24735 . 26775) (CHECK-SELECTION-SHIFT 26777 . 
+27900) (CLOSEFN 27902 . 30905) (CONFLICTING-SELECTION? 30907 . 31668) (DISPLAY-SELECTION 31670 . 32697
+) (DRAW-HIGHLIGHT 32699 . 33829) (DRAW-OUTLINE 33831 . 35186) (DRAW-UNDERLINE 35188 . 35963) (EXPANDFN
+ 35965 . 36472) (EXPANDREGIONFN 36474 . 37064) (EXTEND-SELECTION 37066 . 39643) (
+FINALIZE-MOUSE-SELECTION 39645 . 46191) (FIND-LINE-START 46193 . 46884) (FIND-NODE 46886 . 48161) (
+GET-DESTINATION-CONTEXT 48163 . 48715) (GRAY 48717 . 49104) (GROW-CLICK? 49106 . 51091) (
+GROW-SELECTION 51093 . 51436) (GROW-SELECTION-DEFAULT 51438 . 51809) (HIGHLIGHT-SELECTION 51811 . 
+52104) (ICON-COPYFN 52106 . 52450) (LESS-PROMPT-WINDOW 52452 . 52821) (NORMALIZE-SELECTION 52823 . 
+54189) (OUTLINE-SELECTION 54191 . 55329) (PENDING-DELETE 55331 . 55665) (PLACE-CARET-AND-SELECTION 
+55667 . 57227) (PUNT-SET-POINT 57229 . 57687) (PUNT-SET-SELECTION 57689 . 58138) (REPAINTFN 58140 . 
+59418) (RESHAPEFN 59420 . 61758) (SCAN-FOR-BOUNDS 61760 . 64303) (SELECT-NODE 64305 . 64675) (
+SELECT-SEGMENT 64677 . 65117) (SELECT-SEGMENT-DEFAULT 65119 . 67146) (SELECTION-DOWN 67148 . 67558) (
+SELECTION-UP 67560 . 67986) (SET-POINT 67988 . 68747) (SET-POINT-NOWHERE 68749 . 69008) (
+SET-POINT-UNKNOWN 69010 . 69631) (SET-SELECTION 69633 . 70066) (SET-SELECTION-ME 70068 . 71160) (
+SET-SELECTION-NOWHERE 71162 . 71360) (SHIFT-DOWN 71362 . 71903) (SHOW-CARET 71905 . 77463) (SHRINKFN 
+77465 . 80200) (STRING-OFFSET 80202 . 81562) (TRACK-EXTEND 81564 . 83620) (TRACK-SELECT 83622 . 86111)
+ (UNDERLINE-SELECTION 86113 . 86515) (UPDATE-TITLE 86517 . 87729)))))
 IL:STOP
diff --git a/sources/SEDIT-WINDOW.DFASL b/sources/SEDIT-WINDOW.DFASL
index 3a41cbd9..35401b20 100644
Binary files a/sources/SEDIT-WINDOW.DFASL and b/sources/SEDIT-WINDOW.DFASL differ
