anchor.diff:      Time = Mega * 1000000 + Secs,
       SpawnFun = 
           fun (X) -> 
  -                 Port = find_free_port(BaseScalarisPort),
  -                 YawsPort = find_free_port(BaseYawsPort),
  -                 NodeName = lists:flatten(io_lib:format("autoscale_~p_~p", [Time, X])),
  -                 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]),
  +                Port = find_free_port(BaseScalarisPort),
  +                YawsPort = find_free_port(BaseYawsPort),
  +                NodeName = format("autoscale_~p_~p", [Time, X]),
  +                Cmd = format("./../bin/scalarisctl -e -detached -s -p ~p -y ~p -n ~s start", 
  +                             [Port, YawsPort, NodeName]),
  +                ?TRACE("Executing: ~p~n", [Cmd]),
                    NumberVMs = get_number_of_vms(),
  -                 _ = os:cmd(Cmd),
  -                 util:wait_for(fun() -> get_number_of_vms() =:= NumberVMs + 1 end),
  -                 timer:sleep(200)
  +                _ = exec(Cmd),
  +                util:wait_for(fun() -> get_number_of_vms() =:= NumberVMs + 1 end)
           end,
       _ = [SpawnFun(X) || X <- lists:seq(1, N), get_number_of_vms() < config:read(cloud_local_max_vms)],
       ok.
   
  --spec remove_vms(integer()) -> ok.
  +-spec remove_vms(non_neg_integer()) -> ok.
   remove_vms(N) ->
       VMs = get_vms(),
       RemoveFun = 
           fun(NodeName) ->						
  -                Cmd = lists:flatten(io_lib:format("./../bin/scalarisctl -n ~s gstop", 
  -                                                  [NodeName])),
  +                Cmd = format("./../bin/scalarisctl -n ~s gstop", [NodeName]),
                   NumberVMs = get_number_of_vms(),
  -                io:format("Executing: ~p~n", [Cmd]),
  -                _ = os:cmd(Cmd),
  +                ?TRACE("Executing: ~p~n", [Cmd]),
  +                _ = exec(Cmd),
                   util:wait_for(fun() -> get_number_of_vms() =:= NumberVMs - 1 end)
           end,
       _ = [RemoveFun(NodeName) || NodeName <- lists:sublist(VMs, N),
  
positive.code: 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,
  
negative.code: get_number_of_vms() ->
      length(get_vms()).
  
  -spec add_vms(non_neg_integer()) -> ok.
  add_vms(N) ->
      BaseScalarisPort = config:read(port),
      BaseYawsPort = config:read(yaws_port),
  