diff --git a/pl/tabling.yap b/pl/tabling.yap
index 5ba5c5513..822feb4f4 100644
--- a/pl/tabling.yap
+++ b/pl/tabling.yap
@@ -47,6 +47,10 @@ table(Pred) :-
 '$do_table'(Mod,Pred) :-
    '$do_error'(type_error(callable,Mod:Pred),table(Mod:Pred)).
 
+'$set_table'(Mod,PredFunctor) :-
+   '$undefined'('$c_table'(_,_),prolog), !,
+   functor(PredFunctor, PredName, PredArity),
+   '$do_error'(resource_error(tabling,Mod:PredName/PredArity),table(Mod:PredName/PredArity)).
 '$set_table'(Mod,PredFunctor) :-
    '$undefined'(PredFunctor,Mod), !,
    '$c_table'(Mod,PredFunctor).