From 388d5cda26e21bca70ecfbab1def0ff634341dfa Mon Sep 17 00:00:00 2001
From: gcramer <remarcg@gmx.net>
Date: Sat, 10 Jun 2017 09:02:59 +0000
Subject: Minor change in InspectRetainedUndoItems().

---
 generic/tkText.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tkText.c b/generic/tkText.c
index ffeb7b3..f0acb0b 100644
--- a/generic/tkText.c
+++ b/generic/tkText.c
@@ -8827,8 +8827,7 @@ InspectRetainedUndoItems(
 
 	Tcl_ListObjLength(NULL, resultPtr, &len);
 	if (len == 0) {
-	    Tcl_IncrRefCount(resultPtr);
-	    Tcl_GuardedDecrRefCount(resultPtr);
+	    Tcl_DecrRefCount(resultPtr);
 	} else {
 	    Tcl_ListObjAppendElement(NULL, objPtr, resultPtr);
 	}
-- 
cgit v0.12