From c6406b822b0bb55b6bd67fdc448988a8235cdaf7 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 23 Nov 2009 10:10:47 +0000
Subject: [PATCH] prolog: multifiles are not really system predicates (they can
 be redefined).

---
 C/cdmgr.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index a837b3bf2..287c00c00 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -2919,6 +2919,8 @@ p_new_multifile(void)
     pe = RepPredProp(PredPropByFunc(Yap_MkFunctor(at, arity),mod));
   LOCK(pe->PELock);
   pe->PredFlags |= MultiFileFlag;
+  if (pe->ModuleOfPred == PROLOG_MODULE)
+    pe->ModuleOfPred = TermProlog;
   if (!(pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))) {
     /* static */
     pe->PredFlags |= (SourcePredFlag|CompiledPredFlag);