diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index c727ec59b..bbbc9af7c 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-30  Gary Houston  <ghouston@arglist.com>
+
+	* posix.scm (setgrent): pass #t, not #f.  thanks to
+	Jacques A. Vidrine.
+
 2000-09-29  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* documentation.scm (find-documentation-in-file): Modified
diff --git a/ice-9/posix.scm b/ice-9/posix.scm
index 9698a0b8a..9d76a79d0 100644
--- a/ice-9/posix.scm
+++ b/ice-9/posix.scm
@@ -63,7 +63,7 @@
 (define (getpwuid uid) (getpw uid))
 
 (define (getgrent) (getgr))
-(define (setgrent) (setgr #f))
+(define (setgrent) (setgr #t))
 (define (endgrent) (setgr))
 
 (define (getgrnam name) (getgr name))