--- a/InspectorView.st	Fri Nov 07 20:31:46 2014 +0100
+++ b/InspectorView.st	Fri Nov 07 20:32:07 2014 +0100
@@ -2927,7 +2927,12 @@
 
     |valString|
 
-    valString := (self plainValueStringInListEntryForValue:value) ? ''.
+    Error handle:[:ex |
+        Transcript showCR:ex description.
+        valString := '*** error in printString **'
+    ] do:[
+        valString := (self plainValueStringInListEntryForValue:value) ? ''.
+    ].
     (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[
         ^ ' (',valString,') (==self)' 
     ].
@@ -3964,10 +3969,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.337 2014-10-23 11:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.338 2014-11-07 19:32:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.337 2014-10-23 11:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.338 2014-11-07 19:32:07 cg Exp $'
 ! !