? patch
Index: Source/NSUser.m
===================================================================
RCS file: /cvsroot/gnustep/gnustep/core/base/Source/NSUser.m,v
retrieving revision 1.73
diff -w -u -p -r1.73 NSUser.m
--- Source/NSUser.m	11 May 2002 05:21:46 -0000	1.73
+++ Source/NSUser.m	27 Nov 2002 11:04:40 -0000
@@ -257,15 +257,23 @@ NSHomeDirectoryForUser(NSString *loginNa
 #else
   if ([loginName isEqual: NSUserName()] == YES)
     {
+      /* If environment variable USERPROFILE exists, we use it, otherwise we
+         look at HOMEPATH */
+      [gnustep_global_lock lock];
+
+      s = GSStringFromWin32EnvironmentVariable("USERPROFILE");
+
+      if (![s length])
+          {
       /* Then environment variable HOMEPATH holds the home directory
 	 for the user on Windows NT; Win95 has no concept of home. */
-      [gnustep_global_lock lock];
       s = GSStringFromWin32EnvironmentVariable("HOMEPATH");
       if (s != nil)
 	{
 	  s = [GSStringFromWin32EnvironmentVariable("HOMEDRIVE")
 	    stringByAppendingString: s];
 	}
+          }
       [gnustep_global_lock unlock];
     }
   if ([s length] == 0 && [loginName length] != 1)