anchor.diff:      ok.
   
   dbnew(Module)              -> req({new, Module}).
  -dbsave(OutFile, Module)    -> req({save, OutFile, Module}).
  -dbput(Module, K, V)        -> req({set, Module, K, V}).
  +dbsave(OutFile, Module)    -> cast({save, OutFile, Module}).
  +dbput(Module, K, V)        -> cast({set, Module, K, V}).
   dbget(Module, K)           -> req({get, Module, K}).
   dbstop()                   -> Resp = req(stop), erase(?MODULE), Resp.
   
  
positive.code: 	    exit({db_error,Info}) 
      end.
  
  reply({Ref,From}, Response) ->
      From ! {{Ref,?MODULE}, Response},
      ok.
  
negative.code: loop(#state{parent = Parent, monitor = MRef, table = Table,
              includes = Includes} = State) ->
      receive
          {set, Mod, K2, V} ->
              [{_, Modtab}] = ets:lookup(Table, Mod),
              ets:insert(Modtab, {K2, V}),
              loop(State);
          {From, {get, Mod, K2}} ->
              Result = case ets:lookup(Table, Mod) of
  