anchor.diff:      Frame = get_top_level_parent(Notebook),
       {W,H} = wxWindow:getSize(Frame),
       wxWindow:setSize(Frame, W+10, H+10),
  -    [_|_] = [Check(N, true) || N <- lists:seq(1, Count)],
  -
  -    ok = observer:stop().
  +    [_|_] = [Check(N, true) || N <- lists:seq(0, Count-1)],
  +
  +    ok = observer:stop(),
  +    timer:sleep(2000), %% stop is async
  +    ProcsAfter = processes(),
  +    NumProcsAfter = length(ProcsAfter),
  +    if NumProcsAfter=/=NumProcsBefore ->
  +	    ct:log("Before but not after:~n~p~n",
  +		   [[{P,process_info(P)} || P <- ProcsBefore -- ProcsAfter]]),
  +	    ct:log("After but not before:~n~p~n",
  +		   [[{P,process_info(P)} || P <- ProcsAfter -- ProcsBefore]]),
  +	    ct:fail("leaking processes");
  +       true ->
  +	    ok
  +    end,
  +    ok.
   
   test_page("Load Charts" ++ _, _Window) ->
       %% Just let it display some info and hopefully it doesn't crash
  
positive.code:     timer:sleep(1000),  %% Give it time to refresh
      ok;
  
  test_page("Table" ++ _, _Window) ->
      Tables = [ets:new(list_to_atom("Test-" ++ [C]), [public]) || C <- lists:seq($A, $Z)],
      Active = get_active(),
      Active ! refresh_interval,
      ChangeSort = fun(N) ->
  
negative.code: 		 end,
      [ChangeSort(N) || N <- lists:seq(1,5) ++ [0]],
      timer:sleep(1000),
      Focus = #wx{event=#wxList{type=command_list_item_selected, itemIndex=2}},
      Active ! Focus,
      Activate = #wx{event=#wxList{type=command_list_item_activated, itemIndex=2}},
  