diff --git a/racket/src/foreign/foreign.c b/racket/src/foreign/foreign.c
index 56abd8587d..6137d30ceb 100644
--- a/racket/src/foreign/foreign.c
+++ b/racket/src/foreign/foreign.c
@@ -3226,27 +3226,6 @@ static Scheme_Object *foreign_make_sized_byte_string(int argc, Scheme_Object *ar
 }
 #undef MYNAME
 
-/* *** Calling Racket code while the GC is working leads to subtle bugs, so
-   *** this is implemented now in Racket using will executors. */
-
-/* internal: apply Scheme finalizer */
-void do_scm_finalizer(void *p, void *finalizer)
-{
-  Scheme_Object *f = (Scheme_Object*)finalizer;
-  if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(void*)(&p));
-}
-void do_ptr_finalizer(void *p, void *finalizer)
-{
-  Scheme_Object *f = (Scheme_Object*)finalizer;
-  Scheme_Object *ptr;
-  if (p == NULL) return;
-  ptr = scheme_make_cptr(p,NULL);
-  if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(&ptr));
-  /* don't leave dangling references! */
-  SCHEME_CPTR_VAL(ptr) = NULL;
-  ptr = NULL;
-}
-
 /*****************************************************************************/
 /* FFI named locks */
 
diff --git a/racket/src/foreign/foreign.rktc b/racket/src/foreign/foreign.rktc
index 6f3771bade..0584333f86 100755
--- a/racket/src/foreign/foreign.rktc
+++ b/racket/src/foreign/foreign.rktc
@@ -2390,27 +2390,6 @@ void scheme_foreign_ptr_set(int argc, Scheme_Object **argv)
                                        len, 0);
 }
 
-/* *** Calling Racket code while the GC is working leads to subtle bugs, so
-   *** this is implemented now in Racket using will executors. */
-
-/* internal: apply Scheme finalizer */
-void do_scm_finalizer(void *p, void *finalizer)
-{
-  Scheme_Object *f = (Scheme_Object*)finalizer;
-  if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(void*)(&p));
-}
-void do_ptr_finalizer(void *p, void *finalizer)
-{
-  Scheme_Object *f = (Scheme_Object*)finalizer;
-  Scheme_Object *ptr;
-  if (p == NULL) return;
-  ptr = scheme_make_cptr(p,NULL);
-  if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(&ptr));
-  /* don't leave dangling references! */
-  SCHEME_CPTR_VAL(ptr) = NULL;
-  ptr = NULL;
-}
-
 /*****************************************************************************/
 /* FFI named locks */