diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 3f964f131..6dd33904f 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+1999-08-12  Gary Houston  <ghouston@easynet.co.uk>
+
+	* tests/ports.test: lseek -> seek.
+
 1999-08-04  Gary Houston  <ghouston@easynet.co.uk>
 
 	* tests/ports.test: tests for buffered and unbuffered input/output
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 1f34c9b39..b5034f949 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -80,17 +80,17 @@
  (let* ((filename (test-file))
 	(port (open-file filename "w+")))
    (display "J'Accuse" port)
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (pass-if "file: r/w 1"
 	    (char=? (read-char port) #\e))
    (pass-if "file: r/w 2"
 	    (eof-object? (read-char port)))
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (write-char #\x port)
-   (lseek port 7 SEEK_SET)
+   (seek port 7 SEEK_SET)
    (pass-if "file: r/w 3"
 	    (char=? (read-char port) #\x))
-   (lseek port -2 SEEK_END)
+   (seek port -2 SEEK_END)
    (pass-if "file: r/w 4"
 	    (char=? (read-char port) #\s))
    (delete-file filename)))
@@ -100,17 +100,17 @@
  (let* ((filename (test-file))
 	(port (open-file filename "w+0")))
    (display "J'Accuse" port)
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (pass-if "file: ub r/w 1"
 	    (char=? (read-char port) #\e))
    (pass-if "file: ub r/w 2"
 	    (eof-object? (read-char port)))
-   (lseek port -1 SEEK_CUR)
+   (seek port -1 SEEK_CUR)
    (write-char #\x port)
-   (lseek port 7 SEEK_SET)
+   (seek port 7 SEEK_SET)
    (pass-if "file: ub r/w 3"
 	    (char=? (read-char port) #\x))
-   (lseek port -2 SEEK_END)
+   (seek port -2 SEEK_END)
    (pass-if "file: ub r/w 4"
 	    (char=? (read-char port) #\s))
    (delete-file filename)))