Index: generic/nsfError.c
===================================================================
diff -u -r00ff4a03e07cece02249590e1903a0644f3464bf -r821c01bd241c51be4fa0931d423d8f8658606ee1
--- generic/nsfError.c	(.../nsfError.c)	(revision 00ff4a03e07cece02249590e1903a0644f3464bf)
+++ generic/nsfError.c	(.../nsfError.c)	(revision 821c01bd241c51be4fa0931d423d8f8658606ee1)
@@ -92,7 +92,9 @@
                Tcl_Obj *clName, CONST char *procName) {
   Tcl_DString errMsg;
   char *cName, *space;
-  ALLOC_DSTRING(&errMsg, "\n    ");
+  
+  Tcl_DStringInit(&errMsg);
+  Tcl_DStringAppend(&errMsg, "\n    ", -1);
   if (clName) {
     cName = ObjStr(clName);
     space = " ";
@@ -106,7 +108,7 @@
   Tcl_DStringAppend(&errMsg, "->", 2);
   Tcl_DStringAppend(&errMsg, procName, -1);
   Tcl_AddErrorInfo (interp, Tcl_DStringValue(&errMsg));
-  DSTRING_FREE(&errMsg);
+  Tcl_DStringFree(&errMsg);
   return TCL_ERROR;
 }