From e42083a2bbb7a1eb8ba129090ab9012f57a566d8 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 17 Apr 2009 14:18:05 -0500
Subject: [PATCH] fix bad call.

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

diff --git a/pl/preds.yap b/pl/preds.yap
index 0ac900af0..420f49ab3 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -899,7 +899,7 @@ current_predicate(A,T) :-
 	functor(T,A,_),
 	current_module(M),
 	M \= prolog,
-	'$pred_exists'(M,A,T).
+	'$pred_exists'(T,M).
 
 current_predicate(A) :-
 	'$current_predicate_inside'(A).