anchor.diff:  changing_cwd_on_control_node_with_local_trace(doc) ->
       ["Changing cwd on control node during local tracing is safe"];
   changing_cwd_on_control_node_with_local_trace(Config) when is_list(Config) ->
  -    ?line {ok, OldDir} = file:get_cwd(),
  -    ?line {ServerNode, ClientNode} = start_client_and_server(),
  -    ?line begin_trace(ServerNode, ClientNode, {local, ?FNAME}),
  -    ?line NumMsgs = 3,
  -    ?line ttb_helper:msgs_ip(NumMsgs),
  -    ?line ok = file:set_cwd(".."),
  -    ?line ttb_helper:msgs_ip(NumMsgs),
  -    ?line {_, D} = ttb:stop([fetch, return_fetch_dir]),
  -    ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]),
  -    ?line {ok, Ret} = file:consult(?OUTPUT),
  -    ?line true = (2*(NumMsgs + 1) == length(Ret)),
  -    ?line ok = file:set_cwd(OldDir).
  +    {ok, OldDir} = file:get_cwd(),
  +    {ServerNode, ClientNode} = start_client_and_server(),
  +    begin_trace(ServerNode, ClientNode, {local, ?FNAME}),
  +    NumMsgs = 3,
  +    ttb_helper:msgs_ip(NumMsgs),
  +    ok = file:set_cwd(".."),
  +    ttb_helper:msgs_ip(NumMsgs),
  +    {_, D} = ttb:stop([fetch, return_fetch_dir]),
  +    ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]),
  +    {ok, Ret} = file:consult(?OUTPUT),
  +    Expected = 2*(NumMsgs + 1),
  +    check_output(Expected, Ret),
  +    ok = file:set_cwd(OldDir).
   changing_cwd_on_control_node_with_local_trace(cleanup,_Config) ->
       ?line stop_client_and_server().
   
  
positive.code:     ?line ttb:tpl(client, get, []).
  
  check_size(N, Dest, Output, ServerNode, ClientNode) ->
      ?line begin_trace(ServerNode, ClientNode, Dest),
      ?line case Dest of
          {local, _} ->
              ?line ttb_helper:msgs_ip(N);
          _ ->
              ?line ttb_helper:msgs(N)
      end,
      ?line {_, D} = ttb:stop([fetch, return_fetch_dir]),
      ?line ttb:format(D, [{out, Output}, {handler, simple_call_handler()}]),
      ?line {ok, Ret} = file:consult(Output),
      ?line true = (N + 1 == length(Ret)).
  
  fetch_when_no_option_given(suite) ->
      [];
  
negative.code:     ?line {_, D} = ttb:stop([fetch, return_fetch_dir]),
      ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]),
      ?line {ok, Ret} = file:consult(?OUTPUT),
      check_output(2*(NumMsgs + 1),Ret).
  changing_cwd_on_remote_node(cleanup,_Config) ->
      ?line stop_client_and_server().
  
  