Tcl Source Code: Artifact [dba0301bd8]

Artifact dba0301bd8293071aeda2481d61bbae64fc401631632a1e5cc6010373aaa1234:

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

diff --git generic/tclOO.c generic/tclOO.c
index d9cabe68b0..c425a42887 100644
--- generic/tclOO.c
+++ generic/tclOO.c
@@ -457,6 +457,7 @@ InitClassSystemRoots(
     fPtr->objectCls = &fakeCls;
     /* referenced in TclOOAllocClass to increment the refCount. */
     fakeCls.thisPtr = &fakeObject;
+    fakeObject.refCount = 0; /* Do not increment an uninitialized value. */
 
     fPtr->objectCls = TclOOAllocClass(interp,
 	    AllocObject(interp, "object", (Namespace *)fPtr->ooNs, NULL));