diff --git a/tools/svn2revisioninc.lpi b/tools/svn2revisioninc.lpi
index 318685fa87..0d256af22f 100644
--- a/tools/svn2revisioninc.lpi
+++ b/tools/svn2revisioninc.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
@@ -40,7 +40,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <SmartLinkUnit Value="True"/>
       <Generate Value="Faster"/>
diff --git a/tools/svn2revisioninc.pas b/tools/svn2revisioninc.pas
index 6665d2fcfa..90e8c2e80f 100644
--- a/tools/svn2revisioninc.pas
+++ b/tools/svn2revisioninc.pas
@@ -167,11 +167,18 @@ begin
   Result := true;
 end;
 
+function CanCreateRevisionInc: boolean;
+begin
+  Result:=(not FileExists(RevisionIncFileName))
+           or FileIsWritable(RevisionIncFileName);
+end;
+
 begin
   if not ParamsValid then begin
     writeln('Usage: ',ExtractFileName(ParamStr(0)),' sourcedir revision.inc');
     halt(1);
   end;
+  if not CanCreateRevisionInc then exit;
   if FindRevision or not IsValidRevisionInc then
     WriteRevisionInc;
 end.