From 7115f63441ecc4059c75f6a954ec3cb2a8cda9a6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 31 Mar 2006 17:02:24 +0000
Subject: [PATCH] fix bug in id resolution

svn: r2557
---
 src/mzscheme/src/stxobj.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c
index 1e3e54d11c..6db5cfbb7a 100644
--- a/src/mzscheme/src/stxobj.c
+++ b/src/mzscheme/src/stxobj.c
@@ -2952,7 +2952,7 @@ static Scheme_Object *get_module_src_name(Scheme_Object *a, long phase)
 	  if (mrn->needs_unmarshal) {
 	    /* Use resolve_env to trigger unmarshal, so that we
 	       don't have to implement top/from shifts here: */
-	    resolve_env(a, orig_phase, 1, NULL, NULL);
+	    resolve_env(a, orig_phase, 1, NULL, scheme_null);
 	  }
 
 	  if (mrn->marked_names)