anchor.diff:  %%%===================================================================
   
   all() ->
  -    [{group, aevm_1}, {group, aevm_2}].
  +    [{group, vm_interaction}, {group, aevm_1}, {group, aevm_2}].
   
   %% To skip one level of indirection...
   -define(ALL_TESTS, [{group, transactions}, {group, state_tree}, {group, sophia},
  
positive.code:                 fun(_) -> ?MINERVA_PROTOCOL_VSN end),
      [{sophia_version, ?AESOPHIA_2}, {vm_version, ?VM_AEVM_SOPHIA_2},
       {protocol, minerva} | Cfg];
  init_per_group(_Grp, Cfg) ->
      Cfg.
  
  end_per_group(Grp, Cfg) when Grp =:= aevm_1; Grp =:= aevm_2 ->
      meck:unload(aec_hard_forks),
      Cfg;
  end_per_group(_Grp, Cfg) ->
  
negative.code:     CreateTx    = create_tx(Owner, Options1, S),
      Height      = maps:get(height, Options, 1),
      PrivKey     = aect_test_utils:priv_key(Owner, S),
      S1          = case sign_and_apply_transaction(CreateTx, PrivKey, S, Height) of
                        {ok, TmpS} when not Fail -> TmpS;
                        {ok,_TmpS} when Fail -> error({error, succeeded});
                        {error, R,_TmpS} when not Fail -> error(R);
                        {error, R, TmpS} when Fail -> throw({ok, R, TmpS})
                    end,
      ContractKey = aect_contracts:compute_contract_pubkey(Owner, Nonce),
      CallKey     = aect_call:id(Owner, Nonce, ContractKey),
      CallTree    = aect_test_utils:calls(S1),
  