diff --git a/components/aggpas/src/agg_basics.pas b/components/aggpas/src/agg_basics.pas
index 674428d749..6514d707a6 100644
--- a/components/aggpas/src/agg_basics.pas
+++ b/components/aggpas/src/agg_basics.pas
@@ -372,7 +372,7 @@ type
 // thus instead of directly using SHR we emulate c++ solution.
  function  shr_int8 (i ,shift : int8 ) : int8;
  function  shr_int16(i ,shift : int16 ) : int16;
- function  shr_int32(i ,shift : int ) : int;
+ function  shr_int32(i ,shift : int32 ) : int32;
 
 IMPLEMENTATION
 { UNIT IMPLEMENTATION }
diff --git a/components/aggpas/src/agg_rasterizer_cells_aa.pas b/components/aggpas/src/agg_rasterizer_cells_aa.pas
index 7b8411e61b..18caf00394 100644
--- a/components/aggpas/src/agg_rasterizer_cells_aa.pas
+++ b/components/aggpas/src/agg_rasterizer_cells_aa.pas
@@ -307,6 +307,7 @@ begin
  ey2:=shr_int32(y2 ,poly_subpixel_shift );
  fy1:=y1 and poly_subpixel_mask;
  fy2:=y2 and poly_subpixel_mask;
+ writeln('rasterizer_cells_aa.line x1=',x1,' x2=',x2,' y1=',y1,' y2=',y2,' ex1=',ex1,' ex2=',ex2,' ey1=',ey1,' ey2=',ey1);
 
  if ex1 < m_min_x then
   m_min_x:=ex1;