From 733bb5ddc467bbdce9d80e1378b73f70e9afff6b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 5 Oct 2014 23:54:51 +0100
Subject: [PATCH] module stuff

---
 pl/preds.yap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pl/preds.yap b/pl/preds.yap
index cf0fc9da7..ccf056c8f 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -934,7 +934,8 @@ dynamic_predicate(P,Sem) :-
 
 '$expand_clause'((H:-B),C1,C2,Mod,HM) :- !,
 	strip_module(Mod:H, HM, H1),
-	'$module_expansion'((H1:-B), C1, C2, Mod, HM),
+	'$current_module'(M),
+	'$module_expansion'((H1:-B), C1, C2, HM, BM, M),
 	( get_value('$strict_iso',on) ->
 	    '$check_iso_strict_clause'(C1)
         ;