anchor.diff:                  _Error       -> reply(From, undefined)
               end,
               loop(State);
  -        {From, {save, OutFile, Mod}} ->
  +        {save, OutFile, Mod} ->
               [{_,Mtab}] = ets:lookup(Table, Mod),
  -            reply(From, ets:tab2file(Mtab, OutFile)),
  +            ok = ets:tab2file(Mtab, OutFile),
               loop(State);
           {From, {new, Mod}} ->
               [] = ets:lookup(Table, Mod),	%Assertion.
  
positive.code:     ok.
  
  dbnew(Module)              -> req({new, Module}).
  dbsave(OutFile, Module)    -> req({save, OutFile, Module}).
  dbput(Module, K, V)        -> req({set, Module, K, V}).
  dbget(Module, K)           -> req({get, Module, K}).
  dbstop()                   -> Resp = req(stop), erase(?MODULE), Resp.
  
  
negative.code: 	    exit({db_error,Info}) 
      end.
  
  cast(Request) ->
      get(?MODULE) ! Request,
      ok.
  
  reply({Ref,From}, Response) ->
      From ! {{Ref,?MODULE}, Response},
      ok.
  