*** folder.c.orig	Tue Nov 30 20:01:36 1993
--- uip/folder.c	Fri Jul  1 13:11:16 1994
***************
*** 551,556 ****
--- 551,561 ----
  
      base = strcmp (name, "./") ? name : name + 2;/* hack */
  
+      /* short-cut to see if directory has any sub-directories */
+ 
+      if (stat (name, &st) != NOTOK && st.st_nlink == 2)
+ 	return;
+ 
      if ((dd = opendir (name)) == NULL) {
  	admonish (name, "unable to read directory ");
  	return;
