--- a/Block.st	Tue May 19 17:47:17 2009 +0200
+++ b/Block.st	Wed May 20 12:46:49 2009 +0200
@@ -1935,8 +1935,10 @@
             addTimedBlock:showStopper 
             for:me 
             afterMilliseconds:aTimeLimit.
-        
-        retVal := self ensure:[ Processor removeTimedBlock:showStopper ].
+
+        [
+            retVal := self value.
+        ] ensure:[ Processor removeTimedBlock:showStopper ].
     ].
     ^ retVal
 
@@ -2821,7 +2823,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.165 2009-05-14 20:02:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.166 2009-05-20 10:46:49 cg Exp $'
 ! !
 
 Block initialize!