--- a/Block.st	Thu May 14 14:29:31 2009 +0200
+++ b/Block.st	Thu May 14 22:02:24 2009 +0200
@@ -542,6 +542,7 @@
     "Created: 15.11.1996 / 11:38:37 / cg"
 ! !
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -1923,8 +1924,9 @@
     |showStopper me signal retVal|
 
     me := Processor activeProcess.
+
     signal := Signal new notifierString:'timeout'.
-    showStopper := [me interruptWith:signal raise].
+    showStopper := [ me interruptWith:[ signal raise ] ].
 
     signal handle:[:ex |
         retVal := exceptionBlock value.
@@ -2819,7 +2821,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.164 2009-03-17 16:22:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.165 2009-05-14 20:02:24 cg Exp $'
 ! !
 
 Block initialize!