--- a/VarArgBlock.st	Mon Apr 03 14:44:14 2000 +0200
+++ b/VarArgBlock.st	Mon Apr 03 15:19:21 2000 +0200
@@ -97,8 +97,11 @@
     "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.
 
     "
      self flags.       
@@ -238,6 +241,6 @@
 !VarArgBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.3 2000-04-01 13:28:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.4 2000-04-03 13:19:21 cg Exp $'
 ! !
 VarArgBlock initialize!