diff --git a/pl/preds.yap b/pl/preds.yap
index a84e4933d..96c092973 100644
--- a/pl/preds.yap
+++ b/pl/preds.yap
@@ -348,9 +348,9 @@ retract(C,R) :-
 	functor(C, Na, Ar).
 	
 
-retractall(M:V) :-
+retractall(M:V) :- !,
 	'$retractall'(V,M).
-retractall(V) :- !,
+retractall(V) :-
 	'$current_module'(M),
 	'$retractall'(V,M).