anchor.diff:  	end,
       lists:foreach(F, ?AUTO_STARTED),
       store(uptime, calendar:datetime_to_gregorian_seconds(erlang:universaltime())),
  +    store(nodeapp, [{node(), [{osp_admin, ?ADMINPORT}]}]),
       ok.
   
   %% @doc A callback for the OSP broker service
   %% @spec cleanup() -> ok
   cleanup() ->
       ok.
  -  
  +
  +del_app_from_list(Node, App) ->
  +    NodeApp = retrieve(nodeapp),
  +    {Node, AppList} = lists:keyfind(Node, 1, NodeApp),
  +    AL2 = lists:keydelete(App, 1, AppList),
  +    store(nodeapp, lists:keyreplace(Node, 1, NodeApp, {Node, AL2})),
  +    ok.
  +
  +add_app_to_list(Node, App, Port) ->
  +    Nodeapp = retrieve(nodeapp),
  +    case lists:keyfind(Node, 1, Nodeapp) of
  +	false ->
  +	    store(nodeapp, [{Node, [{App, Port}]} | Nodeapp]);
  +	{Node, AppList} ->
  +	    store(nodeapp, lists:keyreplace(Node, 1, Nodeapp, {Node, AppList ++ [{App, Port}]}))
  +    end,
  +    ok.
  
positive.code: 		    start_db(Node, App),
  		    rpc:call(Node, osp_broker, start, [App, Port])
  	    end,
  	    ok;
  	false ->
  	    error
  
negative.code: 	    ok
      end,
      ok.
  
  %% @doc Returns the App-Node listing for the cluster
  %% @spec appnode() -> list()
  appnode() ->
      retrieve(appnode).
  
  %% @doc The main server loop
  %% @spec server(tuple()) -> none()
  