diff --git a/src/eval-apply.c b/src/eval-apply.c
index 5d2a2d70..f7c27783 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -673,7 +673,7 @@ eval:
                 else if (global_p != 0)
                   {
                     handle = lookup_handle (name, cell_f);
-                    if (g_debug > 2)
+                    if (g_debug > 4)
                       {
                         eputs ("global set: ");
                         write_error_ (name);
diff --git a/src/module.c b/src/module.c
index 8c020682..fd076c7d 100644
--- a/src/module.c
+++ b/src/module.c
@@ -68,7 +68,7 @@ module_handle (struct scm *module, struct scm *name)     /*:((internal)) */
 {
   /* 1. Check module defines.  */
   struct scm *table = module_defines (module);
-  if (g_debug > 2)
+  if (g_debug > 4)
     {
       eputs ("module_handle:");
       eputs (" name = ");