anchor.diff:                              after
                                   0 -> no_message
                               end,
  -                        ?ct_fail("expected message ~p but got \"~p\"", [??MsgPattern, ActualMessage])
  +                        ?ct_fail("expected message ~s but got \"~w\"", [??MsgPattern, ActualMessage])
                   end
           end()).
   -define(expect_message(MsgPattern), ?expect_message_timeout(MsgPattern, 1000)).
  
positive.code:                     Any ->
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [erlang:get_stacktrace()]),
                          ?ct_fail("~p evaluated to \"~p\" which is "
                                 "not the expected ~p that evaluates to \"~p\"",
                                 [??Actual, Any, ??Expected, ExpectedVal])
                  end
          end()).
  
negative.code:                     Any -> 
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [erlang:get_stacktrace()]),
                          ?ct_fail("~s evaluated to \"~w\"; exception "
                                 "~s:~s was expected",
                                 [??Cmd, Any, ??ExceptionType, ??ExceptionPattern])
                  catch
                      ExceptionType: ExceptionPattern -> ok;
                      OtherType: OtherException ->
                          ct:pal("Failed: Stacktrace ~p~n",
                                 [erlang:get_stacktrace()]),
                          ?ct_fail("~s threw exception \"~w:~w\" but exception "
                                 "~s:~s was expected",
                                 [??Cmd, OtherType, OtherException, ??ExceptionType, ??ExceptionPattern])
                  end
          end()).
  