1 files changed, 1 insertions, 1 deletions
diff --git a/stream.c b/stream.c
index 45609677..b4d9555e 100644
--- a/stream.c
+++ b/stream.c
@@ -1568,7 +1568,7 @@ static val string_in_unget_char(val stream, val ch)
               lit("unget-char: ~s doesn't match the character that was read"),
               nao);
 
-  set(mkloc(s->pos, stream), plus(pos, one));
+  set(mkloc(s->pos, stream), pos);
   return ch;
 }