diff options
Diffstat (limited to 'generic/tclTimer.c')
| -rw-r--r-- | generic/tclTimer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index e772005..94eb2d0 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -980,7 +980,8 @@ Tcl_AfterObjCmd( Tcl_ListObjAppendElement(interp, resultListPtr, afterPtr->commandPtr); Tcl_ListObjAppendElement(interp, resultListPtr, Tcl_NewStringObj( - (afterPtr->token == NULL) ? "idle" : "timer", -1)); + (afterPtr->token == NULL) ? "idle" : "timer", + TCL_STRLEN)); Tcl_SetObjResult(interp, resultListPtr); } break; |