Index: libguile/guile-snarf.in
===================================================================
--- libguile/guile-snarf.in.orig	2016-07-21 14:25:17.474695839 +0200
+++ libguile/guile-snarf.in	2016-07-21 14:25:22.894645638 +0200
@@ -87,8 +87,7 @@
 cpp_ok_p=false
 
 if [ x"$TMPDIR" = x ]; then TMPDIR="/tmp" ; else : ; fi
-tempdir="$TMPDIR/guile-snarf.$$"
-(umask 077 && mkdir $tempdir) || exit 1
+tempdir=$(mktemp -d -q "$TMPDIR/snarf.XXXXXX") || { echo >&2 "guile-snarf: can not create temporary file"; exit 1; }
 temp="$tempdir/tmp"
 
 if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi