anchor.diff:  
   find_beam(Mod, Src) ->
       SrcDir = filename:dirname(Src),
  -    BeamFile = packages:last(Mod) ++ code:objfile_extension(),
  +    BeamFile = atom_to_list(Mod) ++ code:objfile_extension(),
       File = filename:join(SrcDir, BeamFile),
       case is_file(File) of
   	true -> File;
  -	false -> find_beam_1(Mod, SrcDir)
  -    end.
  -
  -find_beam_1(Mod, SrcDir) ->
  -    RootDir = find_root_dir(SrcDir, packages:first(Mod)),
  +	false -> find_beam_1(Mod, BeamFile, SrcDir)
  +    end.
  +
  +find_beam_1(Mod, BeamFile, SrcDir) ->
  +    RootDir = filename:dirname(SrcDir),
       EbinDir = filename:join(RootDir, "ebin"),
       CodePath = [EbinDir | code:get_path()],
  -    BeamFile = to_path(Mod) ++ code:objfile_extension(),
  +    BeamFile = atom_to_list(Mod) ++ code:objfile_extension(),
       lists:foldl(fun(_, Beam) when is_list(Beam) -> Beam;
   		   (Dir, error) ->
   			File = filename:join(Dir, BeamFile),
  
positive.code: 		end,
  		error,
  		CodePath).
  
  to_path(X) ->
      filename:join(packages:split(X)).
  
  find_root_dir(Dir, [_|Ss]) ->
      find_root_dir(filename:dirname(Dir), Ss);
  find_root_dir(Dir, []) ->
      filename:dirname(Dir).
  
  check_beam(BeamBin) when is_binary(BeamBin) ->
      case beam_lib:chunks(BeamBin, [abstract_code,exports]) of
  
negative.code: 
  scan_module_name_3(Ts) ->
      case erl_parse:parse_form(Ts) of
  	{ok, {attribute,_,module,{M,_}}} -> M;
  	{ok, {attribute,_,module,M}} -> M;
  	_ -> error
      end.
  
  %%--Stop interpreting modules-----------------------------------------
  
  