diff options
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index b5e73ea..dcd7e6b 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1399,7 +1399,7 @@ Tcl_VwaitObjCmd( * we assume that option is not an integer, try to get numeric timeout */ if (!TclObjIsIndexOfTable(objv[optc], updateEventOptions) - && TclpGetUTimeFromObj(NULL, objv[optc], &usec) == TCL_OK) { + && TclpGetUTimeFromObj(NULL, objv[optc], &usec, 1000) == TCL_OK) { if (usec < 0) { usec = 0; }; optc--; } |