diff --git a/pl/utils.yap b/pl/utils.yap
index 4175a0b70..bdff9230b 100644
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -372,7 +372,7 @@ system_predicate(P) :-
 	'$pred_exists'(T,M).
 
 '$current_predicate3'(M,A/Arity) :- !,
-	'$current_predicate_for_atom'(A,M,Arity),
+	'$current_predicate'(M,A,Arity),
 	functor(T,A,Arity),
 	'$pred_exists'(T,M).
 '$current_predicate3'(M,BadSpec) :-			% only for the predicate