!BlockContext methodsFor: 'basic'!

doUntil: aBlock

  self value.
  [aBlock value] whileFalse: [self value].
  ^nil
!!