diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c
index 8d3b41fed5..f8ff26653b 100644
--- a/src/racket/src/fun.c
+++ b/src/racket/src/fun.c
@@ -9955,7 +9955,7 @@ static Scheme_Object *read_compiled_closure(Scheme_Object *obj)
         n[i+1] = v2;
       }
       if ((len == 2) && (!(n[1] & 0x80000000)))
-        data->tl_map = (void *)((n[1] << 1) | 0x1);
+        data->tl_map = (void *)(intptr_t)((n[1] << 1) | 0x1);
       else
         data->tl_map = n;
     } else
diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c
index ddfed24fea..0d467a5421 100644
--- a/src/racket/src/jit.c
+++ b/src/racket/src/jit.c
@@ -1197,7 +1197,6 @@ static Scheme_Native_Closure_Data *create_native_case_lambda(Scheme_Case_Lambda
   Scheme_Native_Closure_Data *ndata;
   Scheme_Object *name, *o;
   int max_let_depth = 0, i, count, is_method = 0;
-  void *tl_map;
 
   ndata = MALLOC_ONE_RT(Scheme_Native_Closure_Data);
 #ifdef MZTAG_REQUIRED