--- a/DebugView.st	Fri Apr 11 10:08:29 2014 +0200
+++ b/DebugView.st	Fri Apr 11 13:40:19 2014 +0200
@@ -4482,7 +4482,12 @@
     firstContext isNil ifTrue:[
         infoText := 'No context, no walkback'.
     ] ifFalse:[
-        infoText := firstContext fullPrintAllString asStringCollection.
+        exceptionInfoLabel notNil ifTrue:[
+            infoText := exceptionInfoLabel label , '\\' withCRs.
+        ] ifFalse:[
+            infoText := ''
+        ].
+        infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
     ].
 
     self setClipboardText:infoText
@@ -9075,15 +9080,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.650 2014-03-21 18:56:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.651 2014-04-11 11:40:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.650 2014-03-21 18:56:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.651 2014-04-11 11:40:19 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.650 2014-03-21 18:56:04 stefan Exp $'
+    ^ '$Id: DebugView.st,v 1.651 2014-04-11 11:40:19 cg Exp $'
 ! !