anchor.diff:  %%% $Id$
   %%%----------------------------------------------------------------------
   -behaviour(gen_server).
  --export([start/0, start_link/0, stop/0, open/2, conv/2, conv_chunked/2, close/1]).
  +-export([start/0, start_link/0, stop/0, open/2, conv/2, close/1]).
   
   %% gen_server callbacks
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, 
  
positive.code:     Reply = call_drv(S#state.port, Msg),
      {reply, Reply, S};
  
  handle_call({conv_chunked, Cd, Buf}, _, S) ->
  	Reply = conv_chunked(Cd, Buf, [], S),
  	{reply, Reply, S};
  
  %%
  handle_call({close, Cd}, _, S) ->
      CdLen  = byte_size(Cd),
  
negative.code: %%%----------------------------------------------------------------------
  %%% Internal functions
  %%%----------------------------------------------------------------------
  load_path(File) ->
  	case lists:zf(fun(Ebin) ->
  					Priv = Ebin ++ "/../priv/",
  