diff --git a/lcl/interfaces/carbon/carboncanvas.pp b/lcl/interfaces/carbon/carboncanvas.pp
index ff1992882d..9df43e1aa3 100644
--- a/lcl/interfaces/carbon/carboncanvas.pp
+++ b/lcl/interfaces/carbon/carboncanvas.pp
@@ -1512,7 +1512,7 @@ begin
         CGContextTranslateCTM(LayerContext, 0, -SrcHeight);
 
         SetCGFillping(LayerContext, Width, Height);
-        if SubMask then CGContextClipToMask(LayerContext, ImgRect, MskImage);
+        if Assigned(MskImage) then CGContextClipToMask(LayerContext, ImgRect, MskImage);
         CGContextDrawImage(LayerContext, ImgRect, Image);
 
         CGContextDrawLayerInRect(CGContext, DstRect, Layer);