diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0467cb118cb..2637fb5ad03 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* io/transfer.c (formatted_transfer): Fix typo in error message.
+
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR libfortran/16436
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index c81cb47eaa3..d26e7f7f54b 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -685,7 +685,7 @@ formatted_transfer (bt type, void *p, int len)
 
            if (pos < 0 || pos >= current_unit->recl )
              {
-               generate_error (ERROR_EOR, "T Or TL edit position error");
+               generate_error (ERROR_EOR, "T or TL edit position error");
                break ;
              }
             m = pos - (current_unit->recl - current_unit->bytes_left);