diff --git a/ChangeLog b/ChangeLog
index 3e170fa..b8a205b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2008-04-04  Richard B. Kreckel  <kreckel@ginac.de>
+
+	Re-establish ABI, broken 2008-01-20:
+	* src/float/ffloat/conv/cl_FF_from_float.cc: Add obsolete signature of
+	cl_float_to_FF_pointer.
+	* src/float/dfloat/conv/cl_DF_from_double.cc: Add obsolete signature of
+	cl_double_to_DF_pointer.
+
 2008-03-31  Bruno Haible  <bruno@clisp.org>
 
 	Fix hack from 2008-01-20 that broke on ARM.
diff --git a/TODO b/TODO
index 55f5de3..7a4d982 100644
--- a/TODO
+++ b/TODO
@@ -1,3 +1,12 @@
+ABI Issues:
+
+Remove extra signatures in cl_FF_from_float.cc and cl_DF_from_double.cc.
+
+
+Algorithms:
+
+Niels Moeller's subquadratic GCD
+
 - polynomial division and gcd
 - polynomial documentation
 7. add combinatorial, linear algebra, factorization, polynomial functions
diff --git a/src/float/dfloat/conv/cl_DF_from_double.cc b/src/float/dfloat/conv/cl_DF_from_double.cc
index e4ada06..07537de 100644
--- a/src/float/dfloat/conv/cl_DF_from_double.cc
+++ b/src/float/dfloat/conv/cl_DF_from_double.cc
@@ -11,6 +11,12 @@
 
 namespace cln {
 
+cl_heap_dfloat* cl_double_to_DF_pointer (const dfloatjanus& val_)
+{
+      // XXX: This signature is for binary compatibility with CLN-1.2.0 only.
+      return cl_double_to_DF_pointer(*(double *)(&val_));
+}
+
 cl_heap_dfloat* cl_double_to_DF_pointer (const double x)
 {
       var union { dfloat eksplicit; double machine_double; } u;
diff --git a/src/float/ffloat/conv/cl_FF_from_float.cc b/src/float/ffloat/conv/cl_FF_from_float.cc
index 7181c97..9f4d905 100644
--- a/src/float/ffloat/conv/cl_FF_from_float.cc
+++ b/src/float/ffloat/conv/cl_FF_from_float.cc
@@ -10,6 +10,12 @@ namespace cln {
 
 // Implementation.
 
+cl_private_thing cl_float_to_FF_pointer (const ffloatjanus& val_)
+{
+      // XXX: This signature is for binary compatibility with CLN-1.2.0 only.
+      return cl_float_to_FF_pointer(*(float *)(&val_));
+}
+
 cl_private_thing cl_float_to_FF_pointer (const float x)
 {
       var union { ffloat eksplicit; float machine_float; } u;