--- a/MiniDebugger.st	Tue Mar 26 15:20:32 2013 +0100
+++ b/MiniDebugger.st	Tue Mar 26 15:20:43 2013 +0100
@@ -141,7 +141,7 @@
 
     ^ self
         enter:ex returnableSuspendedContext
-        withMessage:ex descriptionForDebugger
+        withMessage:(ex signal name,': ',ex descriptionForDebugger)
         mayProceed:(ex mayProceed).
 !
 
@@ -955,10 +955,10 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.82 2013-02-23 11:14:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.83 2013-03-26 14:20:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.82 2013-02-23 11:14:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.83 2013-03-26 14:20:43 cg Exp $'
 ! !