diff --git a/DebuggerUnit.pas b/DebuggerUnit.pas
index 2f91089..697f02b 100644
--- a/DebuggerUnit.pas
+++ b/DebuggerUnit.pas
@@ -2293,14 +2293,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, 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 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);
-  p^ := Smaller((a shr 16 and $FF * not alpha + b shr 16 and $FF * alpha + $FF) shr 8 + shade, $FF); Inc(p); }
+  p^ := Smaller((a shr 16 and $FF * not alpha + b shr 16 and $FF * alpha + $FF) shr 8 + shade, $FF); Inc(p);
 end;
 
 procedure TDebuggerForm.BitmapToCanvas(Level: integer);
diff --git a/PNut_v39.exe b/PNut_v39.exe
index ca2b881..087bdbc 100644
Binary files a/PNut_v39.exe and b/PNut_v39.exe differ