anchor.diff:      
   
   start_after_test(Pids, C, 1) ->
  -    TO1 = random:uniform(100)*100,
  +    TO1 = random:uniform(100)*47,
       [s_a_t(C, TO1)|Pids];
   start_after_test(Pids, C, 2) ->
  -    TO1 = random:uniform(100)*100,
  -    TO2 = TO1 div random:uniform(3) + 200,
  +    TO1 = random:uniform(100)*47,
  +    TO2 = TO1 div random:uniform(3) + 101,
       [s_a_t(C, TO1),s_a_t(C, TO2)|Pids];
   start_after_test(Pids, C, N) ->
  -    TO1 = random:uniform(100)*100,
  +    TO1 = random:uniform(100)*47,
       start_after_test([s_a_t(C, TO1)|Pids], C, N-1).
   
   s_a_t(C, TimeOut) ->
  
positive.code: 
  -include_lib("test_server/include/test_server.hrl").
  
  %% Test suite for timer module. This is a really nasty test it runs a
  %% lot of timeouts and then checks in the end if any of them was
  %% trigggered too early or if any late timeouts was much too
  %% late. What should be added is more testing of the interface
  %% functions I guess. But I don't have time for that now.
  %%
  %% Expect it to run for at least 5-10 minutes!
  
  
  %% The main test case in this module is "do_big_test", which
  %% orders a large number of timeouts and measures how
  
negative.code: 	    %%Pids2=Pids1,
  
  	    %% wait a little while
  	    timer:sleep(random:uniform(200)*3),
  
  	    %% spawn zero, one or two nrev to get some load ;-/
  	    Pids3 = start_nrev(Pids2, random:uniform(100)),
  