diff options
Diffstat (limited to 'generic/tclPkg.c')
| -rw-r--r-- | generic/tclPkg.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index ddb98fa..6a42a38 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -537,10 +537,7 @@ PkgRequireCoreStep1( Tcl_NRAddCallback(interp, PkgRequireCoreStep2, reqPtr, INT2PTR(reqc), (void *) reqv, NULL); - Tcl_NREvalObj(interp, - Tcl_NewStringObj(Tcl_DStringValue(&command), - Tcl_DStringLength(&command)), - TCL_EVAL_GLOBAL); + Tcl_NREvalObj(interp, Tcl_DStringToObj(&command), TCL_EVAL_GLOBAL); Tcl_DStringFree(&command); return TCL_OK; } |