diff --git a/racket/src/foreign/foreign.c b/racket/src/foreign/foreign.c
index eca964d3f7..36b56914aa 100644
--- a/racket/src/foreign/foreign.c
+++ b/racket/src/foreign/foreign.c
@@ -2725,7 +2725,6 @@ static Scheme_Object *foreign_malloc(int argc, Scheme_Object *argv[])
   Scheme_Object *mode = NULL, *a, *base = NULL;
   Scheme_Malloc_Proc mf;
   for (i=0; i<argc; i++) {
-    a = argv[i];
     a = unwrap_cpointer_property(argv[i]);
     if (SCHEME_INTP(a)) {
       if (num != -1)
diff --git a/racket/src/foreign/foreign.rktc b/racket/src/foreign/foreign.rktc
index 0b7fd88e5e..d8fa68410c 100755
--- a/racket/src/foreign/foreign.rktc
+++ b/racket/src/foreign/foreign.rktc
@@ -1960,7 +1960,6 @@ static Scheme_Malloc_Proc ctype_allocator(Scheme_Object *type)
   Scheme_Object *mode = NULL, *a, *base = NULL;
   Scheme_Malloc_Proc mf;
   for (i=0; i<argc; i++) {
-    a = argv[i];
     a = unwrap_cpointer_property(argv[i]);
     if (SCHEME_INTP(a)) {
       if (num != -1)