diff --git a/libguile/eval.c b/libguile/eval.c
index 27ac70b9f..a6b816241 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1832,8 +1832,8 @@ SCM_CEVAL (SCM x, SCM env)
   scm_last_debug_frame = &debug;
 #endif
 #ifdef EVAL_STACK_CHECKING
-  if (SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc)
-      && scm_stack_checking_enabled_p)
+  if (scm_stack_checking_enabled_p
+      && SCM_STACK_OVERFLOW_P ((SCM_STACKITEM *) &proc))
     {
 #ifdef DEVAL
       debug.info->e.exp = x;