diff --git a/scheme/last-revision b/scheme/last-revision
index c3c19a3..cfdfb83 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1749
+1750
diff --git a/src/ikarus-data.h b/src/ikarus-data.h
index a0602b6..74a3828 100644
--- a/src/ikarus-data.h
+++ b/src/ikarus-data.h
@@ -249,7 +249,7 @@ long long extract_num_longlong(ikptr x);
 #define is_fixnum(x) ((((unsigned long)(x)) & fx_mask) == 0)
 
 #define ref(x,n) \
-  (((ikptr*)(((char*)(long int)(x)) + ((long int)(n))))[0])
+  (((ikptr*)(((long int)(x)) + ((long int)(n))))[0])
 
 #define tagof(x) (((int)(x)) & 7)