From d637451bd6d1925a980149315ffe51e6fbc089f2 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 21 Nov 2009 00:23:03 +0000
Subject: [PATCH] make sure to put TR correctly (fixes copying DB terms with
 att vars #148)

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

diff --git a/C/exec.c b/C/exec.c
index 0d609d26f..066babd02 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1635,6 +1635,7 @@ JumpToEnv(Term t) {
   /* H = B->cp_h; */
   t = clean_trail(t, dbt, B->cp_a1);
   B->cp_a3 = t;
+  B->cp_tr = TR;
   if (first_func != NULL) {
     B = first_func;
   }