accessing
nextTokenPreview
	^ (self nextToken copyFrom: 1 to: 7), '...'