diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index e2b9cf075..3a6c32214 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-24  Gary Houston  <ghouston@arglist.com>
+
+	* tests/ports.test: include (ice-9 rdelim) module.
+
 2001-01-18  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* tests/numbers.test:  Converted to do real boundary testing.
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 71f4882f7..dbdca077c 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -19,7 +19,8 @@
 ;;;; Boston, MA 02111-1307 USA
 
 (use-modules (test-suite lib)
-	     (ice-9 popen))
+	     (ice-9 popen)
+	     (ice-9 rdelim))
 
 (define (display-line . args)
   (for-each display args)
@@ -200,6 +201,7 @@
 			 (let ((errno (car (list-ref args 3))))
 			   (or (= errno EAGAIN)
 			       (= errno EWOULDBLOCK))))))))
+
 
 ;;;; Pipe (popen) ports.