anchor.diff:      ?line "Here"++_ = binary_to_list(First),
       ?line "And"++_ = binary_to_list(Second),
   
  -    %% Clean up.
  -    ?line delete_files([filename:join(Cwd, "original_software"),EmptyDir]),
  -
       ok.
   
   create_long_names(doc) ->
       ["Creates a tar file from a deep directory structure (filenames are ",
        "longer than 100 characters)."];
   create_long_names(Config) when is_list(Config) ->
  -    ?line PrivDir = ?config(priv_dir, Config),
  -    ?line ok = file:set_cwd(PrivDir),
  +    run_in_short_tempdir(Config, fun create_long_names/0).
  +    
  +create_long_names() ->
  +    ?line {ok,Dir} = file:get_cwd(),
       Dirs = ["aslfjkshjkhliuf",
   	    "asdhjfehnbfsky",
   	    "sahajfskdfhsz",
  
positive.code: long_names(Config) when is_list(Config) ->
      ?line DataDir = ?config(data_dir, Config),
      ?line Long = filename:join(DataDir, "long_names.tar"),
  
      %% 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,
  
  
      %% To avoid getting too long paths for Windows to handle, extract into
      %% the current directory (which is the test_server directory). Its path
      %% is quite a bit shorter than the path to priv_dir.
      ?line {ok,Cwd} = file:get_cwd(),
      ?line ok = erl_tar:extract(Long),
      ?line Base = filename:join([Cwd, "original_software", "written_by",
  
negative.code:     ?line AFile = filename:join(DeepDir, "a_file"),
      ?line Hello = "hello, world\n",
      ?line ok = file:write_file(AFile, Hello),
      ?line TarName = filename:join(Dir,  "my_tar_with_long_names.tar"),
      ?line ok = erl_tar:create(TarName, [AFile]),
  
      %% Print contents.
  