--- a/Block.st	Tue Aug 03 14:51:01 1999 +0200
+++ b/Block.st	Tue Aug 03 14:55:02 1999 +0200
@@ -1037,7 +1037,7 @@
 
     theContext selector == #on:do: ifTrue:[
         sig := theContext argAt:1.
-        (sig accepts:signal) ifTrue:[
+        (sig == signal or:[sig accepts:signal]) ifTrue:[
             handler := theContext argAt:2.
             "/ this is for backward compatibility when no ex-arg
             "/ is expected in the block. Is it worth the effort ?
@@ -1610,6 +1610,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.89 1999-08-02 13:41:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.90 1999-08-03 12:55:02 cg Exp $'
 ! !
 Block initialize!