Incorrect format args in string stream code.

* stream.c (string_in_unget_char): Missing
argument in uw_throwf call.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index b4d9555e..6b234e22 100644
--- a/stream.c
+++ b/stream.c
@@ -1566,7 +1566,7 @@ static val string_in_unget_char(val stream, val ch)
   if (chr_str(s->string, pos) != ch)
     uw_throwf(file_error_s,
               lit("unget-char: ~s doesn't match the character that was read"),
-              nao);
+              ch, nao);
 
   set(mkloc(s->pos, stream), pos);
   return ch;