From 7a78d5c200d59f8205fd27ccc2b8c70812361a41 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Fri, 15 Apr 2011 23:05:03 +0100
Subject: [PATCH] initialise initial ENV fully.

---
 C/exec.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C/exec.c b/C/exec.c
index 935f35793..2bf6ea74c 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1018,6 +1018,9 @@ init_stack(int arity, CELL *pt, int top, choiceptr saved_b USES_REGS)
   YENV[E_CP] = (CELL)P;
   YENV[E_CB] = (CELL)B;
   YENV[E_E]  = (CELL)ENV;
+#ifdef  TABLING
+  YENV[E_B] = (CELL)B;
+#endif
 #ifdef  DEPTH_LIMIT
   YENV[E_DEPTH] = DEPTH;
 #endif