Matthew Fulmer uploaded a new version of Collections to project The Inbox:
http://source.squeak.org/inbox/Collections-mtf.420.mcz

==================== Summary ====================

Name: Collections-mtf.420
Author: mtf
Time: 6 January 2011, 2:14:56.298 pm
UUID: adc5fe75-18ce-4e64-976a-54f588e2f8af
Ancestors: Collections-mtf.419

support methods with positional arguments. Needed by OpenGL in Croquet

=============== Diff against Collections-mtf.419 ===============

Item was changed:
  ----- Method: String>>numArgs (in category 'system primitives') -----
+ numArgs
- numArgs 
  	"Answer either the number of arguments that the receiver would take if considered a selector.  Answer -1 if it couldn't be a selector.  Note that currently this will answer -1 for anything begining with an uppercase letter even though the system will accept such symbols as selectors.  It is intended mostly for the assistance of spelling correction."
  
  	| firstChar numColons excess start ix |
  	self size = 0 ifTrue: [^ -1].
  	firstChar := self at: 1.
  	(firstChar isLetter or: [firstChar = $:]) ifTrue:
+ 		[(ix := self findString: '()/') > 0 ifTrue: [
+ 			"positional keyword selector"
+ 			(self copyFrom: 1 to: ix-1) numArgs = 0 ifFalse: [^ -1]. "fast check that the name portion of the selector is valid"
+ 			^ Number readFrom: (self copyFrom: ix+3 to: self size) ifFail: [-1]].
+ 		
+ 		"Fast reject if any chars are non-alphanumeric
- 		["Fast reject if any chars are non-alphanumeric
  		NOTE: fast only for Byte things - Broken for Wide"
  		self class isBytes
  			ifTrue: [(self findSubstring: '~' in: self startingAt: 1 matchTable: Tokenish) > 0 ifTrue: [^ -1]]
  			ifFalse: [2 to: self size do: [:i | (self at: i) tokenish ifFalse: [^ -1]]].
  		"Fast colon count"
  		numColons := 0.  start := 1.
  		[(ix := self indexOf: $: startingAt: start) > 0]
  			whileTrue:
  				[numColons := numColons + 1.
  				start := ix + 1].
  		numColons = 0 ifTrue: [^ 0].
  		firstChar = $:
  			ifTrue: [excess := 2 "Has an initial keyword, as #:if:then:else:"]
  			ifFalse: [excess := 0].
  		self last = $:
  			ifTrue: [^ numColons - excess]
  			ifFalse: [^ numColons - excess - 1 "Has a final keywords as #nextPut::andCR"]].
  	firstChar isSpecial ifTrue:
  		[self size = 1 ifTrue: [^ 1].
  		2 to: self size do: [:i | (self at: i) isSpecial ifFalse: [^ -1]].
  		^ 1].
+ 	^ -1.
+ !
- 	^ -1.!