anchor.diff:  %% @doc Initiates the server
   %% @end 
   %%--------------------------------------------------------------------
  -init({StorageModule,DbKey,Name}) ->
  +init({StorageModule,DbKey,Name,Min,Max}) ->
     process_flag(trap_exit, true),
  -  {ok, #storage{module=StorageModule,table=StorageModule:open(DbKey),name=Name}}.
  +  {ok, #storage{module=StorageModule,table=StorageModule:open(DbKey,Name),name=Name,tree=merkle:create(Min,Max)}}.
   
   %%--------------------------------------------------------------------
   %% @spec 
  
positive.code: -behaviour(gen_server).
  
  %% API
  -export([start_link/3, get/2, get/3, put/4, put/5, has_key/2, has_key/3, delete/2, delete/3, close/1, close/2]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
           terminate/2, code_change/3]).
  
  -record(storage, {module,table,name}).
  
  -ifdef(TEST).
  -include("etest/storage_server_test.erl").
  
negative.code: %% @doc Starts the server
  %% @end 
  %%--------------------------------------------------------------------
  start_link(StorageModule, DbKey, Name, Min, Max) ->
     gen_server:start_link({local, Name}, ?MODULE, {StorageModule,DbKey,Name,Min,Max}, []).
  
  get(Name, Key) ->
  	get(Name, Key, 1000).
  