From 6c67bd02861aa2363f0e2ef8dd4639566a114351 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 1 Oct 2023 19:24:38 +0000
Subject: [PATCH] Fix [7b31677235]: tclOO.c: initialize fakeObject.refCount

---
 generic/tclOO.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/generic/tclOO.c b/generic/tclOO.c
index c8937ef4bff..4efdd9e5f75 100644
--- a/generic/tclOO.c
+++ b/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));