Index: medium.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/medium.lisp,v
retrieving revision 1.54
diff -u -F^( -r1.54 medium.lisp
--- medium.lisp	24 Jan 2005 23:03:41 -0000	1.54
+++ medium.lisp	20 Sep 2005 16:07:00 -0000
@@ -585,7 +597,7 @@ (defmethod line-style-equalp ((style1 st
        (eql (line-style-thickness style1) (line-style-thickness style2))
        (eql (line-style-joint-shape style1) (line-style-joint-shape style2))
        (eql (line-style-cap-shape style1) (line-style-cap-shape style2))
-       (eql (line-style-thickness style1) (line-style-thickness style2))))
+       (eql (line-style-dashes style1) (line-style-dashes style2))))
 
 ;;; Misc ops
 
