anchor.diff:  %%--------------------------------------------------------------------
   handle_info(Info, #state{mod=Mod, state=BState}=State) ->
       case erlang:function_exported(Mod, handle_info, 2) of
  -	true ->
  -	    Mod:handle_info(Info, BState),
  -	    {noreply, State};
  -	false ->
  -	    {noreply, State}
  +		true ->
  +			Mod:handle_info(Info, BState),
  +			{noreply, State};
  +		false ->
  +			{noreply, State}
       end.
   
   %%--------------------------------------------------------------------
  
positive.code: init(#occi_backend{ref=Ref, mod=Mod}=Backend) ->
      T = ets:new(Mod, [set, public, {keypos, 1}]),
      case Mod:init(Backend) of
  	{ok, Caps, BackendState} ->
  	    case init_schemas(Ref, proplists:get_value(schemas, Caps))  of
  		ok -> 
  		    {ok, #state{ref=Ref, mod=Mod, pending=T, state=BackendState}};
  		{error, Err} -> 
  		    {stop, Err}
  	    end;
  	{error, Err} ->
  	    {stop, Err}
      end.
  
  %%--------------------------------------------------------------------
  
negative.code: 
  init_schemas(Ref, [{Type, Path} | Tail]) when Type =:= xml orelse Type =:= path ->
      case occi_category_mgr:load_schema(Ref, {path, Path}) of
  		ok -> init_schemas(Ref, Tail);
  		{error, Err} -> {error, Err}
      end;
  
  init_schemas(Ref, [Bin | Tail]) when is_binary(Bin) ->
      case occi_category_mgr:load_schema(Ref, Bin) of
  		ok -> init_schemas(Ref, Tail);
  		{error, Err} -> {error, Err}
      end;
  
  init_schemas(Ref, [#occi_mixin{}=M | Tail]) ->
      case occi_category_mgr:register_mixin(M) of
  		ok -> init_schemas(Ref, Tail);
  		{error, Err} -> {error, Err}
      end.
  