diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index 871ad0a577..f8f917bddc 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -390,17 +390,8 @@ begin
 end;
 
 procedure TCanvas.DoEllipseFill(const Bounds: TRect);
-var
-  x: Integer;
-  y: Integer;
-  w: Integer;
-  h: Integer;
 begin
-  x:=(Bounds.Left+Bounds.Right) div 2;
-  y:=(Bounds.Top+Bounds.Bottom) div 2;
-  w:=Abs(Bounds.Right-Bounds.Left) div 2;
-  h:=Abs(Bounds.Bottom-Bounds.Top) div 2;
-  Chord(x,y,w,h,0,360*16);
+  Ellipse(Bounds);
 end;
 
 procedure TCanvas.DoEllipseAndFill(const Bounds: TRect);
@@ -1544,6 +1535,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.90  2005/02/04 01:04:40  mattias
+  fixed gtk intf Arc
+
   Revision 1.89  2005/01/15 11:56:13  mattias
   fixed locking TCanvas
 
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index bf7987af6e..e0b05638b2 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -75,7 +75,7 @@ begin
         inc(X,DCOrigin.X);
         inc(Y,DCOrigin.Y);
         {$IFDEF DebugGDKTraps}BeginGDKErrorTrap;{$ENDIF}
-        gdk_draw_arc(Drawable, GC, 0, X, Y, Width, Height,
+        gdk_draw_arc(Drawable, GC, 0, X-Width, Y-Height, 2*Width, 2*Height,
                      Angle1 shl 2, Angle2 shl 2);
         {$IFDEF DebugGDKTraps}EndGDKErrorTrap;{$ENDIF}
       end else
@@ -8862,6 +8862,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.391  2005/02/04 01:04:41  mattias
+  fixed gtk intf Arc
+
   Revision 1.390  2005/01/28 17:55:48  mattias
   fixed mem leak