anchor.diff:  
   -spec add_vms(integer()) -> ok.
   add_vms(N) ->
  -	BaseScalarisPort = 14195,%config:read(port),
  -	BaseYawsPort = 8000,%config:read(yaws_port),
  +	BaseScalarisPort = config:read(port),
  +	BaseYawsPort = config:read(yaws_port),
   	{Mega, Secs, _} = now(),
   	Time = Mega * 1000000 + Secs,
   	SpawnFun = 
  
positive.code: 			wait_for(Fun, ExpectedValue)
  	end.
  
  -spec remove_vms(integer()) -> ok.
  remove_vms(N) ->
  	
  	ok.
  
  find_free_port() ->
  	BasePort = config:read(port),
  	find_free_port(BasePort).
  
  find_free_port(Port) ->
  	case gen_tcp:listen(Port, []) of
  		{ok, Socket} -> gen_tcp:close(Socket), 
  
negative.code: 
  -behavior(cloud_beh).
  
  -include("scalaris.hrl").
  
  -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1]).
  
  
  %%%%%%%%%%%%%%%%%%%%%
  %%%% Behavior methods
  %%%%%%%%%%%%%%%%%%%%%
  
  -spec init() -> ok.
  init() ->
  	case config:read(cloud_local_min_vms) of
  		failed ->
  			config:write(cloud_local_min_vms, 1),
  			config:write(cloud_local_max_vms, ?PLUS_INFINITY);
  		X -> X
  	end,
  	ok.
  
  
  -spec get_number_of_vms() -> integer().
  get_number_of_vms() ->
  