anchor.diff:                          ct:pal("Failed: Stacktrace ~p~n",
                                  [erlang:get_stacktrace()]),
                           ?ct_fail("~s threw exception \"~w:~w\" but exception "
  -                               "~s:~s was expected",
  +                               "~s:~s was expected~n",
                                  [??Cmd, OtherType, OtherException, ??ExceptionType, ??ExceptionPattern])
                   end
           end()).
  
positive.code:                         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;
  
negative.code:                                     after
                                          0 -> no_message
                                      end,
                                  ?ct_fail("expected message ~s but got \"~w\"~n", [??MsgPattern, ActualMessage])
                          end
                      MsgPattern -> ok
                  after
  