* Patch from Mantis 14709

git-svn-id: trunk@14020 -

packages/fcl-process/src/unix/process.inc

@@ -371,7 +371,8 @@ Var
   R : Dword;
 
 begin
-  fexitcode:=waitprocess(handle);
+  if FRunning then
+    fexitcode:=waitprocess(handle);
   Result:=(fexitcode>=0);
   FRunning:=False;
 end;