--- a/DebugView.st	Thu Jan 29 16:06:16 2009 +0100
+++ b/DebugView.st	Mon Feb 02 17:43:19 2009 +0100
@@ -1926,7 +1926,9 @@
                 Error handle:[:ex |
                     valueString := '??? (',ex description,')'
                 ] do:[
-                    valueString := value printString contractTo:80.
+                    [
+                        valueString := value printString contractTo:80.
+                    ] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
                 ]
             ].
             description isEmptyOrNil ifTrue:[
@@ -6537,7 +6539,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.459 2009-01-21 23:24:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.460 2009-02-02 16:43:19 cg Exp $'
 ! !
 
 DebugView initialize!