1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index 21018ac..b60ab1f 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -3035,7 +3035,7 @@ TclOOObjectName(
     if (oPtr->cachedNameObj) {
 	return oPtr->cachedNameObj;
     }
-    namePtr = Tcl_NewObj();
+    TclNewObj(namePtr);
     Tcl_GetCommandFullName(interp, oPtr->command, namePtr);
     Tcl_IncrRefCount(namePtr);
     oPtr->cachedNameObj = namePtr;