diff options
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 428f758..5b8f3a6 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3688,7 +3688,7 @@ TclStringFirst( } } firstEnd: - TclNewIntObj(result, value); + TclNewIndexObj(result, value); return result; } @@ -3775,7 +3775,7 @@ TclStringLast( checkStr--; } lastEnd: - TclNewIntObj(result, value); + TclNewIndexObj(result, value); return result; } |