Tcl Source Code

Artifact 35a3f4c1fe0c178a3f34c72438355866e4664179421ae55311d9dfa707e027d5:

Attachment "7b31677235-8.6.diff" to ticket [7b31677235] added by chrstphrchvz 2023-10-01 19:07:10.

---

diff --git generic/tclOO.c generic/tclOO.c
index c8937ef4bf..4efdd9e5f7 100644
--- generic/tclOO.c
+++ generic/tclOO.c
@@ -398,6 +398,7 @@ InitFoundation(
      */
 
     fakeCls.thisPtr = &fakeObject;
+    fakeObject.refCount = 0; /* Do not increment an uninitialized value. */
 
     fPtr->objectCls = TclOOAllocClass(interp,
 	    AllocObject(interp, "object", (Namespace *)fPtr->ooNs, NULL));