diff --git a/Modules/_tkinter.c b/Modules/_tkinter.c
index 163449a927cf18..fc8af244adf4ed 100644
--- a/Modules/_tkinter.c
+++ b/Modules/_tkinter.c
@@ -2972,6 +2972,7 @@ Tkapp_Dealloc(PyObject *self)
     ENTER_TCL
     Tcl_DeleteInterp(Tkapp_Interp(self));
     LEAVE_TCL
+    Py_XDECREF(((TkappObject *)self)->trace);
     PyObject_Free(self);
     Py_DECREF(tp);
     DisableEventHook();