diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 4fdc5212a..4d0fe3625 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-01  Ludovic Courtès  <ludo@gnu.org>
+
+	* ports.c (flush_output_port): Expect directly a port instead of
+	a pair.  Fixes a bug in the new port table (2007-08-26).
+
 2007-09-11  Kevin Ryde  <user42@zip.com.au>
 
 	* posix.c (scm_putenv): Confine the putenv("NAME=") bit to mingw, use
diff --git a/libguile/ports.c b/libguile/ports.c
index aa05bd9b1..6cb77966e 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -904,9 +904,8 @@ SCM_DEFINE (scm_force_output, "force-output", 0, 1, 0,
 
 
 static void
-flush_output_port (void *closure, SCM handle)
+flush_output_port (void *closure, SCM port)
 {
-  SCM port = SCM_CDR (handle);
   if (SCM_OPOUTPORTP (port))
     scm_flush (port);
 }