--- a/InspectorView.st	Wed Mar 20 21:30:55 2013 +0100
+++ b/InspectorView.st	Thu Mar 21 10:40:25 2013 +0100
@@ -2114,11 +2114,13 @@
 basicDisplayStringForValue:someValue 
     "return the value's displayString to be pasted into the workspace."
 
-    |s|
+    |s maxStringLength|
+
+    maxStringLength := 100000.
 
     Error handle:[:ex |
         (ex signal == WriteError and:[s isStream]) ifTrue:[
-            "hit the write limit set below"
+            "hit the write limit"
             s writeLimit:nil.
             s nextPutAll:' ...'.
             ^ s contents.
@@ -2145,7 +2147,7 @@
                 ].
                 (someValue isMemberOf:ByteArray) ifTrue:[
                     s := WriteStream on:(String new:10).
-                    s writeLimit:100000.
+                    s writeLimit:maxStringLength.
                     someValue printOn:s base:integerDisplayRadix showRadix:true.
                     ^ s contents
                 ]
@@ -2160,7 +2162,7 @@
             ].
 
             s := CharacterWriteStream on:(String new:10).
-            s writeLimit:1000.
+            s writeLimit:maxStringLength.
 
             "/ mhmh - avoid sending #perform: (bad for proxy objects which pass it to somewhere..)
             displayStringMessage == #displayString ifTrue:[
@@ -3460,10 +3462,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.299 2013-03-14 13:50:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.300 2013-03-21 09:40:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.299 2013-03-14 13:50:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.300 2013-03-21 09:40:25 cg Exp $'
 ! !