From cca1a031f796787ad1f40e39cf6d88c163c41e6f Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Fri, 22 Aug 2025 14:52:30 +0000
Subject: Fix memory debugging info

---
 generic/tclStringObj.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 76ad05e..19cda6f 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -235,6 +235,10 @@ Tcl_NewStringObj(
 {
     return Tcl_DbNewStringObj(bytes, length, "unknown", 0);
 }
+
+// Redefine the macro
+#define Tcl_NewStringObj(bytes, len) \
+     Tcl_DbNewStringObj(bytes, len, __FILE__, __LINE__)
 #else /* if not TCL_MEM_DEBUG */
 Tcl_Obj *
 Tcl_NewStringObj(
-- 
cgit v0.12