--- a/extensions.st	Thu Aug 01 10:29:53 2019 +0100
+++ b/extensions.st	Fri May 29 12:10:35 2020 +0100
@@ -2141,6 +2141,21 @@
     ^ #queryClassBrowserIcon
 ! !
 
+!ReadStream methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    | extras |
+
+    extras := super inspectorExtraAttributes.
+    (collection notNil and:[ collection isString ]) ifTrue:[ 
+        extras add: '-consumed' -> [ collection copyTo: self position ].
+        extras add: '-remaining' -> [ collection copyFrom: self position + 1 ].
+    ].
+    ^ extras
+
+    "Created: / 27-05-2020 / 14:58:50 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !Rectangle methodsFor:'inspecting'!
 
 inspectorValueStringInListFor:anInspector
@@ -3093,7 +3108,7 @@
 
 !stx_libtool class methodsFor:'documentation'!
 
-extensionsVersion_CVS
-    ^ '$Header$'
+extensionsVersion_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !
-