diff options
| -rw-r--r-- | generic/tclNamesp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 978639e..b91a4ec 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -3076,7 +3076,8 @@ TclNewNamespaceObj( resNamePtr->nsPtr = nsPtr; resNamePtr->refNsPtr = NULL; - resNamePtr->refCount = 1; + resNamePtr->refCount = 0; + nsPtr->refCount++; NsNameSetInternalRep(objPtr, resNamePtr); } return objPtr; |