Index: tclWinPort.h
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinPort.h,v
retrieving revision 1.58
diff -u -r1.58 tclWinPort.h
--- tclWinPort.h        11 May 2010 14:47:12 -0000      1.58
+++ tclWinPort.h        22 Jun 2010 13:16:14 -0000
@@ -141,13 +141,13 @@
 #   define EPROTONOSUPPORT 120 /* Protocol not supported */
 #endif
 #ifndef ESOCKTNOSUPPORT
-#   define ESOCKTNOSUPPORT 121 /* Socket type not supported */
+#   define ESOCKTNOSUPPORT 150 /* Socket type not supported , 121 already used to define ENOLINK in errno.h */
 #endif
 #ifndef EOPNOTSUPP
 #   define EOPNOTSUPP  122     /* Operation not supported on socket */
 #endif
 #ifndef EPFNOSUPPORT
-#   define EPFNOSUPPORT        123     /* Protocol family not supported */
+#   define EPFNOSUPPORT        152     /* Protocol family not supported, 123 already used to define ENOPROTOOPT in errno.h */
 #endif
 #ifndef EAFNOSUPPORT
 #   define EAFNOSUPPORT        124     /* Address family not supported */