diff --git a/src/eval-apply.c b/src/eval-apply.c
index 097410e9..7c63c665 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -598,6 +598,26 @@ eval:
                 global_p = 0;
                 if (R0->car->car != cell_closure)
                   global_p = 1;
+#if 0
+                else if (g_debug > 0)
+                  {
+                    eputs ("local...");
+                    if (R0->type != TPAIR)
+                      eputs ("R0 NOT A PAIR\n");
+                    else
+                      {
+                        x = R0->cdr;
+                        if (x->type != TPAIR)
+                          eputs ("cdr not a pair\n");
+                        else
+                          {
+                            x = x->car->car;
+                            write_error_ (x);
+                            eputs ("\n");
+                          }
+                      }
+                  }
+#endif
                 macro_p = 0;
                 if (R1->car == cell_symbol_define_macro)
                   macro_p = 1;
@@ -656,6 +676,14 @@ eval:
                   }
                 else
                   {
+#if 0
+                    if (g_debug > 0)
+                      {
+                        eputs ("local!");
+                        write_error_ (name);
+                        eputs ("\n");
+                      }
+#endif
                     entry = cons (name, R1);
                     aa = cons (entry, cell_nil);
                     set_cdr_x (aa, cdr (R0));
diff --git a/src/variable.c b/src/variable.c
index a7a2a272..1dad09c0 100644
--- a/src/variable.c
+++ b/src/variable.c
@@ -69,7 +69,15 @@ lookup_variable (struct scm *name, struct scm *define_p)
     {
       handle = hashq_get_handle_ (M0, name, cell_f);
       if (handle == cell_f && define_p == cell_t)
-        handle = hashq_set_handle_x (M0, name, cell_f);
+        {
+          if (g_debug > 0)
+            {
+              eputs ("lookup + define: ");
+              write_error_ (name);
+              eputs ("\n");
+            }
+          handle = hashq_set_handle_x (M0, name, cell_f);
+        }
     }
 
   return handle;