--- Find.pm     Sun Jul 23 19:34:22 2000
+++ Find.pm~    Wed Apr  7 03:36:57 1999
@@ -171,7 +171,7 @@
                ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_));
                    # unless ($nlink || $dont_use_nlink);
 
-               if (-d _ || (-l $_ && -d readlink($_)) ) {
+               if (-d _) {
 
                    # It really is a directory, so do it recursively.