anchor.diff:  parse_link([],Acc) ->
       %% truncated
       {lists:reverse(Acc),[]}.
  +
  +parse_name_node(","++Rest,Name) ->
  +    parse_name_node(Rest,Name,[]);
  +parse_name_node([H|T],Name) ->
  +    parse_name_node(T,[H|Name]);
  +parse_name_node([],Name) ->
  +    %% truncated
  +    {lists:reverse(Name),[],[]}.
  +
  +parse_name_node("}"++Rest,Name,Node) ->
  +    {lists:reverse(Name),lists:reverse(Node),Rest};
  +parse_name_node([H|T],Name,Node) ->
  +    parse_name_node(T,Name,[H|Node]);
  +parse_name_node([],Name,Node) ->
  +    %% truncated
  +    {lists:reverse(Name),lists:reverse(Node),[]}.
  +
  +get_pid_from_name(Name,Node) ->
  +    case ets:lookup(cdv_reg_proc_table,cdv_dump_node_name) of
  +	[{_,Node}] ->
  +	    case ets:lookup(cdv_reg_proc_table,Name) of
  +		[{_,Pid}] when is_pid(Pid) ->
  +		    pid_to_list(Pid);
  +		_ ->
  +		    "<unkonwn_pid>"
  +	    end;
  +	_ ->
  +	    "<unknown_pid_other_node>"
  +    end.
   
   maybe_other_node(Id) ->
       Channel = 
  
positive.code: 		N;
  	    [] ->
  		case lookup_index(?no_distribution) of
  		    [_] -> "nonode@nohost";
  		    [] -> "unknown"
  		end
  	end,
  
negative.code: 		      "Some information might be missing."];
  	     false -> []
  	 end,
      ets:insert(cdv_reg_proc_table,
  	       {cdv_dump_node_name,GenInfo#general_info.node_name}),
      {reply,{ok,GenInfo,TW},State#state{wordsize=WS, num_atoms=NumAtoms}};
  handle_call({expand_binary,{Offset,Size,Pos}},_From,State=#state{file=File}) ->
      Fd = open(File),
  