SmalltalkProxy does no implement at:ifPresent:ifAbsent:.
It will be good to have it. I already implement it as:
at: key ifPresent: oneArgBlock ifAbsent: absentBlock
self at: key ifPresent: [ :v | ^oneArgBlock value: v ].
^absentBlock value
But it will be better if it is present in GemStone by default.