Fix set_stream_position/2 predicate missing argument in exception term

diff --git a/src/lib/builtins.pl b/src/lib/builtins.pl
index d96e0a163abf6fb556703610284227334152700d..89b52fd621c058877cd7bc965f66034788c1a1de 100644 (file)
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1627,7 +1627,7 @@ set_stream_position(S_or_a, Position) :-
     ;  Position = position_and_lines_read(P, _),
        is_stream_position(Position) ->
        '$set_stream_position'(S_or_a, P)
-    ;  throw(error(domain_error(stream_position, Position)))
+    ;  throw(error(domain_error(stream_position, Position), set_stream_position/2))
     ).
 
 callable(X) :-