--- a/Block.st	Wed Dec 21 19:18:34 2005 +0100
+++ b/Block.st	Wed Dec 21 19:34:28 2005 +0100
@@ -1064,22 +1064,23 @@
     "evaluate the receiver, at the given prioriy;
      i.e. change the priority for the execution of the receiver."
 
-    |oldPrio retVal|
-
+    |oldPrio retVal activeProcess|
+
+    activeProcess := Processor activeProcess.
     oldPrio := Processor activePriority.
     [
-	Processor activeProcess priority:priority.
-	retVal := self value.
+        activeProcess priority:priority.
+        retVal := self value.
     ] ensure:[
-	Processor activeProcess priority:oldPrio
+        activeProcess priority:oldPrio
     ].
     ^ retVal
 
     "
      [
-	 1000 timesRepeat:[
-	     1000 factorial
-	 ]
+         1000 timesRepeat:[
+             1000 factorial
+         ]
      ] valueAt:3
     "
 
@@ -2264,7 +2265,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.146 2005-12-13 16:45:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.147 2005-12-21 18:34:28 cg Exp $'
 ! !
 
 Block initialize!