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: 				Cmd = lists:flatten(io_lib:format("./../bin/scalarisctl -e -detached -s -p ~p -y ~p -n ~s start", 
  									[Port, YawsPort, NodeName])),
  				io:format("Executing: ~p~n", [Cmd]),
  				os:cmd(Cmd),
  				wait_for(fun get_number_of_vms/0, get_number_of_vms() + 1),
  				timer:sleep(200)
  		end,
  	[SpawnFun(X) || X <- lists:seq(1, N), get_number_of_vms() < config:read("as_max_vms")],		   
  	ok.
  
  wait_for(Fun, ExpectedValue) ->
  	case Fun() of
  		ExpectedValue -> ok;
  
negative.code: 			wait_for(Fun, ExpectedValue)
  	end.
  
  -spec find_free_port(integer()) -> integer().
  find_free_port(Port) ->
  	case gen_tcp:listen(Port, []) of
  		{ok, Socket} -> gen_tcp:close(Socket), 
  