diff --git a/collects/tests/future/future.rkt b/collects/tests/future/future.rkt
index f8787ab768..85149cafb6 100644
--- a/collects/tests/future/future.rkt
+++ b/collects/tests/future/future.rkt
@@ -905,8 +905,9 @@ We should also test deep continuations.
     (map touch fs))
   
   ;Only test for non-blocking when actually running parallel futures
-  (when (eq? func future)
-    (check-false (blocks? (void (test-even-odd)))))
+  (if (and (eq? func future) (futures-enabled?))
+    (check-false (blocks? (void (test-even-odd))))
+    (void (test-even-odd)))
   
   ;Make sure we don't crash in error cases for odd?/even?
   (let ([fa (func (λ () 
diff --git a/src/racket/src/number.c b/src/racket/src/number.c
index dde8990702..824a1b37b7 100644
--- a/src/racket/src/number.c
+++ b/src/racket/src/number.c
@@ -1488,16 +1488,20 @@ scheme_inexact_p (int argc, Scheme_Object *argv[])
   return (v ? scheme_true : scheme_false);
 }
 
+#ifdef MZ_USE_FUTURES
 Scheme_Object *odd_p_error(int argc, Scheme_Object *argv[])
 {
   NEED_INTEGER(odd?);
 
   ESCAPED_BEFORE_HERE;
 }
+#endif
 
 Scheme_Object *
 scheme_odd_p (int argc, Scheme_Object *argv[])
+#ifdef MZ_USE_FUTURES
   XFORM_SKIP_PROC
+#endif
 {
   Scheme_Object *v = argv[0];
 
@@ -1513,23 +1517,33 @@ scheme_odd_p (int argc, Scheme_Object *argv[])
     return (fmod(d, 2.0) == 0.0) ? scheme_false : scheme_true;
   }
 
+#ifdef MZ_USE_FUTURES
   /* Otherwise, bail to the unsafe (error) path: */
   if (scheme_use_rtcall)
     return scheme_rtcall_iS_s("[odd?]", SIG_iS_s, odd_p_error, argc, argv);
   else
     return odd_p_error(argc, argv);
+#else
+  NEED_INTEGER(odd?);
+
+  ESCAPED_BEFORE_HERE;
+#endif
 }
 
+#ifdef MZ_USE_FUTURES
 Scheme_Object *even_p_error(int argc, Scheme_Object *argv[])
 {
   NEED_INTEGER(even?);
 
   ESCAPED_BEFORE_HERE;
 }
+#endif
 
 Scheme_Object *
 scheme_even_p (int argc, Scheme_Object *argv[])
+#ifdef MZ_USE_FUTURES
   XFORM_SKIP_PROC
+#endif
 {
   Scheme_Object *v = argv[0];
 
@@ -1545,11 +1559,17 @@ scheme_even_p (int argc, Scheme_Object *argv[])
     return (fmod(d, 2.0) == 0.0) ? scheme_true : scheme_false;
   }
 
+#ifdef MZ_USE_FUTURES
   /* Otherwise, bail to the unsafe (error) path: */
   if (scheme_use_rtcall)
     return scheme_rtcall_iS_s("[even?]", SIG_iS_s, even_p_error, argc, argv);
   else
     return even_p_error(argc, argv);
+#else
+  NEED_INTEGER(even?);
+
+  ESCAPED_BEFORE_HERE;
+#endif
 }
 
 static Scheme_Object *bin_lcm (Scheme_Object *n1, Scheme_Object *n2);