anchor.diff:      Result.
   
   cur_dir_0(Config, Handle) ->
  -    ?line Dog = test_server:timetrap(test_server:seconds(5)),
       %% Find out the current dir, and cd to it ;-)
       ?line {ok,BaseDir} = ?PRIM_FILE_call(get_cwd, Handle, []),
       ?line Dir1 = BaseDir ++ "", %% Check that it's a string
  
positive.code: truncate(suite) -> [];
  truncate(doc) -> [];
  truncate(Config) when is_list(Config) ->
      ?line Dog = test_server:timetrap(test_server:seconds(5)),
      ?line RootDir = ?config(priv_dir,Config),
      ?line Name = filename:join(RootDir, 
  			       atom_to_list(?MODULE)
  
negative.code: pread_write(suite) -> [];
  pread_write(doc) -> [];
  pread_write(Config) when is_list(Config) ->
      ?line RootDir = ?config(priv_dir, Config),
      ?line NewDir = filename:join(RootDir, 
  				 atom_to_list(?MODULE)
  