'From Cuis 2.0 of 4 January 2010 [latest update: #393] on 8 February 2010 at 9:15:12 am'!

!PositionableStream methodsFor: 'accessing' stamp: 'LC 1/24/2010 11:35'!
nextKeyword
	^self
		untilAnySatisfying: [:c | (c isAlphaNumeric or: [c = $:]) not]! !

!PositionableStream methodsFor: 'accessing' stamp: 'LC 1/24/2010 11:35'!
untilAnySatisfying: aBlock
	| write c |
	write := collection class new writeStream.
	[
		self atEnd not and: [
			c := self peek.
			(aBlock value: c) not]]
		whileTrue: [write nextPut: self next].
	^write contents! !

