Index: generic/nsf.c
===================================================================
diff -u -rdd2352511413900de40068dafb06731b23e14891 -rd76911cc976778b999b80c4540e79c72bb01c75c
--- generic/nsf.c	(.../nsf.c)	(revision dd2352511413900de40068dafb06731b23e14891)
+++ generic/nsf.c	(.../nsf.c)	(revision d76911cc976778b999b80c4540e79c72bb01c75c)
@@ -22202,9 +22202,9 @@
     result = Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_DIRECT);
   }
   if (result == TCL_ERROR) {
-    char msg[32 + TCL_INTEGER_SPACE];
-    sprintf(msg, "\n    (\"uplevel\" body line %d)", Tcl_GetErrorLine(interp));
-    Tcl_AddObjErrorInfo(interp, msg, -1);
+    Tcl_AppendObjToErrorInfo(interp, 
+       Tcl_ObjPrintf("\n    (\"uplevel\" body line %d)", 
+		     Tcl_GetErrorLine(interp)));
   }
 
   /*