diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 33f3210b2..e805e63ab 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-07  Ludovic Courtès  <ludo@gnu.org>
+
+	* numbers.c (scm_from_complex_double): Mark as `SCM_UNUSED'.
+	This fixes compilation with `-Werror' on FreeBSD 6.2 (i386).
+
 2008-05-05  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* c-tokenize.lex: #define YY_NO_INPUT.
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 1191042f8..4a458c4a1 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -170,8 +170,10 @@ xisnan (double x)
 #define SCM_COMPLEX_VALUE(z)                                    \
   (SCM_COMPLEX_REAL (z) + GUILE_I * SCM_COMPLEX_IMAG (z))
 
+static inline SCM scm_from_complex_double (complex double z) SCM_UNUSED;
+
 /* Convert a C "complex double" to an SCM value. */
-static SCM
+static inline SCM
 scm_from_complex_double (complex double z)
 {
   return scm_c_make_rectangular (creal (z), cimag (z));