diff --git a/coders/sun.c b/coders/sun.c
index 08b2dd2..086141d 100644
--- a/coders/sun.c
+++ b/coders/sun.c
@@ -843,7 +843,7 @@
for (x=0; x < (long) image->columns; x++)
{
if (image->matte != MagickFalse)
- *q++=ScaleQuantumToChar((Quantum) (QuantumRange-GetOpacityPixelComponent(p)));
+ *q++=ScaleQuantumToChar((Quantum) (GetAlphaPixelComponent(p)));
*q++=ScaleQuantumToChar(GetRedPixelComponent(p));
*q++=ScaleQuantumToChar(GetGreenPixelComponent(p));
*q++=ScaleQuantumToChar(GetBluePixelComponent(p));