diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d index 34d1c82ad..bbd9cc75b 100644 --- a/src/c/unixfsys.d +++ b/src/c/unixfsys.d @@ -547,12 +547,12 @@ ecl_homedir_pathname(cl_object user) FEerror("Unknown user ~S.", 1, p); } else if ((h = getenv("HOME"))) { namestring = make_base_string_copy(h); -#ifdef _MSC_VER +#if defined(_MSC_VER) || defined(ming32) } else if ((h = getenv("HOMEPATH")) && (d = getenv("HOMEDRIVE"))) { namestring = si_base_string_concatenate(2, - make_constant_base_string(h), - make_constant_base_string(d)); + make_constant_base_string(d), + make_constant_base_string(h)); #endif } else { namestring = make_constant_base_string("/");