anchor.diff:      FilePrefix = Dir ++ "/" ++ NodeType ++ "__",
       FileSuffix = ".analysis",
       stop_trace(Node, Mode, FilePrefix, FileSuffix).
  +
  +stop_trace(Node, "mode_trace_only", FilePrefix, FileSuffix) ->
  +    io:format("Stopping trace on node ~p~n", [Node]),
  +    ok = call(Node, fprof, trace, [[stop]]),
  +    ok;
   
   stop_trace(Node, "mode_full", FilePrefix, FileSuffix) ->  
       io:format("Stopping full trace on node ~p~n", [Node]), 
  
positive.code:     receive 
          {Pid, Ans} ->
              Ans
      after 600000 ->
          {error, timeout}
      end.
  
negative.code:     end.    
  
  start_trace(Node, "mode_totals_only") ->
      start_trace(Node, "mode_full");
  start_trace(Node, "mode_trace_only") ->
      start_trace(Node, "mode_full");
  start_trace(Node, "mode_full") ->
      ProcsToTrace = lists:foldl(fun(Elem, AccIn) -> AccIn ++ get_pid(Elem, Node) end, [], ?trace_procs), 
      io:format("Starting trace of procs: ~p~n", [ProcsToTrace]),
  