Notification.st
changeset 5227 73a2dc34cb42
parent 4605 7d5e97290c97
child 6206 59d1ec1e1ed5
--- a/Notification.st	Wed Feb 02 13:15:50 2000 +0100
+++ b/Notification.st	Wed Feb 02 13:39:00 2000 +0100
@@ -202,7 +202,7 @@
     <exception: #handle>
 
     "/ thisContext markForHandle. -- same as above pragma
-    aBlock value.  "the real logic is in Exception>>doRaise"
+    ^ aBlock value.  "the real logic is in Exception>>doRaise"
 
     "
      Notification answer:true do:[
@@ -348,6 +348,6 @@
 !Notification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.8 1999-08-18 15:16:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.9 2000-02-02 12:39:00 cg Exp $'
 ! !
 Notification initialize!