* ioext.c (scm_ftell): Use SCM_N_READY_CHARS to correct position.

diff --git a/libguile/ioext.c b/libguile/ioext.c
index c18866a..73de33f 100644 (file)
--- a/libguile/ioext.c
+++ b/libguile/ioext.c
@@ -213,7 +213,7 @@ scm_ftell (object)
     {
       SCM_SYSCALL (pos = ftell ((FILE *)SCM_STREAM (object)));
       if (pos > 0 && SCM_CRDYP (object))
-       pos--;
+       pos -= SCM_N_READY_CHARS (object);
     }
   else
     {