anchor.diff:  -author('michels@zib.de').
   -vsn('$Id$').
   
  --behavior(cloud_beh).
  +%-define(TRACE(X,Y), io:format(X,Y)).
  +-define(TRACE(_X,_Y), ok).
   
   -include("scalaris.hrl").
  +
  +-behavior(cloud_beh).
   
   -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1]).
   
  
positive.code:     find_free_port([0]);
  find_free_port(Port) ->
      find_free_port([Port]).
  
negative.code: %%%% Helper methods
  %%%%%%%%%%%%%%%%%%%
  -spec find_free_port(comm_server:tcp_port() | [comm_server:tcp_port()] |
                       {From::comm_server:tcp_port(), To::comm_server:tcp_port()})
                      -> comm_server:tcp_port().
  find_free_port({From, To}) ->
      find_free_port(lists:seq(From, To));
  find_free_port([Port | Rest]) when is_integer(Port) andalso Port >= 0 andalso Port =< 65535 ->
  