From 423f761169b37ab7bd60fa145f1b2a63c4075db0 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Fri, 18 May 2018 19:54:56 +0000
Subject: Fix [9e6b569963]: file normalize ~user fails on Windows

---
 win/tclWinFile.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 9afe0a9..beab147 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -1444,6 +1444,7 @@ TclpGetUserHome(
     char *domain;
     WCHAR *wName, *wHomeDir, *wDomain, **wDomainPtr = &wDomain;
     WCHAR buf[MAX_PATH];
+    LPCWSTR wServername = NULL;
 
     Tcl_DStringInit(bufferPtr);
     wDomain = NULL;
@@ -1458,7 +1459,8 @@ TclpGetUserHome(
     if (badDomain == 0) {
 	Tcl_DStringInit(&ds);
 	wName = Tcl_UtfToUniCharDString(name, nameLen, &ds);
-	if (NetUserGetInfo(wDomain, wName, 1, (LPBYTE *) uiPtrPtr) == 0) {
+        NetGetDCName(NULL, wDomain, (LPBYTE *) &wServername);
+	if (NetUserGetInfo(wServername, wName, 1, (LPBYTE *) uiPtrPtr) == 0) {
 	    wHomeDir = uiPtr->usri1_home_dir;
 	    if ((wHomeDir != NULL) && (wHomeDir[0] != L'\0')) {
 		Tcl_UniCharToUtfDString(wHomeDir, lstrlenW(wHomeDir),
-- 
cgit v0.12