1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c
index 8814819..1e8d1a3 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -104,7 +104,7 @@ TclOODeleteContext(
     register Object *oPtr = contextPtr->oPtr;
 
     TclOODeleteChain(contextPtr->callPtr);
-    ckfree(contextPtr);
+    TclStackFree(oPtr->fPtr->interp, contextPtr);
     DelRef(oPtr);
 }
 
@@ -1087,7 +1087,7 @@ TclOOGetCallContext(
     }
 
   returnContext:
-    contextPtr = ckalloc(sizeof(CallContext));
+    contextPtr = TclStackAlloc(oPtr->fPtr->interp, sizeof(CallContext));
     contextPtr->oPtr = oPtr;
     AddRef(oPtr);
     contextPtr->callPtr = callPtr;