Uses (a and: [b]) and: [c] instead of "a and: [b and: [c]] fails miserably

[RobertoMinelli]

receiver: aReceiver

receiver := (aReceiver isBehavior or: [ aReceiver isDFlowDefinition or: [ aReceiver isRingObject ]])
    ifTrue: [ aReceiver asDFlowDefinition ]
    ifFalse: [ aReceiver class asDFlowDefinition ]