* stream.c (byte_in_unget_byte): Wrong function name in error message.

1 files changed, 1 insertions, 1 deletions

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;