diff --git a/pl/directives.yap b/pl/directives.yap
index 1acfa74b3..4f54894da 100644
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -81,7 +81,7 @@
 '$exec_directive'(reconsult(Fs), _, M) :-
 	'$reconsult'(M:Fs).
 '$exec_directive'(consult(Fs), _, M) :-
-	'$consult'(Fs).
+	'$consult'(M:Fs).
 '$exec_directive'(use_module(Fs), _, M) :-
 	'$use_module'(M:Fs).
 '$exec_directive'(use_module(Fs,I), _, M) :-
diff --git a/pl/utils.yap b/pl/utils.yap
index 300869287..b67871498 100644
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -242,7 +242,7 @@ alarm(Interval, Goal, Left) :-
 	'$alarm'(Interval, Left).
 
 on_signal(Signal,OldAction,default) :-
-	recorded('$sig_handler', default(Signal,Action), Ref),
+	recorded('$sig_handler', default(Signal,Action), _Ref),
 	on_signal(Signal,OldAction,Action).
 on_signal(Signal,OldAction,Action) :-
 	recorded('$sig_handler', action(Signal,OldAction), Ref),