--- a/Block.st	Mon Apr 19 18:47:50 2010 +0200
+++ b/Block.st	Fri Apr 23 15:33:01 2010 +0200
@@ -547,6 +547,7 @@
     "Created: 15.11.1996 / 11:38:37 / cg"
 ! !
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -2001,12 +2002,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 ].
     ].
@@ -2899,11 +2900,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$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_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 $'
 ! !
 
 Block initialize!