diff --git a/pl/messages.yap b/pl/messages.yap
index a399b30b4..8a71829b6 100644
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -463,7 +463,7 @@ prolog:print_message_lines(S, P-Opts, Lines) :- !,
 	atom_concat('~N', P, Prefix),
 	format(S, Prefix, Opts),
 	print_message_line(S, Lines, Rest),
-	prolog:print_message_lines(S, P, Rest).
+	prolog:print_message_lines(S, P-Opts, Rest).
 prolog:print_message_lines(S, P, Lines) :-
 	atom_concat('~N', P, Prefix),
 	format(S, Prefix, []),