From 253aff3e1612bacc1fa6cca8dd3198f97441b303 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 24 Apr 2011 09:04:58 -0600
Subject: [PATCH] fix cached-module lookup

---
 src/racket/src/portfun.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/portfun.c b/src/racket/src/portfun.c
index 3e6dad4a92..3d2a098f54 100644
--- a/src/racket/src/portfun.c
+++ b/src/racket/src/portfun.c
@@ -4138,12 +4138,12 @@ static Scheme_Object *do_load_handler(void *data)
       /* CERT-INSP-CACHE <- grep for that in read.c */
       obj = scheme_make_pair(obj, scheme_get_param(config, MZCONFIG_CODE_INSPECTOR));
       obj = scheme_lookup_in_table(scheme_module_code_cache, (const char *)obj);
+      if (obj)
+        obj = scheme_ephemeron_value(obj);
       if (obj) {
         /* Synthesize a wrapper to pass through `eval': */
         Scheme_Compilation_Top *top;
 
-        obj = scheme_ephemeron_value(obj);
-
         top = MALLOC_ONE_TAGGED(Scheme_Compilation_Top);
         top->so.type = scheme_compilation_top_type;
         top->code = obj;