mingw/mingw-packages/mingw-w64-tcl/001-fix-relocation.patch

--- tcl8.6.7/win/tclWinInit.orig.c	2017-05-08 18:06:31.000000000 +0200
+++ tcl8.6.7/win/tclWinInit.c	2017-11-29 00:00:42.764038800 +0100
@@ -366,7 +366,7 @@
     end = strrchr(name, '\\');
     *end = '\0';
     p = strrchr(name, '\\');
-    if (p != NULL) {
+    if (p != NULL && !strcmp(p+1, "bin")) {
 	end = p;
     }
     *end = '\\';
@@ -417,7 +417,7 @@
     end = strrchr(name, '\\');
     *end = '\0';
     p = strrchr(name, '\\');
-    if (p != NULL) {
+    if (p != NULL && !strcmp(p+1, "bin")) {
 	end = p;
     }
     *end = '\\';