diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index 70a45042a..f1e2059ec 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-28  Ludovic Courtès  <ludo@gnu.org>
+
+	* srfi-19.scm (priv:read-tai-utc-data): Use `eof-object?'
+	instead of comparing LINE with `eof'.
+
 2008-04-28  Ludovic Courtès  <ludo@gnu.org>
 
 	* srfi-1.c (scm_srfi1_partition): Properly type-check LIST.
diff --git a/srfi/srfi-19.scm b/srfi/srfi-19.scm
index d5bcc05d2..ce771d034 100644
--- a/srfi/srfi-19.scm
+++ b/srfi/srfi-19.scm
@@ -1,6 +1,6 @@
 ;;; srfi-19.scm --- Time/Date Library
 
-;; 	Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007 Free Software Foundation, Inc.
+;; 	Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -231,7 +231,7 @@
   (let ((port (open-input-file filename))
         (table '()))
     (let loop ((line (read-line port)))
-      (if (not (eq? line eof))
+      (if (not (eof-object? line))
           (begin
             (let* ((data (read (open-input-string
                                 (string-append "(" line ")"))))