From f828e2a02cc73ca7d9ee7ed8383568d3affff53e Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Sun, 23 May 2021 22:36:21 +0000
Subject: Fix aqua crash in wm-transient-7.5

---
 macosx/tkMacOSXWm.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c
index 4b08fc5..25bba72 100644
--- a/macosx/tkMacOSXWm.c
+++ b/macosx/tkMacOSXWm.c
@@ -3734,6 +3734,7 @@ WmTransientCmd(
 	if (TkGetWindowFromObj(interp, tkwin, objv[3], &container) != TCL_OK) {
 	    return TCL_ERROR;
 	}
+	RemoveTransient(winPtr);
 	containerPtr = (TkWindow*) container;
 	while (!Tk_TopWinHierarchy(containerPtr)) {
             /*
-- 
cgit v0.12