--- toast 2005/06/24 03:48:28 1.382 +++ toast 2005/07/04 18:46:27 1.383 @@ -1379,7 +1379,7 @@ for(split(/:/, $ENV{"PATH"})) { my($path) = path($_, $^X); - if(-x($path)) + if(-x($path) && !-d($path)) # thanks Frederik! { $result = $path; last;