From 540d9639cb50f3160d31b7b098009d4e44c0860c Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 21 Feb 2003 19:27:40 +0000
Subject: [PATCH] fix bad change in utils.yap

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@787 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/utils.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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