Fix missed parameterization reference.

diff --git a/src/imail/imail-util.scm b/src/imail/imail-util.scm
index be1d565aeb74c3f83b88f5af7ec3a2db5fa3a819..ef546ff1617fee6c32bc1bf5284f0e119969ab10 100644 (file)
--- a/src/imail/imail-util.scm
+++ b/src/imail/imail-util.scm
@@ -249,7 +249,7 @@ USA.
   (if (< n (expt 10 (- k 1)))
       (string-append (string-pad-left (number->string n) (- k 1)) " ")
       (let ((s
-            (parameterize* (list (cons flonum-unparser-cutoff
+            (parameterize* (list (cons param:flonum-unparser-cutoff
                                        `(RELATIVE ,k ENGINEERING)))
               (lambda ()
                 (number->string (exact->inexact n))))))