--- a/Block.st	Thu Aug 19 21:39:34 2010 +0100
+++ b/Block.st	Thu Aug 26 11:12:57 2010 +0100
@@ -548,7 +548,6 @@
     "Created: 15.11.1996 / 11:38:37 / cg"
 ! !
 
-
 !Block methodsFor:'accessing'!
 
 home
@@ -606,7 +605,6 @@
     ^ nargs
 ! !
 
-
 !Block methodsFor:'compatibility-Cola & Pepsi'!
 
 arity
@@ -2015,15 +2013,14 @@
      exceptionBlock's value is returned. The receiver's code must be prepared
      for premature returning (by adding ensure blocks, as required)"
 
-    |showStopper me signal retVal done|
+    |showStopper me retVal done|
 
     done := false.
     me := Processor activeProcess.
 
-    signal := Signal new notifierString:'timeout'.
-    showStopper := [ done ifFalse:[ me interruptWith:[ done ifFalse:[ signal raise ]] ]].
-
-    signal handle:[:ex |
+    showStopper := [ done ifFalse:[ me interruptWith:[ done ifFalse:[ TimeoutNotification raiseRequest ]] ]].
+
+    TimeoutNotification handle:[:ex |
         retVal := exceptionBlock value.
     ] do:[
         [
@@ -2048,7 +2045,7 @@
     "
 
     "Modified: / 21-05-2010 / 12:19:57 / sr"
-    "Modified: / 01-07-2010 / 12:42:54 / cg"
+    "Modified: / 20-08-2010 / 12:16:58 / cg"
 ! !
 
 !Block methodsFor:'exception handling private'!
@@ -2928,15 +2925,15 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Block.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Block.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.181 2010/07/01 10:43:17 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.182 2010/08/20 10:17:59 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Block.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Block.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 ! !
 
 Block initialize!
@@ -2945,3 +2942,4 @@
 
 
 
+