--- a/ProtoObject.st	Fri Jun 05 18:10:36 2015 +0200
+++ b/ProtoObject.st	Fri Jun 05 18:10:58 2015 +0200
@@ -146,7 +146,7 @@
 !
 
 ifNotNil:aBlockOrValue
-    (aBlockOrValue isBlock and:[aBlockOrValue numArgs == 1]) ifTrue:[
+    (aBlockOrValue isBlock and:[aBlockOrValue argumentCount == 1]) ifTrue:[
         ^ aBlockOrValue value:self.
     ].
     ^ aBlockOrValue value
@@ -190,10 +190,10 @@
 !ProtoObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.15 2015-05-16 09:50:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.16 2015-06-05 16:10:58 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.15 2015-05-16 09:50:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.16 2015-06-05 16:10:58 stefan Exp $'
 ! !