anchor.diff:      "terminate(_Reason, _State) -> ok.",
       "code_change(_OldVsn, State, _Extra) -> {ok, State}."
     ]].
  -  
  +
  +%% Parse a default function and return a dict entry for it  
   default_function(String) ->
     Form = parse_function(String),
     {function, _, Name, _, _} = Form,
     {Name, Form}.
     
  -% Default methods that Reia objects respond to
  +%% Default methods that Reia objects respond to
   default_methods() ->
     [parse_function(Function) || Function <- [
       "to_s() -> {string, <<\"#<Object>\">>}.",
       "inspect() -> {string, <<\"#<Object>\">>}."
     ]].
     
  -% Functions for starting a new object
  -init_functions(Module) ->
  +%% Functions for starting a new object
  +start_functions(Module) ->
     [init_function(Module, Function) || Function <- ["start", "start_link"]].
   
   init_function(Module, Function) ->
     String = [Function, "() -> {ok, Pid} = gen_server:", Function, "('", Module, "', [], []), {object, {Pid, '", Module, "'}}."],
     parse_function(lists:concat(String)).
     
  -% Parse a function from a string
  +%% Parse a function from a string
   parse_function(String) ->
     {ok, Scanned, _} = erl_scan:string(String),
     {ok, Form} = erl_parse:parse_form(Scanned),
  
positive.code:   ]},
    lists:reverse([Result3,Result2|Expressions2]).
  
  final_ivars(Expressions) ->
    {ok, Newest, _} = reia_visitor:transform(Expressions, 0, fun newest_ivars/2),
    Name = io_lib:format("~s~w", ["__instance_variables_", Newest]),
    list_to_atom(lists:flatten(Name)).
  
  newest_ivars(Newest, {var, _Line, Name} = Node) ->
    case atom_to_list(Name) of
      "__instance_variables_" ++ VersionStr ->
  
negative.code:       {Dict, [Function|Functions]}
    end.
    
  %% Convert individual method definitions into a single dispatch_method function
  process_methods([]) ->
    [];
  process_methods([FirstMeth|_] = Methods) ->
  