anchor.diff:      ?line Dog = test_server:timetrap(test_server:seconds(5)),
   
       ?line case os:type() of
  -	      {unix, _} ->
  -		  ?line {error, enotsup} = 
  -		      ?PRIM_FILE_call(get_cwd, Handle, ["d:"]);
   	      {win32, _} ->
  -		  win_cur_dir_1(Config, Handle)
  +		  win_cur_dir_1(Config, Handle);
  +	      _ ->
  +		  ?line {error, enotsup} =
  +		      ?PRIM_FILE_call(get_cwd, Handle, ["d:"])
   	  end,
       ?line test_server:timetrap_cancel(Dog),
       ok.
  
positive.code: 		  ?line test_directory("/", read_write, Handle),
  		  ?line test_directory("c:/", read_write, Handle),
  		  ?line test_directory("c:\\", read_write, Handle);
  	      {unix, _} ->
  		  ?line test_directory("/", read, Handle)
  	  end,
      ?line test_server:timetrap_cancel(Dog).
  
negative.code:     %% XXX - Gross hack!
      ?line Comment = 
      case os:type() of
  	{win32, _} ->
  	    %% At least Windows NT can
  	    %% successfully move a file to
  	    %% another drive.
  	    ok;
  	_ ->
  	    OtherFs = "/tmp",
  	    ?line NameOnOtherFs =
  	    filename:join(OtherFs, 
  