--- a/Block.st	Thu Apr 29 16:55:35 2010 +0100
+++ b/Block.st	Tue May 04 12:50:05 2010 +0100
@@ -548,6 +548,7 @@
     "Created: 15.11.1996 / 11:38:37 / cg"
 ! !
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -2002,12 +2003,12 @@
     signal handle:[:ex |
         retVal := exceptionBlock value.
     ] do:[
-        Processor 
-            addTimedBlock:showStopper 
-            for:me 
-            afterMilliseconds:aTimeLimit.
-
         [
+            Processor 
+                addTimedBlock:showStopper 
+                for:me 
+                afterMilliseconds:aTimeLimit.
+
             retVal := self value.
         ] ensure:[ Processor removeTimedBlock:showStopper ].
     ].
@@ -2900,15 +2901,16 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Block.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: Block.st 10520 2010-05-04 11:50:05Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.175 2009/12/17 11:46:36 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.176 2010/04/23 13:33:01 mb Exp §'
 !
 
 version_SVN
-    ^ '$Id: Block.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: Block.st 10520 2010-05-04 11:50:05Z vranyj1 $'
 ! !
 
 Block initialize!
+