--- a/DebugView.st	Fri Aug 01 19:08:35 2008 +0200
+++ b/DebugView.st	Wed Aug 06 12:17:21 2008 +0200
@@ -1901,7 +1901,11 @@
             value isString ifTrue:[
                 valueString := value storeString contractTo:80.
             ] ifFalse:[
-                valueString := value printString contractTo:80.
+                Error handle:[:ex |
+                    valueString := '??? (',ex description,')'
+                ] do:[
+                    valueString := value printString contractTo:80.
+                ]
             ].
             description isEmptyOrNil ifTrue:[
                 s := valueString
@@ -6491,7 +6495,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.447 2008-07-24 14:44:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.448 2008-08-06 10:17:21 cg Exp $'
 ! !
 
 DebugView initialize!