From 6d8649226c38f232ec430411714a17b5c57e1ecb Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 13 May 2009 17:11:46 -0500
Subject: [PATCH] fix tabling code.

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

diff --git a/C/exec.c b/C/exec.c
index f671f4ee2..82a869124 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1474,7 +1474,7 @@ clean_trail(Term t)
       /* so the next cell is the old value */ 
 #ifdef FROZEN_STACKS
       --pt1;
-      pt[0] = TrailVal(pt0);
+      pt[0] = TrailVal(pt1);
 #else
       pt[0] = TrailTerm(pt1-1);
       pt1 -= 3;