Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ul.298.mcz

==================== Summary ====================

Name: MorphicExtras-ul.298
Author: ul
Time: 3 September 2021, 3:50:07.605798 pm
UUID: a5ca0c21-1176-4adc-a317-72a33a2ae11a
Ancestors: MorphicExtras-mt.297

- ifNotNilDo: -> ifNotNil:

=============== Diff against MorphicExtras-mt.297 ===============

Item was changed:
  ----- Method: PostscriptCanvas>>image:at:sourceRect:rule: (in category 'private') -----
  image: form at: aPoint sourceRect: sourceRect rule: rule 
  	| aForm |
  	self preserveStateDuring:
  		[:inner | inner translate: aPoint + self origin.
  		aForm := form depth <= 8 ifTrue: [form asFormOfDepth: 32] ifFalse: [form].
  		target write: ((aForm colorsUsed includes: Color transparent)
  			ifTrue: [| top f2 c2 offset |
  				"tfel: This was taken from SketchMorph, but is actually needed for all 
  				forms that use transparency"
+ 				offset := currentTransformation ifNil: [0 at 0] ifNotNil: [:t | t offset].
- 				offset := currentTransformation ifNil: [0 at 0] ifNotNilDo: [:t | t offset].
  				top := self topLevelMorph.
  				f2 := Form extent: aForm extent depth: self depth.
  				c2 := f2 getCanvas.
  				c2 fillColor: Color white.
  				c2
  					translateBy: offset - self origin - aPoint
  					clippingTo: f2 boundingBox
  					during: [:c | top fullDrawOn: c].
  				f2]
  			ifFalse: [aForm])].
  !