--- a/Block.st	Wed May 22 01:28:19 2013 +0200
+++ b/Block.st	Fri May 24 19:09:05 2013 +0200
@@ -2484,10 +2484,11 @@
     "the receiver must be a block of one argument.  It is evaluated, and is passed a block,
      which, if sent a value-message, will restart the receiver block from the beginning"
 
-    |myContext|
+    |myContext restartAction|
 
     myContext := thisContext.
-    ^ self value:[ myContext restart ].
+    restartAction := [ myContext restart ].
+    ^ self value:restartAction.
 
     "
      [:restart |
@@ -2504,10 +2505,11 @@
     "the receiver must be a block of two arguments, a restart and an exit block.
      See description of valueWithExit and valueWithRestart for their use"
 
-    |myContext|
+    |myContext restartAction|
 
     myContext := thisContext.
-    ^ self value:[myContext restart] value:[:exitValue | ^exitValue].
+    restartAction := [ myContext restart ].
+    ^ self value:restartAction value:[:exitValue | ^exitValue].
 
     "
      [:restart :exit |
@@ -3118,11 +3120,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.196 2013-05-13 19:21:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.197 2013-05-24 17:09:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.196 2013-05-13 19:21:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.197 2013-05-24 17:09:05 cg Exp $'
 ! !