diff --git a/lispusers/REGIONMANAGER b/lispusers/REGIONMANAGER
index a48efebe..812f58a2 100644
--- a/lispusers/REGIONMANAGER
+++ b/lispusers/REGIONMANAGER
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "25-Nov-2024 17:59:00" {WMEDLEY}<lispusers>REGIONMANAGER.;135 42008  
+(FILECREATED "20-Apr-2025 12:57:07" {WMEDLEY}<lispusers>REGIONMANAGER.;137 42626  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \RELCREATEREGION.REF)
+      :CHANGES-TO (FNS RM-CLOSEW)
 
-      :PREVIOUS-DATE "27-Oct-2024 21:59:33" {WMEDLEY}<lispusers>REGIONMANAGER.;134)
+      :PREVIOUS-DATE "25-Nov-2024 17:59:00" {WMEDLEY}<lispusers>REGIONMANAGER.;135)
 
 
 (PRETTYCOMPRINT REGIONMANAGERCOMS)
@@ -172,7 +172,8 @@
          WINDOW])
 
 (RM-CLOSEW
-  [LAMBDA (WINDOW)                                           (* ; "Edited 10-Oct-2023 22:11 by rmk")
+  [LAMBDA (WINDOW)                                           (* ; "Edited 20-Apr-2025 12:40 by rmk")
+                                                             (* ; "Edited 10-Oct-2023 22:11 by rmk")
 
     (* ;; 
    "Makes the window's typed region available for reuse, if the window is marked with a TYPEDREGION.")
@@ -181,14 +182,19 @@
 
     (* ;; "This replaces the particular typed-region in TYPED-REGIONS with the region that the window ended up with, perhaps after the user reshaped it.  But (WINDOWPROP WINDOW 'REGION) doesn't include the prompt window, if it's there, and (WINDOWREGION WINDOW) would union in all of the attached windows (menus etc.)  This code assumes that the promptwindow was taken out of the original region (lots of funky code does that), so it unions it back in to the REGION property to reconstruct the original typed-region.  The alternative would be to have the windows region copy the original grabbed region and restore only that.  But then we would be ignoring any reshaping adjustments.")
 
+    (* ;; "")
+
+    (* ;; "There is another use case (e.g. Tedit window-splitting) where the window is reshaped for temporary purposes, but the new shape is not intended to replace the original typed-region if that region is reused.  If the window has the property SAVED-TYPED-REGION (presumably a copy of the original one), then that region is installed in the TYPED-REGION before it is saved back on the TYPED-REGION-LIST")
+
     (LET* [CLOSEVAL (TYPEDREGION (WINDOWPROP WINDOW 'TYPED-REGION))
                  (REGIONTYPE (CAR TYPEDREGION))
                  (TREGION (CDR TYPEDREGION))
                  [PWINDOW (WINDOWP (CAR (MKLIST (WINDOWPROP WINDOW 'PROMPTWINDOW]
-                 [WREGION (CL:IF PWINDOW
-                              (UNIONREGIONS (WINDOWPROP WINDOW 'REGION)
-                                     (WINDOWPROP PWINDOW 'REGION))
-                              (WINDOWPROP WINDOW 'REGION))]
+                 [WREGION (OR (WINDOWPROP WINDOW 'SAVED-TYPED-REGION)
+                              (CL:IF PWINDOW
+                                  (UNIONREGIONS (WINDOWPROP WINDOW 'REGION)
+                                         (WINDOWPROP PWINDOW 'REGION))
+                                  (WINDOWPROP WINDOW 'REGION))]
                  (TREGIONLIST (AND REGIONTYPE (OR (ASSOC REGIONTYPE TYPED-REGIONS)
                                                   (CAR (PUSH TYPED-REGIONS (CONS REGIONTYPE]
           (CL:WHEN (AND (SETQ CLOSEVAL (CLOSEW.ORIG WINDOW))
@@ -746,11 +752,11 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1622 6740 (SET-TYPED-REGIONS 1632 . 3807) (GRAB-TYPED-REGION 3809 . 4835) (
-REGISTER-TYPED-REGION 4837 . 6134) (REGION-TYPE 6136 . 6738)) (6741 14810 (RM-CREATEW 6751 . 8874) (
-RM-CLOSEW 8876 . 11894) (RM-GETREGION 11896 . 14045) (CLOSE-TYPED-W 14047 . 14808)) (15453 22932 (
-RELCREATEREGION 15463 . 20086) (RELGETREGION 20088 . 22695) (RELCREATEPOSITION 22697 . 22930)) (22933 
-30508 (\RELCREATEREGION.REF 22943 . 27465) (\RELCREATEREGION.SIZE 27467 . 30506)) (30561 39903 (
-RM-ATTACHWINDOW 30571 . 39901)) (39904 41638 (CLOSEWITH 39914 . 40441) (CLOSEWITH.DOIT 40443 . 40723) 
-(MOVEWITH 40725 . 41248) (MOVEWITH.DOIT 41250 . 41636)))))
+  (FILEMAP (NIL (1611 6729 (SET-TYPED-REGIONS 1621 . 3796) (GRAB-TYPED-REGION 3798 . 4824) (
+REGISTER-TYPED-REGION 4826 . 6123) (REGION-TYPE 6125 . 6727)) (6730 15428 (RM-CREATEW 6740 . 8863) (
+RM-CLOSEW 8865 . 12512) (RM-GETREGION 12514 . 14663) (CLOSE-TYPED-W 14665 . 15426)) (16071 23550 (
+RELCREATEREGION 16081 . 20704) (RELGETREGION 20706 . 23313) (RELCREATEPOSITION 23315 . 23548)) (23551 
+31126 (\RELCREATEREGION.REF 23561 . 28083) (\RELCREATEREGION.SIZE 28085 . 31124)) (31179 40521 (
+RM-ATTACHWINDOW 31189 . 40519)) (40522 42256 (CLOSEWITH 40532 . 41059) (CLOSEWITH.DOIT 41061 . 41341) 
+(MOVEWITH 41343 . 41866) (MOVEWITH.DOIT 41868 . 42254)))))
 STOP
diff --git a/lispusers/REGIONMANAGER.LCOM b/lispusers/REGIONMANAGER.LCOM
index 5f7b6c23..3edae72b 100644
Binary files a/lispusers/REGIONMANAGER.LCOM and b/lispusers/REGIONMANAGER.LCOM differ
