anchor.diff:      {Pid, Modules}  ->
         clj_utils:ets_save(?PID_TO_MODULES, {Pid, [Module | Modules]})
     end,
  -
  -  {reply, ok, State}.
  +  {reply, ok, State};
  +handle_call({fetch, ModuleName}, _From, State) ->
  +  Module = clj_utils:ets_get(?MODULE, ModuleName),
  +  {reply, Module, State}.
   
   handle_cast({fake_module, Module, FakeModule}, State) ->
     {_, FakeModules} = clj_utils:ets_get( ?MODULE_TO_FAKE_MODULES
  
positive.code:   [{function_id(), {cerl:c_fname(), cerl:c_fun()}}].
  get_functions(?NIL) -> error(badarg);
  get_functions(ModuleName) when is_atom(ModuleName)  ->
    get_functions(clj_utils:ets_get(?MODULE, ModuleName));
  get_functions(Module) ->
    ets:tab2list(Module#module.funs).
  
  
negative.code:   clj_module().
  add_mappings(_, ?NIL) -> error(badarg);
  add_mappings(Mappings, ModuleName) when is_atom(ModuleName)  ->
    add_mappings(Mappings, fetch_module(ModuleName));
  add_mappings(Mappings, Module) ->
    AddFun = fun
               ({K, V}) ->
  