anchor.diff:  
   -spec killall_vms() -> fail | ok.
   killall_vms() ->
  -	case get_hosts() of
  -		{_, Hosts} ->
  -    		lists:foreach(fun({Hostname, Status}) ->
  +    case get_hosts() of
  +        {_, Hosts} ->
  +            lists:foreach(fun({Hostname, Status}) ->
                                     case Status of
                                         active ->
                                             scalaris_vm(stop, Hostname);
  
positive.code: 
  -spec add_or_remove_vms(add | remove, integer()) ->  fail | ok.
  add_or_remove_vms(Flag, Pending) ->
  	case get_hosts() of
      	{TLog, Hosts} ->
  			UpdatedHosts = add_or_remove_vms(Flag, Pending, Hosts, []),
  			save_hosts(TLog, UpdatedHosts);
  		fail -> fail
  	end.
  
  -spec add_or_remove_vms(add | remove, integer(), hostlist(), hostlist()) -> hostlist().
  add_or_remove_vms(_Flag, _Pending = 0, Hosts, UpdatedHosts) ->
  
negative.code:                                   end
                            end, Hosts),
              ok;
          fail -> fail
      end.
  
  -spec scalaris_vm(start | stop, string()) -> ok.
  