--- a/Signal.st Wed Aug 24 01:11:00 1994 +0200
+++ b/Signal.st Wed Aug 24 01:11:14 1994 +0200
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.12 1994-08-22 12:13:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.13 1994-08-23 23:11:14 claus Exp $
'!
!Signal class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.12 1994-08-22 12:13:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.13 1994-08-23 23:11:14 claus Exp $
"
!
@@ -477,7 +477,12 @@
con := thisContext.
con := con sender.
con isRecursive ifTrue:[
- ^ self enterDebuggerWith:'recursive signal raise'
+ "
+ mhmh - an error while in a handler
+ go immediately into the debugger.
+ "
+ ^ self enterDebuggerWith:anException
+ message:'recursive signal raise'
].
[con notNil] whileTrue:[