Class new title: FieldNameCollector
	subclassof: TokenCollector
	fields: ''
	declare: ''

identifier: t1 
	[sink next_ t1]

leftparen 
	[self next_ '(']

next_ t1 
	[user notify: 'Invalid field name: ' + t1 asString]

rightparen 
	[self next_ ')']