diff --git a/pl/errors.yap b/pl/errors.yap
index 5a5fcb9b5..b7db11e0c 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -290,6 +290,9 @@ the predicate as multifile.
 
  
 */
+print_message(_, _) :-
+    '$nb_getval'('$if_skip_mode',skip,fail), 
+    !.
 print_message(force(_Severity), Msg) :- !,
 	print(user_error,Msg).
 print_message(error, error(Msg,Info)) :- var(Info), !,