aboutsummaryrefslogtreecommitdiff
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/Item.c3
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 {