anchor.diff:  	beam_lib:chunks(Target, [compile_info]),
       {options,BeamOpts} = lists:keyfind(options, 1, CInfo),
       Opts = BeamOpts.
  +
  +get_unique_beam_files() ->
  +    get_unique_files(".beam").
  +
  +get_unique_files(Ext) ->
  +    Wc = filename:join(filename:dirname(code:which(?MODULE)), "*"++Ext),
  +    [F || F <- filelib:wildcard(Wc), not is_cloned(F, Ext)].
  +
  +is_cloned(File, Ext) ->
  +    Mod = list_to_atom(filename:basename(File, Ext)),
  +    test_lib:is_cloned_mod(Mod).
  
positive.code:     Outdir = filename:join(PrivDir, "asm"),
      ok = file:make_dir(Outdir),
  
      Wc = filename:join(filename:dirname(code:which(?MODULE)), "*.beam"),
      TestBeams = filelib:wildcard(Wc),
      Res = test_lib:p_run(fun(F) -> do_asm(F, Outdir) end, TestBeams),
      Res.
  
  
negative.code:     Outdir = filename:join(PrivDir, "core"),
      ok = file:make_dir(Outdir),
  
      TestBeams = get_unique_beam_files(),
      Abstr = [begin {ok,{Mod,[{abstract_code,
  				    {raw_abstract_v1,Abstr}}]}} = 
  			     beam_lib:chunks(Beam, [abstract_code]),
  