Index: ./src/data/make-file.c
===================================================================
RCS file: /sources/pspp/pspp/src/data/make-file.c,v
retrieving revision 1.7
diff -r1.7 make-file.c
37a38,61
> char* get_temp_dir () 
> {
>   const char *parent_dir;
> 
>   if (getenv ("TMPDIR") != NULL) 
>    {
>      parent_dir = getenv ("TMPDIR");
>    }
>   else if (getenv ("TEMP") != NULL) 
>    {
>      parent_dir = getenv ("TEMP");
>    }
>   else if (getenv ("TMP") != NULL) 
>    {
>      parent_dir = getenv ("TMP");
>    }
>   else
>    {
>     parent_dir = P_tmpdir;
>    }
> 
>   return parent_dir;
> }
> 
44c68
<   const char *parent_dir;
---
>   const char *parent_dir=get_temp_dir();
49,53d72
<   if (getenv ("TMPDIR") != NULL)
<     parent_dir = getenv ("TMPDIR");
<   else
<     parent_dir = P_tmpdir;
< 
55a75
> #ifdef __MINGW__
56a77,79
> #else
>   *fd = mkstemps (*file_name,0);
> #endif 
76c99
<   const char *parent_dir;
---
>   const char *parent_dir=get_temp_dir();
87,91d109
<   if (getenv ("TMPDIR") != NULL)
<     parent_dir = getenv ("TMPDIR");
<   else
<     parent_dir = P_tmpdir;
<