anchor.diff:                                    end
                             end, Hosts),
               ok;
  -		fail -> fail
  +        fail -> fail
       end.
   
   -spec scalaris_vm(start | stop, string()) -> ok.
  
positive.code: 
  -spec killall_vms() -> fail | ok.
  killall_vms() ->
  	case get_hosts() of
  		{_, Hosts} ->
      		lists:foreach(fun({Hostname, Status}) ->
                                    case Status of
                                        active ->
                                            scalaris_vm(stop, Hostname);
  
negative.code: init() ->
      case get_hosts() of
          fail -> Hosts =
                      case config:read(cloud_ssh_hosts) of
                          failed -> [];
                          List -> lists:map(fun(Host) -> {Host, inactive} end, List)
                      end,
                  save_hosts(Hosts);
          _ -> ok
      end.
  
  -spec get_number_of_vms() -> fail | non_neg_integer().
  get_number_of_vms() ->
      case get_hosts() of
          fail -> fail;
          {_, List} -> get_number_of_vms(List)
      end.
  
  -spec get_number_of_vms(hostlist()) -> fail | non_neg_integer().
  get_number_of_vms(Hosts) ->
  