From e0531d07431df99b8ab593f160241fed0a46e355 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vitor@ubuntu.(none)>
Date: Fri, 12 Dec 2008 22:46:32 +0000
Subject: [PATCH] fix bad access flags call.

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

diff --git a/pl/consult.yap b/pl/consult.yap
index e53a597d3..69525e19f 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -903,6 +903,6 @@ absolute_file_name(File,Opts,TrueFileName) :-
 '$fetch_comp_status'(assert_all) :-
 	nb_getval('$assert_all',on), !.
 '$fetch_comp_status'(source) :-
-	 '$get_yap_flags'(11,1).
+	 '$access_yap_flags'(11,1).
 '$fetch_comp_status'(compact).