New upstream version 17.8

1 files changed, 1 insertions, 0 deletions

diff --git a/xen.c b/xen.c
index 1e3fa0e..611ba13 100644
--- a/xen.c
+++ b/xen.c
@@ -1612,6 +1612,7 @@ static Xen g_tmpnam(void)
 
 static Xen g_ftell(Xen fd)
 {
+  Xen_check_type(Xen_is_integer(fd), fd, 1, "ftell", "an integer");
   return(C_int_to_Xen_integer(lseek(Xen_integer_to_C_int(fd), 0, SEEK_CUR)));
 }