From 5aed59691942357f1aefb7a970fc278919e6c288 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa=20II?= <vsc@dcc.fc.up.pt>
Date: Thu, 8 Apr 2010 00:52:47 +0100
Subject: [PATCH] bad list keeping

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

diff --git a/C/adtdefs.c b/C/adtdefs.c
index 4438308cc..3b940fdfc 100644
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -713,7 +713,8 @@ Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
     }
     WRITE_UNLOCK(PredHashRWLock);
     /* make sure that we have something here */
-    RepPredProp(fe->PropsOfFE)->NextOfPE = fe->PropsOfFE;
+    p->NextOfPE = RepPredProp(fe->PropsOfFE)->NextOfPE;
+    RepPredProp(fe->PropsOfFE)->NextOfPE = AbsPredProp(p);
   } else {
     fe->PropsOfFE = AbsPredProp(p);
     p->NextOfPE = NIL;