Index: generic/nsf.c
===================================================================
diff -u -rf500093898a560a8e065932a637d068d02362f32 -r0aabdb6234b43933aee2b26d86401912d9db8d48
--- generic/nsf.c	(.../nsf.c)	(revision f500093898a560a8e065932a637d068d02362f32)
+++ generic/nsf.c	(.../nsf.c)	(revision 0aabdb6234b43933aee2b26d86401912d9db8d48)
@@ -32908,7 +32908,7 @@
     ObjTrace("CREATE", newObject);
 
     if (autoNameCreate) {
-      NsfObjectRefCountIncr(newObject);
+      newObject->flags |= NSF_IS_AUTONAMED;
     }
 
     /*
@@ -32921,13 +32921,6 @@
   }
  create_method_exit:
 
-  if (newObject != NULL && autoNameCreate) {
-    if (result == TCL_OK) {
-      newObject->flags |= NSF_IS_AUTONAMED;
-    }
-    NsfObjectRefCountDecr(newObject);
-  }
-
   if (tmpObj != NULL) {
     DECR_REF_COUNT(tmpObj);
   }