diff --git a/DebuggerUnit.pas b/DebuggerUnit.pas
index ef89605..2f91089 100644
--- a/DebuggerUnit.pas
+++ b/DebuggerUnit.pas
@@ -2294,9 +2294,9 @@ procedure TDebuggerForm.DrawGoButton(ButtonColor, CaptionColor: integer);
 procedure TDebuggerForm.BlendPixel(var p:PByte; a, b: integer; alpha, shade: byte);
 begin
   // New gamma-corrected alpha blending
-  p^ := Round(Power((Power(a shr 00 and $FF, 2.0) * (255 - alpha) + Power(b shr 00 and $FF, 2.0) * alpha) / 256, 1 / 0.5)); Inc(p);
-  p^ := Round(Power((Power(a shr 08 and $FF, 2.0) * (255 - alpha) + Power(b shr 08 and $FF, 2.0) * alpha) / 256, 1 / 0.5)); Inc(p);
-  p^ := Round(Power((Power(a shr 16 and $FF, 2.0) * (255 - alpha) + Power(b shr 16 and $FF, 2.0) * alpha) / 256, 1 / 0.5)); Inc(p);
+  p^ := Round(Power((Power(a shr 00 and $FF, 2.0) * (255 - alpha) + Power(b shr 00 and $FF, 2.0) * alpha) / 256, 0.5)); Inc(p);
+  p^ := Round(Power((Power(a shr 08 and $FF, 2.0) * (255 - alpha) + Power(b shr 08 and $FF, 2.0) * alpha) / 256, 0.5)); Inc(p);
+  p^ := Round(Power((Power(a shr 16 and $FF, 2.0) * (255 - alpha) + Power(b shr 16 and $FF, 2.0) * alpha) / 256, 0.5)); Inc(p);
   // Old linear alpha blending
 { p^ := Smaller((a shr 00 and $FF * not alpha + b shr 00 and $FF * alpha + $FF) shr 8 + shade, $FF); Inc(p);
   p^ := Smaller((a shr 08 and $FF * not alpha + b shr 08 and $FF * alpha + $FF) shr 8 + shade, $FF); Inc(p);
diff --git a/PNut_v39.exe b/PNut_v39.exe
index 4110874..ca2b881 100644
Binary files a/PNut_v39.exe and b/PNut_v39.exe differ