diff --git a/src/prolog/lib/builtins.pl b/src/prolog/lib/builtins.pl
index 217ee1a4..c4aaa5b6 100644
--- a/src/prolog/lib/builtins.pl
+++ b/src/prolog/lib/builtins.pl
@@ -614,7 +614,8 @@ match_builtins(float, 1).
 match_builtins(nonvar, 1).
 match_builtins(var, 1).
 match_builtins(call, N) :-
-    between:between(0, 63, N).
+    max_arity(Max),
+    between:between(0, Max, N).
 
 '$iterate_predicate_list'([Name/Arity|Preds], Name/Arity).
 '$iterate_predicate_list'([_|Preds], Pred) :-