From e46ea7dbb2ee59dbd629b002fc4ffd187051383a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 1 Nov 2005 20:13:36 +0000
Subject: [PATCH] fixed mapped id application context

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

diff --git a/collects/mzlib/private/unitidmap.ss b/collects/mzlib/private/unitidmap.ss
index a0eb58bdcc..718ba07eb6 100644
--- a/collects/mzlib/private/unitidmap.ss
+++ b/collects/mzlib/private/unitidmap.ss
@@ -28,7 +28,7 @@
 	   (binding
 	    the-binder (car (syntax-e sstx))
 	    (datum->syntax-object
-	     set!-stx
+	     sstx
 	     (cons unbox-stx (cdr (syntax-e sstx)))
 	     sstx))])))))