--- 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 $'
! !