--- a/VarArgCheapBlock.st	Mon Apr 15 17:28:48 2013 +0200
+++ b/VarArgCheapBlock.st	Tue Apr 16 14:44:09 2013 +0200
@@ -55,20 +55,18 @@
     "must clear the is-block flag bit in the class
      (otherwise, the VM might try to inline value-messages)"
 
-    |flags|
+    |newFlags|
 
-    flags := self flags.
-    flags := flags bitClear:(Behavior flagBlock).
-    flags := flags bitOr:(Behavior flagBlockLike).
-    self flags:flags.
+    newFlags := (self flags 
+                    bitClear:(Behavior flagBlock))
+                        bitOr:(Behavior flagBlockLike).
+    self flags:newFlags.
 
     "
      self flags.       
      self initialize.
      self flags.      
     "
-
-
 ! !
 
 !VarArgCheapBlock methodsFor:'evaluation'!
@@ -200,7 +198,8 @@
 !VarArgCheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/VarArgCheapBlock.st,v 1.5 2011-09-29 11:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/VarArgCheapBlock.st,v 1.6 2013-04-16 12:44:09 cg Exp $'
 ! !
 
+
 VarArgCheapBlock initialize!