diff --git a/src/foreign/foreign.c b/src/foreign/foreign.c
index 93860841ee..d938113bfb 100644
--- a/src/foreign/foreign.c
+++ b/src/foreign/foreign.c
@@ -710,7 +710,7 @@ END_XFORM_SKIP;
 #define CTYPE_PRIMP(x)     (NULL == (CTYPE_BASETYPE(x)))
 #define CTYPE_USERP(x)     (!(CTYPE_PRIMP(x)))
 #define CTYPE_PRIMTYPE(x)  ((ffi_type*)(((ctype_struct*)(x))->scheme_to_c))
-#define CTYPE_PRIMLABEL(x) ((int)(((ctype_struct*)(x))->c_to_scheme))
+#define CTYPE_PRIMLABEL(x) ((long)(((ctype_struct*)(x))->c_to_scheme))
 #define CTYPE_USER_S2C(x)  (((ctype_struct*)(x))->scheme_to_c)
 #define CTYPE_USER_C2S(x)  (((ctype_struct*)(x))->c_to_scheme)
 
diff --git a/src/foreign/foreign.ssc b/src/foreign/foreign.ssc
index fdd8c29488..c16bf53868 100755
--- a/src/foreign/foreign.ssc
+++ b/src/foreign/foreign.ssc
@@ -614,7 +614,7 @@ typedef union _ForeignAny {
 #define CTYPE_PRIMP(x)     (NULL == (CTYPE_BASETYPE(x)))
 #define CTYPE_USERP(x)     (!(CTYPE_PRIMP(x)))
 #define CTYPE_PRIMTYPE(x)  ((ffi_type*)(((ctype_struct*)(x))->scheme_to_c))
-#define CTYPE_PRIMLABEL(x) ((int)(((ctype_struct*)(x))->c_to_scheme))
+#define CTYPE_PRIMLABEL(x) ((long)(((ctype_struct*)(x))->c_to_scheme))
 #define CTYPE_USER_S2C(x)  (((ctype_struct*)(x))->scheme_to_c)
 #define CTYPE_USER_C2S(x)  (((ctype_struct*)(x))->c_to_scheme)