Index: generic/nsf.c
===================================================================
diff -u -ra5dfcb547e25f83286793ba9850b988b822adf3e -r844e640084704c4863864f59d2c258b8019cc69f
--- generic/nsf.c	(.../nsf.c)	(revision a5dfcb547e25f83286793ba9850b988b822adf3e)
+++ generic/nsf.c	(.../nsf.c)	(revision 844e640084704c4863864f59d2c258b8019cc69f)
@@ -20027,8 +20027,8 @@
   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);
+    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;