anchor.diff:                                  scheduler_wall_time ->
                                       Schedulers + DirtyCPUSchedulers
                           end,
  -                            
  +
           %% Let testserver and everyone else finish their work
           timer:sleep(1500),
           %% Empty load
  
positive.code:         HalfDirtyIOHogs = [StartDirtyHog(dirty_io)
                             || _ <- lists:seq(1, lists:max([1,DirtyIOSchedulers div 2]))],
          HalfLoad = lists:sum(get_load(Type)) div TotLoadSchedulers,
          if Schedulers < 2, HalfLoad > 80 -> ok; %% Ok only one scheduler online and one hog
             %% We want roughly 50% load
             HalfLoad > 40, HalfLoad < 60 -> ok;
             true -> exit({halfload, HalfLoad})
          end,
  
          %% 100% load
          LastHogs = [StartHog() || _ <- lists:seq(1, Schedulers div 2)],
          LastDirtyCPUHogs = [StartDirtyHog(dirty_cpu)
                              || _ <- lists:seq(1, DirtyCPUSchedulers div 2)],
          LastDirtyIOHogs = [StartDirtyHog(dirty_io)
                             || _ <- lists:seq(1, DirtyIOSchedulers div 2)],
          FullScheds = get_load(Type),
          {false,_} = {lists:any(fun(Load) -> Load < 80 end, FullScheds),FullScheds},
          FullLoad = lists:sum(FullScheds) div TotLoadSchedulers,
  
negative.code:     %% Check some IO
      {ok, L} = gen_tcp:listen(0, [{active, true},{reuseaddr,true}]),
      {ok, Port} = inet:port(L),
      _Pid = spawn(fun() ->
                           {ok, _S} = gen_tcp:accept(L),
                           (fun F() -> receive _M -> F() end end)()
                  end),
      {ok, C} = gen_tcp:connect("localhost", Port, []),
      [begin gen_tcp:send(C,"hello"),timer:sleep(1) end || _ <- lists:seq(1,100)],
  