diff --git a/fcl/inc/pipes.pp b/fcl/inc/pipes.pp
index 0f73863104..acf2ad91b6 100644
--- a/fcl/inc/pipes.pp
+++ b/fcl/inc/pipes.pp
@@ -21,11 +21,11 @@ Interface
 Uses sysutils,Classes;
 
 Type
-
-  ENoReadPipe = Class(ESTreamError);
-  ENoWritePipe = Class (EStreamError);
-  EPipeSeek = Class (EStreamError);
-  EPipeCreation = Class (Exception);
+  EPipeError = Class(EStreamError);
+  ENoReadPipe = Class(EPipeError);
+  ENoWritePipe = Class (EPipeError);
+  EPipeSeek = Class (EPipeError);
+  EPipeCreation = Class (EPipeError);
 
   TPipeStream = Class (THandleStream)
     public