From 7d61c67bab33f059d7c270685b46ff57eae5511c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 17 Apr 2009 12:29:04 +0000
Subject: [PATCH] fix handling of define*-values between a syntax binding and a
 syntax-local-value

svn: r14541
---
 collects/scheme/package.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/package.ss b/collects/scheme/package.ss
index cf091fc55b..ebaeb4b778 100644
--- a/collects/scheme/package.ss
+++ b/collects/scheme/package.ss
@@ -325,7 +325,7 @@
                       (let ([star? (free-identifier=? #'def #'-define*-values)]
                             [ids (syntax->list #'(id ...))])
                         (let* ([def-ctx (if star?
-                                            (syntax-local-make-definition-context)
+                                            (syntax-local-make-definition-context (car def-ctxes))
                                             (car def-ctxes))]
                                [ids (if star? 
                                         (map (add-package-context (list def-ctx)) ids)