--- a/PipeStream.st	Mon May 21 09:43:04 2018 +0200
+++ b/PipeStream.st	Mon May 21 09:43:14 2018 +0200
@@ -1076,6 +1076,12 @@
     ^ false
 ! !
 
+!PipeStream methodsFor:'testing'!
+
+isPipeStream
+    ^ true
+! !
+
 !PipeStream class methodsFor:'documentation'!
 
 version