diff --git a/collects/tests/mzscheme/contract-mzlib-test.ss b/collects/tests/mzscheme/contract-mzlib-test.ss
index 97f2f88..05072f0 100644
--- a/collects/tests/mzscheme/contract-mzlib-test.ss
+++ b/collects/tests/mzscheme/contract-mzlib-test.ss
@@ -18,7 +18,8 @@ of the contract library does not change over time.
         (namespace-require '(for-syntax mzscheme))
         (namespace-require '(for-template mzscheme))
         (namespace-require 'mzlib/contract)
-        (namespace-require 'mzlib/class))
+        (namespace-require 'mzlib/class)
+        (namespace-require '(only mzscheme force delay)))
       n))
   
   (define (contract-eval x)
diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss
index 67cabab..bf01afe 100644
--- a/collects/tests/mzscheme/macrolib.ss
+++ b/collects/tests/mzscheme/macrolib.ss
@@ -66,7 +66,7 @@
 (syntax-test #'(let ([define-values 10]) (local ((define-values (x) 4)) 10)))
 (syntax-test #'(let ([define-struct 10]) (local ((define-struct x ())) 10)))
 
-(define else #f) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING
+(define else #t) ;; `evcase' needs unbound `else' !!!! <------------------ WARNING
 
 (for-each syntax-test 
 	  (list #'(evcase)