anchor.diff:        O = lists:flatten(lists:map(fun(List) ->
           element(1, lists:foldr(fun (X,{As,[]}) -> {As,[X]}; (X,{As,[Y]}) ->
             {[{erlang:list_to_atom(X),Y}|As],[]} end, {[],[]},  string:tokens(List, " "))) end, Tokens)),
  -      AppUpdatorPid ! {ok, Tempfile, O},
  +      AppUpdatorPid ! {ok, Tempfile, O, Status},
         file:delete(Tempfile);
       E ->
         file:delete(Tempfile),
  
positive.code:       wait_for_port(Port, Tempfile, Self, [])
      end),
    receive
      {ok, Tempfile, E} -> E
    after timer:seconds(60) ->
      {error, timeout}
    end.
  
negative.code:   receive
      {Port, {data, Info}} ->
        wait_for_port(Port, Tempfile, AppUpdatorPid, [Info|Acc]);
      {Port, {exit_status, Status}} ->
        ListofStrings = case io_lib:char_list(Acc) of
          true -> [Acc];
          false -> lists:reverse(Acc)
  