diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 6169e83f2a..bf4da9a0b4 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -4066,6 +4066,7 @@ static void should_run_for_compile(Scheme_Env *menv)
 static void start_module(Scheme_Module *m, Scheme_Env *env, int restart, 
 			 Scheme_Object *syntax_idx, int eval_exp, int eval_run, long base_phase,
 			 Scheme_Object *cycle_list)
+/* eval_exp == -1 => make it ready, eval_exp == 1 => run exp-time, eval_exp = 0 => don't even make ready */
 {
   Scheme_Env *menv;
   Scheme_Object *l, *new_cycle_list;
diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c
index 2fef8c7d76..e78ea16ba4 100644
--- a/src/mzscheme/src/stxobj.c
+++ b/src/mzscheme/src/stxobj.c
@@ -3806,7 +3806,10 @@ static Scheme_Object *search_shared_pes(Scheme_Object *shared_pes,
   for (pr = shared_pes; !SCHEME_NULLP(pr); pr = SCHEME_CDR(pr)) {
     pt = (Scheme_Module_Phase_Exports *)SCHEME_CADR(SCHEME_CAR(pr));
 
-    EXPLAIN(fprintf(stderr, "%d     pes table\n", depth));
+    EXPLAIN(fprintf(stderr, "%d     pes table %s\n", depth, 
+                    pt->src_modidx
+                    ? scheme_write_to_string(scheme_module_resolve(pt->src_modidx, 0), NULL)
+                    : "?"));
 
     if (!pt->ht) {
       /* Lookup table (which is created lazily) not yet created, so do that now... */
@@ -3853,6 +3856,7 @@ static Scheme_Object *search_shared_pes(Scheme_Object *shared_pes,
             else
               phase = 0;
 
+            EXPLAIN(fprintf(stderr, "%d     srcname %s\n", depth, SCHEME_SYM_VAL(pt->provide_src_names[i])));
             get_names[0] = pt->provide_src_names[i];
             get_names[1] = idx;
             get_names[2] = glob_id;