more fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2176 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

pl/init.yap

@@ -76,6 +76,9 @@ otherwise.
 
 :- dynamic prolog:'$user_defined_flag'/2.
 
+:- multifile prolog:debug_action_hook/1.
+
+:- source.
 
 lists:append([], L, L).
 lists:append([H|T], L, [H|R]) :-
@@ -99,6 +102,8 @@ lists:member(X,[X|_]).
 lists:member(X,[_|L]) :-
 	lists:member(X,L).
 
+:- no_source.
+
 
 :-	 ['protect.yap'].