Index: generic/nsfError.c
===================================================================
diff -u -N -r878a74b68b15d4ee5c33d345e670f50ce7473ebc -r5df12821bf0c331be48b7b01b986f9db6dab72c9
--- generic/nsfError.c	(.../nsfError.c)	(revision 878a74b68b15d4ee5c33d345e670f50ce7473ebc)
+++ generic/nsfError.c	(.../nsfError.c)	(revision 5df12821bf0c331be48b7b01b986f9db6dab72c9)
@@ -478,7 +478,7 @@
     Tcl_DStringAppend(dsPtr, pPtr->name, -1);
     Tcl_DStringAppend(dsPtr, ", ", -1);
   }
-  Tcl_DStringTrunc(dsPtr, Tcl_DStringLength(dsPtr) - 2);
+  Tcl_DStringSetLength(dsPtr, Tcl_DStringLength(dsPtr) - 2);
   Tcl_DStringAppend(dsPtr, ";\n", 2);
 
   NsfArgumentError(interp, Tcl_DStringValue(dsPtr), paramPtr, (object != NULL) ? object->cmdName : NULL,