1 files changed, 1 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index f9b95acc170..21f32863f98 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -219,7 +219,7 @@ unreadchar (readcharfun, c)
   else if (BUFFERP (readcharfun))
     {
       if (XBUFFER (readcharfun) == current_buffer)
-        SET_PT (point - 1);
+        SET_PT (PT - 1);
       else
         SET_BUF_PT (XBUFFER (readcharfun), BUF_PT (XBUFFER (readcharfun)) - 1);
     }