# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 933431696 -7200
# Node ID 782108345281a877e0fe6b9065fb5c64596d4260
# Parent  ef99343d675668b6d4c82807fb0937fb242224ba
avoid a delegating send in handler-return action.

diff -r ef99343d6756 -r 782108345281 Exception.st
--- a/Exception.st	Sat Jul 31 16:33:42 1999 +0200
+++ b/Exception.st	Sat Jul 31 16:34:56 1999 +0200
@@ -1479,7 +1479,7 @@
 
     con := handlerContext.
     resumeBlock := rejectBlock := handlerContext := suspendedContext := nil.
-    con unwind
+    con unwind:nil
 
     "Modified: 27.3.1997 / 16:46:39 / cg"
 !
@@ -1901,6 +1901,6 @@
 !Exception class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.74 1999-07-31 13:54:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.75 1999-07-31 14:34:56 cg Exp $'
 ! !
 Exception initialize!