Fix op/3 predicate operator_priority domain error

diff --git a/src/lib/builtins.pl b/src/lib/builtins.pl
index 502827b6cf3dd7c85c66877147472ab40e27fb69..30db4959d2f2a58a158e9977ac650d09bbc6c380 100644 (file)
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1124,7 +1124,7 @@ list_of_op_atoms([]).
 op_priority(Priority) :-
     integer(Priority), !,
     (  ( Priority < 0 ; Priority > 1200 ) ->
-       throw(error(domain_error(operator_priority, Priority))) % 8.14.3.3 h)
+       throw(error(domain_error(operator_priority, Priority), op/3)) % 8.14.3.3 h)
     ;  true
     ).