2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index d26d23ce..bab4ca13 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2015-07-10  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (byte_in_unget_byte): Wrong function name in error message.
+
+2015-07-10  Kaz Kylheku  <kaz@kylheku.com>
+
 	Fix unget-byte and unget-char on catenated streams.
 
 	* stream.c (cat_unget_byte, cat_unget_char): Recursive
diff --git a/stream.c b/stream.c
index 0f806401..30c77ee3 100644
--- a/stream.c
+++ b/stream.c
@@ -1074,7 +1074,7 @@ static val byte_in_unget_byte(val stream, int byte)
 
   if (bi->index == 0)
     uw_throwf(file_error_s,
-              lit("unget-char: cannot push past beginning of byte stream"),
+              lit("unget-byte: cannot push past beginning of byte stream"),
               nao);
 
   bi->buf[--bi->index] = byte;