accessing
queryOracles
	| currentRoll |
	currentRoll := self roll.
	^ self oracles detect: [ :each | (each at: 'dice') = currentRoll ] ifNone: [ ^ currentRoll ]