anchor.diff:  
       %% No permission (on Unix only).
       case os:type() of
  -	{unix, _} ->
  +	{win32, _} ->
  +	    ok;
  +	_ ->
   	    ?line ?PRIM_FILE:write_file_info(Base, #file_info {mode=0}),
   	    ?line {error, eacces} = 
   		?PRIM_FILE:make_dir(filename:join(Base, "xxxx")),
   	    ?line 
  -		?PRIM_FILE:write_file_info(Base, #file_info {mode=8#600});
  -	{win32, _} ->
  -	    ok
  +		?PRIM_FILE:write_file_info(Base, #file_info {mode=8#600})
       end,
       ?line test_server:timetrap_cancel(Dog),
       ok.
  
positive.code: 		Else ->
  		    Else
  	    end,
  	    Com;
  	{win32, _} ->
  	    %% At least Windows NT can 
  	    %% successfully move a file to
  	    %% another drive.
  	    ok
      end,
      ?line test_server:timetrap_cancel(Dog),
      Comment.
  
negative.code: 	    _ ->  apply(?PRIM_FILE, F, [H | A])
  	end).
  
  suite() -> [].
  
  all() -> 
      [read_write_file, {group, dirs}, {group, files},
  