--- toast	2003/10/20 00:32:55	1.220
+++ toast	2003/10/20 22:07:50	1.221
@@ -3060,7 +3060,7 @@
   {
     $newversion = $oldversion . $suffix . $num;
     $newverdir = pkgpath($name, $newversion);
-    last if mkdir($newverdir);
+    last if mkdir($newverdir, 0777);
     error("mkdir $newverdir: $!") unless -d($newverdir);
     $num++;
   }