* patch (don't call waitprocess if not running) from Mantis 14707

git-svn-id: trunk@14022 -

packages/fcl-process/src/process.pp

@@ -187,8 +187,7 @@ end;
 Function TProcess.GetExitStatus : Integer;
 
 begin
-  If FRunning then
-    PeekExitStatus;
+  GetRunning;
   Result:=FExitCode;
 end;