:- multifile user:portray_message/2.
print_message/2 before processing the message. If this
succeeds, it is assumed that the message has been processed and nothing
further is done.
An exception raised by this predicate causes an error message to be printed and then the original message is printed using the default message text and formatting.