Index: generic/nsfStack.c
===================================================================
diff -u -rd49e60e74c36c563db5ba7095c2f898f1029169b -r9be296c7be8b0c04eaedd9f96c36d626aa7c2c97
--- generic/nsfStack.c	(.../nsfStack.c)	(revision d49e60e74c36c563db5ba7095c2f898f1029169b)
+++ generic/nsfStack.c	(.../nsfStack.c)	(revision 9be296c7be8b0c04eaedd9f96c36d626aa7c2c97)
@@ -1016,8 +1016,8 @@
   Tcl_CallFrame *varFramePtr = (Tcl_CallFrame *)Tcl_Interp_varFramePtr(interp), 
     *prevFramePtr = varFramePtr;
 
-  fprintf(stderr, "BeginOfCallChain obj %s\n", ObjectName(object));
   if (object) {
+    fprintf(stderr, "BeginOfCallChain obj %s\n", ObjectName(object));
     for (; varFramePtr; varFramePtr = Tcl_CallFrame_callerPtr(varFramePtr)) {
       register int flags = Tcl_CallFrame_isProcCallFrame(varFramePtr);