anchor.diff:              MiniMib = snmp_mini_mib:create(Mibs),
   	    Write = fun(X) -> 
   			    case format_msg(X, MiniMib, Start, Stop) of
  -				{ok, S} ->
  -				    io:format(Fd, "~s", [S]);
  -				_ ->
  -				    ok
  +                                {Tag, S} when (Tag =:= ok) orelse (Tag =:= error) ->
  +				    io:format(Fd, "~s", [S]),
  +                                    Tag;
  +				X ->
  +				    X
   			    end
   		    end,
  -            Res = (catch loop(disk_log:chunk(Log, start), Log, Write)),
  +            Res = (catch loop(Log, Write)),
   	    snmp_mini_mib:delete(MiniMib), 
               file:close(Fd),
               Res;
  
positive.code:     trappdu;
  get_type(#pdu{type = Type}) ->
      Type.
  
  
  %% ip(Domain, Addr) ->
  %%     snmp_conf:mk_addr_string(Domain, Addr).
  %% ip({A,B,C,D}) ->
  %%     io_lib:format("~w.~w.~w.~w", [A,B,C,D]).
  
  
  
  
negative.code:     MiniMib = snmp_mini_mib:create(Mibs),
      Write = fun(X) -> 
  		    case format_msg(X, MiniMib, Start, Stop) of
  			{Tag, S} when (Tag =:= ok) orelse (Tag =:= error) ->
  			    io:format("~s", [S]),
                              Tag;
  			X ->
  			    X
  		    end
  	    end,
      Res = (catch loop(Log, Write)),
      snmp_mini_mib:delete(MiniMib),
      Res.
  
  
  loop(Log, Write) ->
      loop(disk_log:chunk(Log, start), Log, Write, 0, 0).
  
  loop(eof, _Log, _Write, _NumOK, 0 = _NumERR) ->
      ok;
  loop(eof, _Log, _Write, NumOK, NumERR) ->
      {ok, {NumOK, NumERR}};
  loop({error, _} = Error, _Log, _Write, _NumOK, _NumERR) ->
      Error;
  loop({Cont, Terms}, Log, Write, NumOK, NumERR) ->
      try loop_terms(Terms, Write) of
          {ok, {AddedOK, AddedERR}} ->
              loop(disk_log:chunk(Log, Cont), Log, Write,
                   NumOK+AddedOK, NumERR+AddedERR)
      catch
          T:E ->
              {error, {T, E}}
      end;
  loop({Cont, Terms, BadBytes}, Log, Write, NumOK, NumERR) ->
      error_logger:error_msg("Skipping ~w bytes while converting ~p~n~n", 
  			   [BadBytes, Log]),
      try loop_terms(Terms, Write) of
          {ok, {AddedOK, AddedERR}} ->
              loop(disk_log:chunk(Log, Cont), Log, Write,
                   NumOK+AddedOK, NumERR+AddedERR)
      catch
          T:E ->
              {error, {T, E}}
      end.
  
  
  loop_terms(Terms, Write) ->
      loop_terms(Terms, Write, 0, 0).
  
  loop_terms([], _Write, NumOK, NumERR) ->
      {ok, {NumOK, NumERR}};
  loop_terms([Term|Terms], Write, NumOK, NumERR) ->
      try Write(Term) of
          ok ->
              loop_terms(Terms, Write, NumOK+1, NumERR);
          error ->
              loop_terms(Terms, Write, NumOK,   NumERR+1);
          _ ->
              loop_terms(Terms, Write, NumOK,   NumERR)
      catch
          T:E:S ->
              {error, {T, E, S}}
      end.
  
  
  format_msg(Entry, Mib, Start, Stop) ->
  