Index: generic/nsf.c
===================================================================
diff -u -r7a3ce03f8d70724a621e75469908f0d3aa57ba3e -re603015e6a5c3e138080ccea8b7c4c9c8e868bef
--- generic/nsf.c	(.../nsf.c)	(revision 7a3ce03f8d70724a621e75469908f0d3aa57ba3e)
+++ generic/nsf.c	(.../nsf.c)	(revision e603015e6a5c3e138080ccea8b7c4c9c8e868bef)
@@ -22216,9 +22216,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)));
   }
 
   /*