From 26f6fa775e14fde0bf2591a133f0f877993755eb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Jan 2005 21:43:41 +0000
Subject: [PATCH] .

original commit: 8e62591ef00d0f98c09752b9917d699b0acd93b6
---
 collects/mzlib/stxparam.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/stxparam.ss b/collects/mzlib/stxparam.ss
index 4f6bb2e..28a6af8 100644
--- a/collects/mzlib/stxparam.ss
+++ b/collects/mzlib/stxparam.ss
@@ -17,7 +17,7 @@
 		 (lambda (stx)
 		   (let ([v (syntax-parameter-target-value #'gen-id)])
 		     (apply-transformer v stx #'set!)))
-		 #'gen-id)))))]))
+		 ((syntax-local-certifier) #'gen-id))))))]))
 
   (define-syntax (syntax-parameterize stx)
     (syntax-case stx ()