From 2a809969d38fe1df0b753c87173bec15ef6875d3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 7 Feb 2014 13:25:13 +0000
Subject: [PATCH] * Check running

git-svn-id: trunk@26707 -
---
 packages/fcl-process/src/unix/process.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-process/src/unix/process.inc b/packages/fcl-process/src/unix/process.inc
index 45a453c8e2..ca51e8d592 100644
--- a/packages/fcl-process/src/unix/process.inc
+++ b/packages/fcl-process/src/unix/process.inc
@@ -42,7 +42,7 @@ end;
 Function TProcess.GetExitCode : Integer;
 
 begin
-  if wifexited(FExitCode) then
+  if (Not Running) and wifexited(FExitCode) then
     Result:=wexitstatus(FExitCode)
   else
     Result:=0;