diff options
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 91ceaa6..898ccab 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1846,7 +1846,7 @@ TestdoubledigitsObjCmd(void *dummy, Tcl_SetObjResult(interp, Tcl_NewStringObj("bad flag", -1)); return TCL_ERROR; } - type |= TCL_DD_SHORTEN_FLAG; + type |= TCL_DD_SHORTEST; } str = TclDoubleDigits(d, ndigits, type, &decpt, &signum, &endPtr); strObj = Tcl_NewStringObj(str, endPtr-str); |