From d67ab8b0a9e014c21cf4c41f38a3d3a5c605e4da Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 27 Feb 2007 23:48:00 +0000
Subject: [PATCH] improved the expansion to make runtime error reporting better

svn: r5703
---
 collects/mzlib/private/contract.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss
index c0c49114d3..455b06c5ed 100644
--- a/collects/mzlib/private/contract.ss
+++ b/collects/mzlib/private/contract.ss
@@ -95,7 +95,7 @@ add struct contracts for immutable structs?
 			   stx
 			   (syntax id))]
 	   [(name arg ...)
-	    (syntax 
+	    (syntax/loc stx
 	     ((begin-lifted
                 (-contract contract-id
                            id