anchor.diff:      {_, _TopHeight} = proplists:lookup(db_backup_top_height, Cfg),
       {_, TopHash} = proplists:lookup(db_backup_top_hash, Cfg),
       ErlCmd =
  -        lists:flatten(
  -          io_lib:format(
  -            "{{ok, H}, _} = {aec_base58c:safe_decode(block_hash, ~w), decode_hash},~n"
  -            "{{_, Ts}, _} = {aec_chain:get_block_state(H), get_state},~n"
  -            "{{contract_tree, CT}, _} = {aec_trees:contracts(Ts), get_contract_tree},~n"
  -            "{Cs, _} = {aeu_mtrees:to_list(CT), get_contract_list},~n"
  -            "length(Cs).",
  -            [TopHash])),
  +        make_erl_cmd(
  +          "{{ok, H}, _} = {aec_base58c:safe_decode(block_hash, ~w), decode_hash},~n"
  +          "{{_, Ts}, _} = {aec_chain:get_block_state(H), get_state},~n"
  +          "{{contract_tree, CT}, _} = {aec_trees:contracts(Ts), get_contract_tree},~n"
  +          "{Cs, _} = {aeu_mtrees:to_list(CT), get_contract_list},~n"
  +          "length(Cs).", [TopHash]),
       0 = run_erl_cmd_on_node(new_node3, ErlCmd, 30000, Cfg),
       {save_config,
        [{old_node_left_running_with_old_chain, old_node1},
  
positive.code:     {ok, Module, Binary, []} = compile:forms(Forms, [return_errors,
                                                       return_warnings]),
      ErlCmd =
          lists:flatten(
            io_lib:format(
              "{module, _} = code:load_binary(~s, \"Dummy Filename\", ~w), ok.",
              [Module, Binary])),
      ok = run_erl_cmd_on_node(NodeName, ErlCmd, 30000, Cfg).
  
  dot_ending_token_lists(Chars) ->
  
negative.code: to_forms(DotEndingTokenLists) ->
      lists:map(fun(Ts) -> {ok, F} = erl_parse:parse_form(Ts), F end,
                DotEndingTokenLists).
  
  make_erl_cmd(Fmt, Params) ->
      lists:flatten(io_lib:format(Fmt, Params)).
  
  run_erl_cmd_on_node(NodeName, ErlCmd, Timeout, Cfg) ->
      ct:log("Running Erlang command on node ~s:~n~s", [NodeName, ErlCmd]),
  