Class Boolean
back
or: aBlock
^ self
ifTrue: [ true ]
ifFalse: [ aBlock value ]