diff options
Diffstat (limited to 'generic/tclIOGT.c')
-rw-r--r-- | generic/tclIOGT.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index 215c6c7..fb80041 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -379,8 +379,7 @@ ExecuteCallback( unsigned char *resBuf; Tcl_InterpState state = NULL; int res = TCL_OK; - Tcl_Obj *command = TclDuplicatePureObj( - interp, dataPtr->command, &tclListType); + Tcl_Obj *command = Tcl_DuplicateObj(dataPtr->command); if (!command) { return TCL_ERROR; } |