--- a/InspectorView.st	Tue Jan 15 15:07:08 2013 +0100
+++ b/InspectorView.st	Tue Jan 15 17:33:23 2013 +0100
@@ -2054,6 +2054,12 @@
     |s|
 
     Error handle:[:ex |
+        (ex signal == WriteError and:[s isStream]) ifTrue:[
+            "hit the write limit set below"
+            s writeLimit:nil.
+            s nextPutAll:' ...'.
+            ^ s contents.
+        ].
         s := someValue classNameWithArticle.
         displayStringMessage == #displayString ifTrue:[
             s := s , ' "error in displayString: ' , ex description , '"'
@@ -3380,9 +3386,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.295 2012-12-14 16:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.296 2013-01-15 16:33:23 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.295 2012-12-14 16:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.296 2013-01-15 16:33:23 stefan Exp $'
 ! !
+