diff -r fe6f3d31c52a -r b0bbe7932d47 DebugView.st
--- a/DebugView.st	Tue May 15 13:41:23 2007 +0200
+++ b/DebugView.st	Mon May 21 14:21:20 2007 +0200
@@ -4204,6 +4204,22 @@
     ^ canShowMore
 !
 
+contextListEntryFor:aContext
+    |s|
+
+    aContext selector == #doIt ifTrue:[
+        aContext receiver isNil ifTrue:[
+            ^ 'doIt' asText allBold
+        ]
+    ].
+
+    s := Text new writeStream.
+    aContext printOn:s.
+    ^ s contents
+
+    "Created: / 21-05-2007 / 13:30:24 / cg"
+!
+
 exclusive:aBoolean
     exclusive := aBoolean
 !
@@ -4544,7 +4560,11 @@
                     (MoreDebuggingDetail == true) ifTrue:[
                         nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
                     ] ifFalse:[
-                        Error handle:[:ex | nm := '???' ] do:[nm := con printString].
+                        Error 
+                            handle:[:ex | nm := '???' ] 
+                            do:[ 
+                                nm := self contextListEntryFor:con.
+                            ].
                     ].
                     text add:nm.
                     count := count + 1.
@@ -4580,7 +4600,8 @@
                     calledContext := con.
                     con := con sender.
                     text removeLast.
-                    text add:(con methodHome printString).
+
+                    text add:(self contextListEntryFor:con methodHome).
                 ].
                 h := nil.  "/ never keep refs to contexts unless you really need them ...
             ].
@@ -4649,8 +4670,8 @@
     self updateMenuItems.
     ^ true
 
-    "Created: / 14.12.1995 / 19:10:31 / cg"
-    "Modified: / 17.11.2001 / 22:29:19 / cg"
+    "Created: / 14-12-1995 / 19:10:31 / cg"
+    "Modified: / 21-05-2007 / 13:31:02 / cg"
 !
 
 setContextSkippingInterruptContexts:aContext
@@ -6019,7 +6040,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.415 2007-05-15 11:41:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.416 2007-05-21 12:21:20 cg Exp $'
 ! !
 
 DebugView initialize!