diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 876377c..db68113 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -10,6 +10,7 @@ add struct contracts for immutable structs?
 (module contract mzscheme
   
   (provide (rename -contract contract)
+           any
            ->
            ->d
            ->*
@@ -745,6 +746,9 @@ add struct contracts for immutable structs?
 ;                                                                                   
 
   
+  (define-syntax (any stx)
+    (raise-syntax-error 'any "Use any out of an arrow contract" stx))
+
   (define-syntax-set (-> ->* ->d ->d* ->r ->pp ->pp-rest case-> object-contract opt-> opt->*)
     
     (define (->/proc stx) (make-/proc #f ->/h stx))