diff options
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 0267fcb..6162a31 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -1694,7 +1694,7 @@ BinaryScanCmd( */ done: - Tcl_SetObjResult(interp, Tcl_NewLongObj(arg - 3)); + Tcl_SetObjResult(interp, Tcl_NewIntObj(arg - 3)); DeleteScanNumberCache(numberCachePtr); return TCL_OK; |