anchor.diff:  
       case Type of
   	code_there ->
  -	    ?line false = complete_purge(Purge);
  +	    ?line false = complete_purge(Purge),
  +            P0 ! {self(), "wake up"},
  +            ?line completed = wait_for_down(P0,M0);
   	_ ->
  -	    ?line {true, true} = complete_purge(Purge)
  +	    ?line {true, true} = complete_purge(Purge),
  +            ?line killed = wait_for_down(P0,M0)
       end,
   
       case Type of
  
positive.code:     ets:insert(T, {my_fun,my_code_test2:make_fun(4711)}),
      ets:insert(T, {my_fun2,my_code_test2:make_fun2()}),
  
      spawn(fun () ->
  		  [{my_fun2,F2}] = ets:lookup(T, my_fun2),
  		  F2(fun () ->
  			     receive after infinity -> ok end
  		     end,
  		     fun () -> ok end),
  		  exit(completed)
  	  end),
  
      ?line PurgeType = case Type of
  		    code_gone ->
  
negative.code: 		end,
  
      ?line true = erlang:delete_module(my_code_test2),
  
      ?line ok = receive {P0, "going to sleep"} -> ok
                 after 1000 -> timeout
                 end,
  
      ?line Purge = start_purge(my_code_test2, PurgeType),
  
  