anchor.diff:  %%conv(Cd, String) -> {ok, l2b(String)};
   conv(Cd, String) when is_binary(Cd) ->
       gen_server:call(?SERVER, {conv, Cd, l2b(String)}, infinity).
  -
  -conv_chunked(Cd, String) when is_binary(Cd) ->
  -	gen_server:call(?SERVER, {conv_chunked, Cd, l2b(String)}, infinity).
   
   %%close(Cd) -> ok;
   close(Cd) when is_binary(Cd) ->
  
positive.code: %%% $Id$
  %%%----------------------------------------------------------------------
  -behaviour(gen_server).
  -export([start/0, start_link/0, stop/0, open/2, conv/2, conv_chunked/2, close/1]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2, 
  
negative.code:     Reply = call_drv(S#state.port, Msg),
      {reply, Reply, S};
  
  %%
  handle_call({close, Cd}, _, S) ->
      CdLen  = byte_size(Cd),
  