From c567a5aeb178a52ab4bc4e3cb28d2c2bb84fa7c4 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 28 Jan 2008 18:21:26 +0000
Subject: [PATCH] fix small bug in recorded multi-threaded.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2069 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/dbase.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/C/dbase.c b/C/dbase.c
index 5439289cd..007b5dc3e 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -3483,6 +3483,9 @@ p_recorded(void)
 	P = cl->ClCode;
       } else {
 	CP = P;
+#if defined(YAPOR) || defined(THREADS)
+	PP = cl->ClPred;
+#endif
 	P = cl->ClCode;
 	ENV = YENV;
 	YENV = ASP;