1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c
index b6089d3..4c19b55 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -53,6 +53,7 @@ Tcl_GetInt(
     if (obj.refCount > 1) {
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
+    TclFreeIntRep(&obj);
     return code;
 }
 
@@ -96,6 +97,7 @@ Tcl_GetDouble(
     if (obj.refCount > 1) {
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
+    TclFreeIntRep(&obj);
     return code;
 }