diff --git a/collects/typed-scheme/utils/any-wrap.ss b/collects/typed-scheme/utils/any-wrap.ss
index 76bfc4f1..0e7c3116 100644
--- a/collects/typed-scheme/utils/any-wrap.ss
+++ b/collects/typed-scheme/utils/any-wrap.ss
@@ -31,7 +31,7 @@
   t)
   
 (define any-wrap/c
-  (simple-contract 
+  (make-contract 
    #:name 'Any
    #:projection (compose traverse blame-original?)))