Index: generic/nsfProfile.c
===================================================================
diff -u -N -r2076cebc74107d25878e6a95688db6b444fd6b0e -r5df12821bf0c331be48b7b01b986f9db6dab72c9
--- generic/nsfProfile.c	(.../nsfProfile.c)	(revision 2076cebc74107d25878e6a95688db6b444fd6b0e)
+++ generic/nsfProfile.c	(.../nsfProfile.c)	(revision 5df12821bf0c331be48b7b01b986f9db6dab72c9)
@@ -603,7 +603,7 @@
     Tcl_DStringAppendElement(&traceLabel, Tcl_DStringValue(&ds));
     Tcl_DStringAppend(&traceLabel, " ", 1);
 
-    Tcl_DStringTrunc(&ds, 0);
+    Tcl_DStringSetLength(&ds, 0);
     NsfProfileMethodLabel(&ds, cl, methodName);
     Tcl_DStringAppendElement(&traceLabel, Tcl_DStringValue(&ds));
 
@@ -634,7 +634,7 @@
     Tcl_DStringAppendElement(&traceLabel, Tcl_DStringValue(&ds));
     Tcl_DStringAppend(&traceLabel, " ", 1);
 
-    Tcl_DStringTrunc(&ds, 0);
+    Tcl_DStringSetLength(&ds, 0);
     NsfProfileMethodLabel(&ds, cl, methodName);
     Tcl_DStringAppendElement(&traceLabel, Tcl_DStringValue(&ds));
 
@@ -842,7 +842,7 @@
   profilePtr->overallTime = 0;
   profilePtr->depth = 0;
 
-  Tcl_DStringTrunc(&profilePtr->traceDs, 0);
+  Tcl_DStringSetLength(&profilePtr->traceDs, 0);
 }
 
 /*