anchor.diff:                                lists:member(P,BeforeNotAfter)]]),
   	    ct:log("After but not before:~n~p~n",
   		   [[{P,process_info(P)} || P <- ProcsAfter -- ProcsBefore]]),
  +	    ensure_observer_stopped(),
   	    ct:fail("leaking processes");
          true ->
   	    ok
       end,
  +    ?P("ensure observer stopped"),
  +    ensure_observer_stopped(?SECS(2)),
       ?P("basic -> done"),
       ok.
   
  
positive.code: process_win(suite) -> [];
  process_win(doc) -> [""];
  process_win(Config) when is_list(Config) ->
      % Stop SASL if already started
      SaslStart = case whereis(sasl_sup) of
                    undefined -> false;
  
negative.code: 
  %% Default timetrap timeout (set in init_per_testcase)
  -define(default_timeout, ?t:minutes(2)).
  
  -define(SECS(__S__), timer:seconds(__S__)).
  
  -define(P(F),    print(F)).
  -define(P(F, A), print(F, A)).
  