From 945fff50a2d599f18a1a36a8524e430da497d752 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 17 Nov 2009 10:03:14 +0000
Subject: [PATCH] we should only recover H after we backtrack, never before.

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

diff --git a/C/exec.c b/C/exec.c
index fe14da677..0d609d26f 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1631,7 +1631,8 @@ JumpToEnv(Term t) {
      to the emulator */
   P = (yamop *)FAILCODE;
   /* try to recover space */
-  H = B->cp_h;
+  /* can only do that when we recover space */
+  /* H = B->cp_h; */
   t = clean_trail(t, dbt, B->cp_a1);
   B->cp_a3 = t;
   if (first_func != NULL) {