let
error_message msg =
Cam_hooks
.error_message msg;
set_active_action_message msg