anchor.diff:    % New master handle_call function
     [{function, Line, dispatch_method, 3, Clauses ++ MethodMissingClause}].
     
  +%% Extract a method into clauses for dispatch_method
   process_method({function, _Line, Name, _Arity, Clauses}) ->
     [process_method_clause(Clause, Name) || Clause <- Clauses].
          
  +%% Build a clause for dispatch_method from the original clauses for a method
   process_method_clause({clause, Line, Arguments, [], Expressions}, Name) ->
     {clause, Line, [
       {tuple, Line, [{atom, Line, Name}, argument_list_cons(Arguments, Line)]}, 
  
positive.code: build(_) ->
    {error, "invalid class"}.
  
  call(Pid, {_Method, _Arguments} = Request) ->
    case gen_server:call(Pid, Request) of
      {ok, Value} -> Value;
      {error, Error} -> throw(Error)
    end.
  
  % Process incoming functions, substituting custom versions for defaults  
  process_functions(Module, Functions) ->
    {FunctionDict, Methods} = lists:foldr(
      fun process_function/2, 
  
negative.code:     {var, Line, '__instance_variables_0'}
    ], [], process_return_value(Line, Expressions)}.
  
  %% Convert a method's return value into a gen_server reply
  process_return_value(Line, []) ->
    process_return_value(Line, [{atom, Line, 'nil'}]);
  process_return_value(Line, Expressions) ->
  