Index: tclWinChan.c
===================================================================
RCS file: /cvsroot/tcl/win/tclWinChan.c,v
retrieving revision 1.1.2.4
diff -c -r1.1.2.4 tclWinChan.c
*** tclWinChan.c	1999/02/26 02:19:23	1.1.2.4
--- tclWinChan.c	1999/03/09 20:11:26
***************
*** 443,448 ****
--- 443,449 ----
      newPos = SetFilePointer(infoPtr->handle, offset, NULL, moveMethod);
      if (newPos == 0xFFFFFFFF) {
          TclWinConvertError(GetLastError());
+         *errorCodePtr = errno;
          return -1;
      }
      return newPos;