--- a/BlockContext.st	Fri Jun 05 18:07:38 2015 +0200
+++ b/BlockContext.st	Fri Jun 05 18:08:35 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Context variableSubclass:#BlockContext
 	instanceVariableNames:''
 	classVariableNames:''
@@ -145,7 +149,7 @@
 
     |nargs|
 
-    nargs := self numArgs.
+    nargs := self argumentCount.
     (nargs == 0) ifTrue:[^ #value].
     (nargs == 1) ifTrue:[^ #value:].
     (nargs == 2) ifTrue:[^ #value:value:].
@@ -261,10 +265,10 @@
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.39 2013-07-04 06:29:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.40 2015-06-05 16:08:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.39 2013-07-04 06:29:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.40 2015-06-05 16:08:35 stefan Exp $'
 ! !