From 0a32e8dd83648af27e36c62608817de5a82084c4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Mar 2009 13:24:34 +0000
Subject: [PATCH] fix package so that syntax-local-value works after define*

svn: r14021

original commit: 44e77446467ec9d592bc95befe3d3eea146373c1
---
 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 21fd108..7cb8720 100644
--- a/collects/scheme/package.ss
+++ b/collects/scheme/package.ss
@@ -291,7 +291,7 @@
                         (let ([star? (free-identifier=? #'def #'define*-syntaxes)]
                               [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)