1 files changed, 3 insertions, 0 deletions
diff --git a/generic/Item.c b/generic/Item.c
index cf198e7..3c9f651 100644
--- a/generic/Item.c
+++ b/generic/Item.c
@@ -1588,6 +1588,9 @@ QueryAttribute(char	*record,
     else if (attr_uid == desc->uid) {
       result = AttributeToObj(wi, record, desc, buffer);
       Tcl_SetObjResult(wi->interp, result);
+#ifdef PTK
+      Tcl_DecrRefCount(result);
+#endif
       break;
     }
     else {