diff options
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index cacf87a..a75ac05 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2275,7 +2275,7 @@ Tcl_GetInterpPath( InterpInfo *iiPtr; if (targetInterp == interp) { - Tcl_SetObjResult(interp, Tcl_NewObj()); + Tcl_ResetResult(interp); return TCL_OK; } if (targetInterp == NULL) { |