--- intltool-merge.in.in.orig	Mon Dec  8 21:27:55 2003
+++ intltool-merge.in.in	Mon Dec  8 21:28:05 2003
@@ -875,7 +875,7 @@
     if ($MULTIPLE_OUTPUT) {
         for my $lang (sort keys %po_files_by_lang) {
 	    if ( ! -e $lang ) {
-	        mkdir $lang or die "Cannot create subdirectory $lang: $!\n";
+	        mkdir $lang, 0777 or die "Cannot create subdirectory $lang: $!\n";
             }
             open OUTPUT, ">$lang/$OUTFILE" or die "Cannot open $lang/$OUTFILE: $!\n";
             my $tree = readXml($FILE);