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).