From e39d4d634fc2172b523f4f37fa4efc86c3c772b5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jan 2017 11:54:31 -0800
Subject: [PATCH] Fix missed parameterization reference.

---
 src/imail/imail-util.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/imail/imail-util.scm b/src/imail/imail-util.scm
index be1d565ae..ef546ff16 100644
--- 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))))))
-- 
2.25.1