Index: graphics.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/graphics.lisp,v
retrieving revision 1.53
diff -r1.53 graphics.lisp
580c580,581
<                (offset     (if (and head-length (not (zerop head-length)))
---
>                (offset     (transform-distance (invert-transformation (medium-transformation medium))
> 		(if (and head-length (not (zerop head-length)))
582c583
<                                0.0))               
---
>                                0.0) 0))