Index: Backends/CLX/medium.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp,v
retrieving revision 1.72
diff -u -r1.72 medium.lisp
--- Backends/CLX/medium.lisp	17 Feb 2006 14:16:39 -0000	1.72
+++ Backends/CLX/medium.lisp	14 Mar 2006 09:15:34 -0000
@@ -564,7 +564,7 @@
   (with-transformed-position ((sheet-native-transformation (medium-sheet medium))
                               center-x center-y)
     (let* ((arc-angle (- end-angle start-angle))
-           (arc-angle (if (< end-angle 0)
+           (arc-angle (if (< arc-angle 0)
                           (+ (* pi 2) arc-angle)
                           arc-angle)))
       (with-clx-graphics (medium)
@@ -588,7 +588,7 @@
 							    medium))
                               center-x center-y)
     (let* ((arc-angle (- end-angle start-angle))
-           (arc-angle (if (< end-angle 0)
+           (arc-angle (if (< arc-angle 0)
                           (+ (* pi 2) arc-angle)
                           arc-angle))
 	   (min-x (round-coordinate (- center-x radius)))
