anchor.diff:  					 {outdir,PrivDir}] ++
   					[from_asm || Ext =:= ".S" ]),
   	Base = filename:rootname(filename:basename(Source), Ext),
  -    code:purge(list_to_atom(Base)),
  -    BeamFile = filename:join(PrivDir, Base),
  -    code:load_abs(BeamFile),
  +	code:purge(list_to_atom(Base)),
  +	BeamFile = filename:join(PrivDir, Base),
  +	code:load_abs(BeamFile),
   	ok = Mod:Mod(),
   	{beam_file,Mod,_,_,_,Code} = beam_disasm:file(BeamFile),
   	case Base of
  
positive.code: 		end] || {function,_,_,_,Is} <- Code],
      lists:append(L).
  
  export(Config) when is_list(Config) ->
      Ref = make_ref(),
      ?line self() ! {result,Ref,42},
  
negative.code:     end.
  
  ref_opt_1(Config) ->
      DataDir = ?config(data_dir, Config),
      PrivDir = ?config(priv_dir, Config),
      Sources = filelib:wildcard(filename:join([DataDir,"ref_opt","*.{erl,S}"])),
      test_lib:p_run(fun(Src) ->
  			   do_ref_opt(Src, PrivDir)
  		   end, Sources),
      cover_recv_instructions(),
      ok.
  
  do_ref_opt(Source, PrivDir) ->
  