--- a/MiniDebugger.st	Fri Apr 19 09:38:48 2013 +0200
+++ b/MiniDebugger.st	Tue Apr 23 14:27:19 2013 +0100
@@ -141,7 +141,7 @@
 
     ^ self
         enter:ex returnableSuspendedContext
-        withMessage:(ex signal name,': ',ex descriptionForDebugger)
+        withMessage:(ex creator name,': ',ex descriptionForDebugger)
         mayProceed:(ex mayProceed).
 !
 
@@ -955,10 +955,10 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.83 2013-03-26 14:20:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.84 2013-04-19 09:40:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.83 2013-03-26 14:20:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.84 2013-04-19 09:40:36 cg Exp $'
 ! !