anchor.diff:                      _ -> wait
                   end
           end,
  -    loop_for_values(CheckF, NodeNames, [], 500, Timeout, {"Height ~p on nodes ~p", [MinHeight, NodeNames]});
  +    loop_for_values(CheckF, NodeNames, [], Delay, Timeout, {"Height ~p on nodes ~p", [MinHeight, NodeNames]});
   wait_for_value({txs_on_chain, Txs}, NodeNames, Timeout, Ctx) ->
       %% Not very optimal, since found Txs' are searched for in next round.
       FaultInject = proplists:get_value(fault_inject, Ctx, #{}),
       KeyBlocksWaiting = proplists:get_value(key_blocks, Ctx, 2),
  +    Delay = proplists:get_value(delay, Ctx, 500),
       CheckF =
           fun(Node) ->
                   Found =
  
positive.code:                     true -> wait
                  end
          end,
      loop_for_values(CheckF, NodeNames, [], 500, Timeout, {"Txs found ~p", [Txs]});
  wait_for_value({txs_on_node, Txs}, NodeNames, Timeout, Ctx) ->
      %% Reached the mempool at least, probably even in a block.
      FaultInject = proplists:get_value(fault_inject, Ctx, #{}),
      CheckF =
          fun(Node) ->
                  Found = [ case request(Node, 'GetTransactionByHash', maps:merge(#{hash => Tx}, FaultInject)) of
  
negative.code:                 true -> {done, Exists}
              end
          end,
      loop_for_values(CheckF, NodeNames, [], Delay, Timeout, {"Txs found ~p", [Txs]}).
  
  
  wait_for_time(height, NodeNames, Time) ->
  