--- 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;