diff --git a/ChangeLog b/ChangeLog
index 4921fa5d37..e2566bfb19 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-05  Ulrich Drepper  <drepper@redhat.com>
+
+	* dirent/bug-readdir1.c (main): Don't call closedir, just close on
+	the file descriptor.  This is testing what the bug report was about.
+
 2002-12-04  Ulrich Drepper  <drepper@redhat.com>
 
 	* po/be.po: New file.
diff --git a/dirent/bug-readdir1.c b/dirent/bug-readdir1.c
index f9c609cc98..1f70722dd2 100644
--- a/dirent/bug-readdir1.c
+++ b/dirent/bug-readdir1.c
@@ -23,11 +23,12 @@ main (void)
       exit (1);
     }
 
-  /* close the dir stream, making it invalid */
-  if (closedir (dirp))
+  /* close the directory file descriptor, making it invalid */
+  if (close (dirfd (dirp)) != 0)
     {
-      perror ("closedir");
-      exit (1);
+      puts ("could not close directory file descriptor");
+      /* This is not an error.  It is not guaranteed this is possible.  */
+      return 0;
     }
 
   ent = readdir (dirp);