anchor.diff:      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),
  +    Papa = self(),
  +    {P0,M0} = spawn_monitor(fun () ->
  +                                    [{my_fun2,F2}] = ets:lookup(T, my_fun2),
  +                                    F2(fun () ->
  +                                               Papa ! {self(),"going to sleep"},
  +                                               receive {Papa,"wake up"} -> ok end
  +                                       end,
  +                                       fun () -> ok end),
  +                                    exit(completed)
  +                            end),
   
       ?line PurgeType = case Type of
   		    code_gone ->
  
positive.code: 		end,
  
      ?line true = erlang:delete_module(my_code_test2),
  
      ?line Purge = start_purge(my_code_test2, PurgeType),
  
  
negative.code: 
      case Type of
  	code_there ->
  	    ?line false = complete_purge(Purge),
              P0 ! {self(), "wake up"},
              ?line completed = wait_for_down(P0,M0);
  	_ ->
  	    ?line {true, true} = complete_purge(Purge),
              ?line killed = wait_for_down(P0,M0)
      end,
  
      case Type of
  