anchor.diff:      ?line AFile = filename:join(DeepDir, "a_file"),
       ?line Hello = "hello, world\n",
       ?line ok = file:write_file(AFile, Hello),
  -    ?line TarName = filename:join(PrivDir,  "my_tar_with_long_names.tar"),
  +    ?line TarName = filename:join(Dir,  "my_tar_with_long_names.tar"),
       ?line ok = erl_tar:create(TarName, [AFile]),
   
       %% Print contents.
  
positive.code:     end,
      delete_files(Rest).
  
  
negative.code: long_names(Config) when is_list(Config) ->
      ?line DataDir = ?config(data_dir, Config),
      ?line Long = filename:join(DataDir, "long_names.tar"),
      run_in_short_tempdir(Config,
  			 fun() -> do_long_names(Long) end).
  
  do_long_names(Long) ->
      %% Try table/2 and extract/2.
      ?line case erl_tar:table(Long, [verbose]) of
  	      {ok,List} when is_list(List) ->
  		  ?line io:format("~p\n", [List])
  	  end,
  
      ?line {ok,Cwd} = file:get_cwd(),
      ?line ok = erl_tar:extract(Long),
      ?line Base = filename:join([Cwd, "original_software", "written_by",
  