--- a/VarArgBlock.st	Tue Apr 16 14:44:09 2013 +0200
+++ b/VarArgBlock.st	Tue Apr 16 14:44:14 2013 +0200
@@ -93,19 +93,18 @@
     "must clear the is-block flag bit in the class
      (otherwise, the VM might try to inline value-messages)"
 
-    |flags|
-    flags := self flags.
-    flags := flags bitClear:(Behavior flagBlock).
-    flags := flags bitOr:(Behavior flagBlockLike).
-    self flags:flags.
+    |newFlags|
+
+    newFlags := (self flags 
+                    bitClear:(Behavior flagBlock))
+                        bitOr:(Behavior flagBlockLike).
+    self flags:newFlags.
 
     "
      self flags.       
      self initialize.
      self flags.      
     "
-
-
 ! !
 
 !VarArgBlock methodsFor:'evaluation'!
@@ -237,7 +236,8 @@
 !VarArgBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.7 2011-09-29 11:19:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.8 2013-04-16 12:44:14 cg Exp $'
 ! !
 
+
 VarArgBlock initialize!