diff --git a/C/inlines.c b/C/inlines.c
index e29a5dfed..369b6d820 100755
--- a/C/inlines.c
+++ b/C/inlines.c
@@ -712,7 +712,7 @@ p_functor(void)			/* functor(?,?,?) */
     *pt1++ = d0;
     d0 = AbsAppl(H);
     if (pt1+d1 > ENV - CreepFlag) {
-      if (!Yap_gcl((1+d1)*sizeof(CELL), 3, YENV, gc_P(P,CP))) {
+      if (!Yap_gcl((1+d1)*sizeof(CELL), 3, ENV, gc_P(P,CP))) {
 	Yap_Error(OUT_OF_STACK_ERROR, TermNil, Yap_ErrorMessage);
 	return FALSE;
       }