From 48c1bed5f9184711e7ea5db36884a69a3a47ca12 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 21 Sep 2016 14:57:59 -0500
Subject: [PATCH] oops :(

---
 pl/meta.yap | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/pl/meta.yap b/pl/meta.yap
index 3b2ac3175..ed4732567 100644
--- a/pl/meta.yap
+++ b/pl/meta.yap
@@ -405,6 +405,8 @@ o:p(B) :- n:g, X is 2+3, call(B).
 '$build_up'(HM, NH, SM, B1, (NH :- B1), BO, ( NH :- BO)) :- HM == SM, !.
 '$build_up'(HM, NH, _SM, B1, (NH :- B1), BO, ( HM:NH :- BO)) :- !.
 
+'$expand_clause_body'(V, _NH1, _HM1, _SM, M, call(M:V), call(M:V) ) :- 
+    var(V), !.
 '$expand_clause_body'(true, _NH1, _HM1, _SM, _M, true, true ) :- !.
 '$expand_clause_body'(B, H, HM, SM, M, B1, BO ) :-
 	'$module_u_vars'(HM , H, UVars),	 % collect head variables in