anchor.diff:                    end
             end),
       ok.
  -
  -
  -
  -
  -
  -
  -
  -
  -
  
positive.code: %% @todo The more general variant is at the moment non-functional
  %% @end
  -spec install_callback(pid(), binary(),
  		       fun(() -> any()) | [{atom(), fun()}]) ->
                         ok.
  install_callback(TorrentPid, IH, Fun) when is_function(Fun, 0) ->
      install_callback(TorrentPid, IH, [{completion, Fun}]);
  install_callback(TorrentPid, IH, EventCallbacks) when is_list(EventCallbacks) ->
      gen_event:call(etorrent_event, ?MODULE,
  		   {install_callbacks, TorrentPid, IH, EventCallbacks}).
  
  %% @doc Install a callback for a specific type of event
  %% @todo This function is not yet working as intended
  
negative.code: 
  %% @private
  handle_info({'DOWN', Ref, process, _Pid, _Reason},
              #state { monitors = M, table = T} = S) ->
      {value, IH} = gb_trees:lookup(Ref, M),
      {ok,
       S#state { monitors = gb_trees:delete(Ref, M),
  