anchor.diff:      ok.
   
   %%%----------------------------------------------------------------
  -shrink_bin(B) when is_binary(B), size(B)>100 -> {'*** SHRINKED BIN',
  +shrink_bin(B) when is_binary(B), size(B)>256 -> {'*** SHRINKED BIN',
   						 size(B),
  -						 element(1,split_binary(B,20)),
  +						 element(1,split_binary(B,64)),
   						 '...',
  -						 element(2,split_binary(B,size(B)-20))
  +						 element(2,split_binary(B,size(B)-64))
   						};
   shrink_bin(L) when is_list(L) -> lists:map(fun shrink_bin/1, L);
   shrink_bin(T) when is_tuple(T) -> list_to_tuple(shrink_bin(tuple_to_list(T)));
  
positive.code: 				is_function(MangleArg,1) ->
      catch dbg:start(),
      setup_tracer(Write, MangleArg),
      dbg:p(new,c),
      dbg_ssh_messages().
  
  dbg_ssh_messages() ->
      dbg:tp(ssh_message,encode,1, x),
      dbg:tp(ssh_message,decode,1, x),
      dbg:tpl(ssh_transport,select_algorithm,3, x).
  
  %%%----------------------------------------------------------------
  stop() ->
      dbg:stop().
  
  %%%================================================================
  msg_formater({trace,Pid,call,{ssh_message,encode,[Msg]}}, D) ->
      fmt("~nSEND ~p ~s~n", [Pid,wr_record(shrink_bin(Msg))], D);
  msg_formater({trace,_Pid,return_from,{ssh_message,encode,1},_Res}, D) -> 
      D;
  	
  msg_formater({trace,_Pid,call,{ssh_message,decode,_}}, D) ->
      D;
  msg_formater({trace,Pid,return_from,{ssh_message,decode,1},Msg}, D) -> 
      fmt("~n~p RECV ~s~n", [Pid,wr_record(shrink_bin(Msg))], D);
  	
  msg_formater({trace,_Pid,call,{ssh_transport,select_algorithm,_}}, D) ->
      D;
  msg_formater({trace,Pid,return_from,{ssh_transport,select_algorithm,3},{ok,Alg}}, D) ->
      fmt("~n~p ALGORITHMS~n~s~n", [Pid, wr_record(Alg)], D);
  
  
  msg_formater({trace,Pid,send,{tcp,Sock,Bytes},Pid}, D) ->
      fmt("~n~p TCP SEND on ~p~n ~p~n", [Pid,Sock, shrink_bin(Bytes)], D);
  
  msg_formater({trace,Pid,send,{tcp,Sock,Bytes},Dest}, D) ->
      fmt("~n~p TCP SEND from ~p TO ~p~n ~p~n", [Pid,Sock,Dest, shrink_bin(Bytes)], D);
  
  msg_formater({trace,Pid,send,ErlangMsg,Dest}, D) ->
      fmt("~n~p ERL MSG SEND TO ~p~n ~p~n", [Pid,Dest, shrink_bin(ErlangMsg)], D);
  
  
  msg_formater({trace,Pid,'receive',{tcp,Sock,Bytes}}, D) ->
      fmt("~n~p TCP RECEIVE on ~p~n ~p~n", [Pid,Sock,shrink_bin(Bytes)], D);
  
  msg_formater({trace,Pid,'receive',ErlangMsg}, D) ->
      fmt("~n~p ERL MSG RECEIVE~n ~p~n", [Pid,shrink_bin(ErlangMsg)], D);
  
  
  msg_formater(M, D) ->
  
negative.code: fmt(Fmt, Args,  D=#data{writer=Write,acc=Acc}) ->
      D#data{acc = Write(io_lib:format(Fmt, Args), Acc)}.
  
  ts({_,_,Usec}=Now) ->
      {_Date,{HH,MM,SS}} = calendar:now_to_local_time(Now),
      io_lib:format("~.2.0w:~.2.0w:~.2.0w.~.6.0w",[HH,MM,SS,Usec]);
  ts(_) ->
      "-".
  %%%----------------------------------------------------------------
  setup_tracer(Write, MangleArg) ->
      Handler = fun(Arg, D) ->
  