SmalltalkImage >> at:ifAbsent: made consistent with at:[put:]