diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss
index e74310e..5e8f284 100644
--- a/collects/tests/mzscheme/macrolib.ss
+++ b/collects/tests/mzscheme/macrolib.ss
@@ -66,6 +66,8 @@
 (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
+
 (for-each syntax-test 
 	  (list #'(evcase)
 		#'(evcase 1 (a))