anchor.diff:                              after
                                   0 -> no_message
                               end,
  -                        ?ct_fail("expected message ~s but got \"~w\"~n", [??MsgPattern, ActualMessage])
  +                        ?ct_fail("expected message ~s but got \"~.0p\"~n", [??MsgPattern, ActualMessage])
                   end
           end()).
   -define(expect_message_ignore(MsgPattern, IgnoredMessage), ?expect_message_ignore(MsgPattern, IgnoredMessage, 1000)).
  
positive.code:                     Any ->
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [util:get_stacktrace()]),
                          ?ct_fail("~s evaluated to \"~w\" which is "
                                 "not the expected ~s~n"
                                 "(~s)~n",
                                 [??Actual, Any, ??ExpectedPattern, lists:flatten(Note)])
  
negative.code:                     Any -> 
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [util:get_stacktrace()]),
                          ?ct_fail("~s evaluated to \"~.0p\"; exception "
                                 "~s:~s was expected~n",
                                 [??Cmd, Any, ??ExceptionType, ??ExceptionPattern])
                  catch
  