--- tclx-8.4.2/win/tclXwinOS.c.orig	2019-07-22 13:52:47.740440400 +0300
+++ tclx-8.4.2/win/tclXwinOS.c	2019-07-22 13:52:57.428057500 +0300
@@ -1076,7 +1076,7 @@
  */
 int
 TclXOSInetAtoN (Tcl_Interp     *interp,
-                char           *strAddress,
+                const char     *strAddress,
                 struct in_addr *inAddress)
 {
     inAddress->s_addr = inet_addr (strAddress);
