Index: generic/nsf.c
===================================================================
diff -u -r1c4cb273089674161189c6d19deae17fc56334b3 -r4265c280c2d31f281e33fc0cddd9ebdd798ebc06
--- generic/nsf.c	(.../nsf.c)	(revision 1c4cb273089674161189c6d19deae17fc56334b3)
+++ generic/nsf.c	(.../nsf.c)	(revision 4265c280c2d31f281e33fc0cddd9ebdd798ebc06)
@@ -14924,6 +14924,11 @@
   AddInstance((NsfObject*)thecls, thecls);
   AddSuper(thecls, theobj);
 
+  if (NSF_DTRACE_OBJECT_ALLOC_ENABLED()) {
+    NSF_DTRACE_OBJECT_ALLOC(ObjectName(((NsfObject*)theobj)), ClassName(((NsfObject*)theobj)->cl));
+    NSF_DTRACE_OBJECT_ALLOC(ObjectName(((NsfObject*)thecls)), ClassName(((NsfObject*)thecls)->cl));
+  }
+
   return TCL_OK;
 }
 
@@ -17423,8 +17428,8 @@
 			 nameString);
   }
 
-  if (NSF_DTRACE_OBJECT_CREATE_ENABLED()) {
-    NSF_DTRACE_OBJECT_CREATE(ObjectName(newObj), ClassName(cl));
+  if (NSF_DTRACE_OBJECT_ALLOC_ENABLED()) {
+    NSF_DTRACE_OBJECT_ALLOC(ObjectName(newObj), ClassName(cl));
   }
   
   Tcl_SetObjResult(interp, nameObj);