--- a/Block.st	Sun Sep 05 17:48:37 2010 +0200
+++ b/Block.st	Sun Sep 05 18:08:19 2010 +0200
@@ -545,6 +545,12 @@
     ^ self ifCurtailed:aBlock
 
     "Created: 15.11.1996 / 11:38:37 / cg"
+!
+
+when:exceptionClassOrSignal do:handler
+    ^ self on:exceptionClassOrSignal do:handler
+
+    "Created: / 28-08-2010 / 14:41:15 / cg"
 ! !
 
 !Block methodsFor:'accessing'!
@@ -2924,11 +2930,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.182 2010-08-20 10:17:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.183 2010-09-05 16:08:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.182 2010-08-20 10:17:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.183 2010-09-05 16:08:19 cg Exp $'
 ! !
 
 Block initialize!