--- a/extensions.st	Wed Feb 25 01:46:54 2015 +0100
+++ b/extensions.st	Wed Feb 25 14:38:06 2015 +0100
@@ -2508,10 +2508,30 @@
     "Created: / 07-06-2011 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!WriteStream methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+    "extra (pseudo instvar) entries to be shown in an inspector."
+
+    collection isNil ifTrue:[^ super inspectorExtraAttributes].
+
+    ^ super inspectorExtraAttributes
+        add:'-contents' -> [    '''' 
+                                ,
+                                ((collection copyTo:position) printString asText 
+                                    backgroundColorizeAllWith:Color green lightened)
+                                ,         
+                                ((collection copyFrom:position+1) printString)
+                                ,
+                                ''''
+                           ];
+        yourself
+! !
+
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.146 2015-02-20 21:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.147 2015-02-25 13:38:06 cg Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!