From ae00f56a110252355ab2dbd58e066633713bf65f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 19 Feb 2010 21:57:03 +0000
Subject: [PATCH] Fix up Sam's use of make-provide/contract-transformer after
 Robby's change to it for bug 10645.

svn: r18195

original commit: de859a88798b89c78da5386ab0a8bfdf76f118da
---
 collects/typed-scheme/typecheck/provide-handling.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/typed-scheme/typecheck/provide-handling.ss b/collects/typed-scheme/typecheck/provide-handling.ss
index 74b65801..f6d75334 100644
--- a/collects/typed-scheme/typecheck/provide-handling.ss
+++ b/collects/typed-scheme/typecheck/provide-handling.ss
@@ -68,6 +68,7 @@
                               (make-provide/contract-transformer
                                (quote-syntax the-contract)
                                (quote-syntax id)
+                               (quote-syntax out-id)
                                (quote-syntax module-source)))
                             (define-syntax export-id
                               (if (unbox typed-context?)