--- toast	2008/03/20 01:29:53	1.452
+++ toast	2008/03/31 19:14:18	1.453
@@ -1283,6 +1283,7 @@
     $ditonameidx{$di} = $#names unless exists($ditonameidx{$di});
     last if $dir eq "/";
     $dir = path($dir, "..");
+    last unless -r($dir);
     last if whiledir # figure out how to get down one level from here
     {
       my($pd, $pi) = stat(path($dir, $_));