Signal.st
changeset 4513 b16770982c62
parent 4506 731d94912596
child 4518 4716c8d7cb4c
--- a/Signal.st	Tue Aug 03 14:51:01 1999 +0200
+++ b/Signal.st	Tue Aug 03 14:55:02 1999 +0200
@@ -437,7 +437,7 @@
 
     (theContext selector ~~ #'handle:from:do:'
      or:[(theContext argAt:2) == originator]) ifTrue:[
-        (self accepts:signal) ifTrue:[
+        (self == signal or:[self accepts:signal]) ifTrue:[
             ^ theContext argAt:1
         ]
     ].
@@ -837,6 +837,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.62 1999-08-03 11:47:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.63 1999-08-03 12:52:45 cg Exp $'
 ! !
 Signal initialize!