diff --git a/collects/tests/mzscheme/foreign-test.ss b/collects/tests/mzscheme/foreign-test.ss
index 9e8913921a..bb624d4ddb 100644
--- a/collects/tests/mzscheme/foreign-test.ss
+++ b/collects/tests/mzscheme/foreign-test.ss
@@ -150,7 +150,7 @@
            (t 25     'use_grabbed_callback (_fun _int -> _int) 5)
            (collect-garbage)
            (t 81     'use_grabbed_callback (_fun _int -> _int) 9))])
-    (with-kepper #t)
+    (with-keeper #t)
     (with-keeper (box #f)))
   ;; ---
   ;; test exposing internal mzscheme functionality