Index: tclWinChan.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinChan.c,v
retrieving revision 1.50
diff -r1.50 tclWinChan.c
578c578
<     return (Tcl_LongAsWide(newPos) | (Tcl_LongAsWide(newPosHigh) << 32));
---
>     return (((Tcl_WideInt)((unsigned)newPos)) | (Tcl_LongAsWide(newPosHigh) << 32));
