anchor.diff:    clj_module().
   add_mappings(_, ?NIL) -> error(badarg);
   add_mappings(Mappings, ModuleName) when is_atom(ModuleName)  ->
  -  add_mappings(Mappings, clj_utils:ets_get(?MODULE, ModuleName));
  +  add_mappings(Mappings, fetch_module(ModuleName));
   add_mappings(Mappings, Module) ->
     AddFun = fun
                ({K, V}) ->
  
positive.code:   clj_module().
  add_on_load(_, ?NIL) -> error(badarg);
  add_on_load(Expr, ModuleName) when is_atom(ModuleName) ->
    case clj_utils:ets_get(?MODULE, ModuleName) of
      undefined -> error({not_found, ModuleName});
      Module    -> add_on_load(Expr, Module)
    end;
  add_on_load(Expr, Module) ->
    clj_utils:ets_save(Module#module.on_load, {Expr, Expr}),
    Module.
  
negative.code: %%------------------------------------------------------------------------------
  %% Helper Functions
  %%------------------------------------------------------------------------------
  
  -spec fetch_module(module()) -> ?NIL | clj_module().
  fetch_module(ModuleName) ->
    gen_server:call(?MODULE, {fetch, ModuleName}).
  
  -spec cleanup(module()) -> ok.
  cleanup(Module) ->
  