--- a/VarArgBlock.st	Wed Oct 11 14:33:30 2017 +0200
+++ b/VarArgBlock.st	Wed Oct 11 15:55:36 2017 +0200
@@ -46,34 +46,34 @@
     Create a variableArgument block by sending #asVarArgBlock to a regular
     block.
 
-    This is a goody add-on, which may not be available/possible in other 
+    This is a goody add-on, which may not be available/possible in other
     smalltalk implementations. Do not use it if cross-platform
     portability is required.
 
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 
     [see also:]
-        Block
+	Block
 "
 !
 
 examples
 "
    the same block, evaluated with 2 or 5 arguments:
-                                                                [exBegin]
+								[exBegin]
      |b|
 
      b := [:args | Transcript show:'wow: '; showCR:args] asVarArgBlock.
 
-     b value:'hi' value:'there'. 
+     b value:'hi' value:'there'.
      b value:'hello' value:'there' value:'how' value:'about' value:'this'.
-                                                                [exEnd]
+								[exEnd]
 
 
    does it accept a variable number of arguments ?:
-                                                                [exBegin]
+								[exBegin]
      |b|
 
      b := [:args | Transcript showCR:args].
@@ -81,7 +81,7 @@
 
      b := [:args | Transcript showCR:args] asVarArgBlock.
      Transcript showCR:(b isVarArgBlock)
-                                                                [exEnd]
+								[exEnd]
 "
 
     "Created: 23.1.1997 / 04:57:26 / cg"
@@ -95,15 +95,15 @@
 
     |newFlags|
 
-    newFlags := (self flags 
-                    bitClear:(Behavior flagBlock))
-                        bitOr:(Behavior flagBlockLike).
+    newFlags := (self flags
+		    bitClear:(Behavior flagBlock))
+			bitOr:(Behavior flagVarArgBlock).
     self flags:newFlags.
 
     "
-     self flags.       
+     self flags.
      self initialize.
-     self flags.      
+     self flags.
     "
 ! !
 
@@ -144,10 +144,10 @@
 value:arg1 value:arg2 value:arg3 value:arg4
     "evaluate the receiver with four arguments."
 
-    ^ super value:(Array 
-		    with:arg1 
-		    with:arg2 
-		    with:arg3 
+    ^ super value:(Array
+		    with:arg1
+		    with:arg2
+		    with:arg3
 		    with:arg4)
 
     "Modified: 22.1.1997 / 19:41:22 / cg"
@@ -157,10 +157,10 @@
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5
     "evaluate the receiver with five arguments."
 
-    ^ super value:(Array 
-		    with:arg1 
-		    with:arg2 
-		    with:arg3 
+    ^ super value:(Array
+		    with:arg1
+		    with:arg2
+		    with:arg3
 		    with:arg4
 		    with:arg5)
 
@@ -171,10 +171,10 @@
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6
     "evaluate the receiver with six arguments."
 
-    ^ super value:(Array 
-		    with:arg1 
-		    with:arg2 
-		    with:arg3 
+    ^ super value:(Array
+		    with:arg1
+		    with:arg2
+		    with:arg3
 		    with:arg4
 		    with:arg5
 		    with:arg6)
@@ -186,10 +186,10 @@
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6 value:arg7
     "evaluate the receiver with seven arguments."
 
-    ^ super value:(Array 
-		    with:arg1 
-		    with:arg2 
-		    with:arg3 
+    ^ super value:(Array
+		    with:arg1
+		    with:arg2
+		    with:arg3
 		    with:arg4
 		    with:arg5
 		    with:arg6
@@ -202,10 +202,10 @@
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6 value:arg7 value:arg8
     "evaluate the receiver with eight arguments."
 
-    ^ super value:(Array 
-		    with:arg1 
-		    with:arg2 
-		    with:arg3 
+    ^ super value:(Array
+		    with:arg1
+		    with:arg2
+		    with:arg3
 		    with:arg4
 		    with:arg5
 		    with:arg6
@@ -236,7 +236,7 @@
 !VarArgBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/VarArgBlock.st,v 1.8 2013-04-16 12:44:14 cg Exp $'
+    ^ '$Header$'
 ! !