diff --git a/packages/fcl-process/src/dummy/process.inc b/packages/fcl-process/src/dummy/process.inc
index 4748bcc188..df43001bba 100644
--- a/packages/fcl-process/src/dummy/process.inc
+++ b/packages/fcl-process/src/dummy/process.inc
@@ -195,5 +195,5 @@ end;
 
 function TIODescriptor.SysIsTypeSupported(AValue: TIOType): Boolean;
 begin
-  Result:=aValue in [ioType,iotNone];
+  Result:=aValue in [ioType,iotDefault];
 end;
diff --git a/packages/fcl-process/src/wince/process.inc b/packages/fcl-process/src/wince/process.inc
index 5b949a9a24..1443f9884e 100644
--- a/packages/fcl-process/src/wince/process.inc
+++ b/packages/fcl-process/src/wince/process.inc
@@ -384,7 +384,7 @@ var
   Res : Boolean;
   
 begin
-  if IOType in [iotNone,iotFile] then begin
+  if IOType in [iotDefault,iotFile] then begin
     Result:=aHandle;
     exit;
   end;