--- a/DebugView.st	Thu Jun 06 14:03:57 2013 +0200
+++ b/DebugView.st	Thu Jun 06 14:24:40 2013 +0200
@@ -7855,8 +7855,8 @@
                         ]
                     ]
                 ].
-                contextInspector fieldListLabel:('Context: ', method whoString).
                 method notNil ifTrue:[
+                    contextInspector fieldListLabel:(method whoString).
                     Error handle:[:ex |
 "/ not covered by Error, anyway
 "/                        ex signal isControlInterrupt ifTrue:[
@@ -7895,6 +7895,7 @@
                         ]
                     ].
                 ] ifFalse:[
+                    contextInspector fieldListLabel:'Context'.
                     homeContext isNil ifTrue:[
                         errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
                     ] ifFalse:[
@@ -8332,15 +8333,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.588 2013-06-05 12:50:04 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.589 2013-06-06 12:24:40 cg Exp $'
 ! !