From 999eb8863a0c0dc0ff75dc00a5d776379f9ac32d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 21 Jul 2005 08:11:12 +0000
Subject: [PATCH] Merged revisions 709 via svnmerge from /trunk

git-svn-id: branches/fixes_2_0@720 -
---
 rtl/unix/sysutils.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index a6ac2a68e8..ab13b01f2b 100644
--- a/rtl/unix/sysutils.pp
+++ b/rtl/unix/sysutils.pp
@@ -651,7 +651,7 @@ Function FileSetDate (Const FileName : String;Age : Longint) : Longint;
 
 var
   t: TUTimBuf;
-  
+
 begin
   Result := 0;
   t.actime := Age;
@@ -923,6 +923,9 @@ Begin
    if Comline<>'' Then
      begin
        CommandLine:=ComLine;
+       { Make an unique copy because stringtoppchar modifies the
+         string }
+       UniqueString(CommandLine);
        cmdline2:=StringtoPPChar(CommandLine,1);
        cmdline2^:=pchar(Path);
      end