--- a/DebugView.st	Fri Nov 07 12:13:30 2014 +0100
+++ b/DebugView.st	Fri Nov 07 20:31:46 2014 +0100
@@ -8053,7 +8053,7 @@
                 handle:[:ex | ex proceed ]
                 do:[
                     answer := Dialog
-                        choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+                        choose:(ex creator class name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
                         labels:#( 'Proceed' 'Cancel' 'Debug' )
                         values:#( #proceed #cancel #debug )
                         default:#cancel.
@@ -8062,7 +8062,7 @@
                 'DebugView [info]: caught exception - debugging' infoPrintCR.
                 Debugger
                     enterUnconditional:(ex suspendedContext)
-                    withMessage:'Error in debugger: ' , eMsg
+                    withMessage:(ex creator class name,' in debugger: ' , eMsg)
                     mayProceed:true.
                 ex proceed.
             ].
@@ -9449,15 +9449,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
+    ^ '$Id: DebugView.st,v 1.669 2014-11-07 19:31:46 cg Exp $'
 ! !