diff --git a/Packages/Cartesian_kernel/changes.txt b/Packages/Cartesian_kernel/changes.txt
index 52d4eaee78e..424818f4aaf 100644
--- a/Packages/Cartesian_kernel/changes.txt
+++ b/Packages/Cartesian_kernel/changes.txt
@@ -1,3 +1,7 @@
+Version 6.90 (5 June 2003) 
+- Add unfinished functor to CompareX_2
+  operator()( const Segment_2& s1, int i1, const Segment_2& s2, int i2)
+
 Version 6.89 (2 June 2003) 
 - -DCGAL_NO_DEPRECATED_CODE fixes.
 
diff --git a/Packages/Cartesian_kernel/include/CGAL/Cartesian/function_objects.h b/Packages/Cartesian_kernel/include/CGAL/Cartesian/function_objects.h
index b9f8b9fe15c..a6a1a65f009 100644
--- a/Packages/Cartesian_kernel/include/CGAL/Cartesian/function_objects.h
+++ b/Packages/Cartesian_kernel/include/CGAL/Cartesian/function_objects.h
@@ -538,6 +538,7 @@ namespace CartesianKernelFunctors {
   {
     typedef typename K::Point_2    Point_2;
     typedef typename K::Line_2     Line_2;
+    typedef typename K::Segment_2  Segment_2;
   public:
     typedef Comparison_result      result_type;
     typedef Arity_tag< 2 >     Arity;
@@ -564,6 +565,11 @@ namespace CartesianKernelFunctors {
       return compare_xC2(l1.a(), l1.b(), l1.c(), h1.a(), h1.b(), h1.c(),
 			 l2.a(), l2.b(), l2.c(), h2.a(), h2.b(), h2.c());
     }
+
+    Comparison_result
+    operator()( const Segment_2& s1, int i1,
+                const Segment_2& s2, int i2) const
+    { return operator()(s1.vertex(i1), s2.vertex(i2)); }
   };
 
   template <typename K>