anchor.diff:      do_tracer(Clients,PI,Traci).
   
   do_tracer(Clients,PI,Traci) ->
  +    ShellOutput = proplists:get_value(shell, Traci, false),
       {ClientSucc,Succ} = 
   	lists:foldl(
   	  fun({N,{local,File},TF},{CS,S}) -> 
  +                  TF2 = case ShellOutput of
  +                            only -> none;
  +                            _    -> TF
  +                        end,
   		  [_Sname,Host] = string:tokens(atom_to_list(N),"@"),
   		  case catch dbg:tracer(N,port,dbg:trace_port(ip,0)) of
   		      {ok,N} ->
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%% Trace pattern
  tp(A,B) ->
      store(tp,[A,ms(B)]),
      dbg:tp(A,ms(B)).
  tp(A,B,C) ->
      store(tp,[A,B,ms(C)]),
      dbg:tp(A,B,ms(C)).
  tp(A,B,C,D) ->
      store(tp,[A,B,C,ms(D)]),
      dbg:tp(A,B,C,ms(D)).
  
  tpl(A,B) ->
      store(tpl,[A,ms(B)]),
      dbg:tpl(A,ms(B)).
  tpl(A,B,C) ->
      store(tpl,[A,B,ms(C)]),
      dbg:tpl(A,B,ms(C)).
  tpl(A,B,C,D) ->
      store(tpl,[A,B,C,ms(D)]),
      dbg:tpl(A,B,C,ms(D)).
  
  
negative.code: 	ok -> run_history(T);
  	{error,not_found} -> {error,{not_found,H}}
      end;
  
  run_history(all) ->
      CurrentHist = ets:tab2list(?history_table),
      ets:delete_all_objects(?history_table),
      [run_printed(MFA,true) || {_, MFA} <- CurrentHist];
  run_history(all_silent) ->
      CurrentHist = ets:tab2list(?history_table),
      ets:delete_all_objects(?history_table),
      [run_printed(MFA,false) || {_, MFA} <- CurrentHist];
  run_history([]) ->
      ok;
  run_history(N) ->
      case catch ets:lookup(?history_table,N) of
  	[{N,{M,F,A}}] -> 
              run_printed({M,F,A},true);
  	_ -> 
  	    {error, not_found}
      end.
  
  run_printed({M,F,A},Verbose) ->
      Verbose andalso print_func(M,F,A),
      R = apply(M,F,A),
      Verbose andalso print_result(R).
  	
  write_config(ConfigFile,all) ->
      write_config(ConfigFile,['_']);
  