--- a/CheapBlock.st	Sat Apr 01 15:04:33 2000 +0200
+++ b/CheapBlock.st	Sat Apr 01 15:05:54 2000 +0200
@@ -10,7 +10,9 @@
  hereby transferred.
 "
 
-Block subclass:#CheapBlock
+"{ Package: 'stx:libbasic' }"
+
+Block variableSubclass:#CheapBlock
 	instanceVariableNames:'selfValue method'
 	classVariableNames:''
 	poolDictionaries:''
@@ -120,7 +122,7 @@
 
 !CheapBlock methodsFor:'conversion'!
 
-beVarArg
+asVarArgBlock
     "convert myself into a varArg block;
      this one has 1 formal argument, which gets the list
      of actual arguments when evaluated."
@@ -136,7 +138,7 @@
     "
      |b|
 
-     b := [:argList | argList printCR] beVarArg.
+     b := [:argList | argList printCR] asVarArgBlock.
      b value.
      b value:'arg1' value:'arg2' value:'arg3' value:'arg4'
     "
@@ -180,5 +182,5 @@
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.19 1997-06-19 14:17:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.20 2000-04-01 13:05:54 cg Exp $'
 ! !