--- a/ExternalStream.st	Mon Apr 23 18:56:07 2018 +0200
+++ b/ExternalStream.st	Tue Apr 24 09:35:24 2018 +0200
@@ -1862,6 +1862,31 @@
     ^ StreamNotOpenError
 ! !
 
+!ExternalStream class methodsFor:'accessing'!
+
+openStreams
+    "answer a collection of open Streams having this class"
+
+    |openStreams|
+
+    openStreams := OrderedCollection new.
+    Lobby keysDo:[:eachStream| 
+                    (eachStream isKindOf:self) ifTrue:[
+                        openStreams add:eachStream
+                    ]
+                ].
+
+    ^ openStreams
+
+    "
+        self openStreams
+        Socket openStreams
+        NonPositionableExternalStream openStreams
+    "
+
+    "Created: / 24-04-2018 / 09:23:33 / stefan"
+! !
+
 !ExternalStream class methodsFor:'defaults'!
 
 bufferSizeForBulkFileCopy