runtime/world-report.scm (ticks->string): parameterize* a param.

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 3cf22f7b0a35e8fafdb9ac2988a031afd5bd435f..22bc5a07c91009f3d2386a0dda02eed9f3817719 100644 (file)
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -57,7 +57,7 @@ USA.
     (thread-report flags port)))
 
 (define (ticks->string ticks)
-  (parameterize* (list (cons flonum-unparser-cutoff '(absolute 3)))
+  (parameterize* (list (cons param:flonum-unparser-cutoff '(absolute 3)))
     (lambda ()
       (number->string (internal-time/ticks->seconds ticks) 10))))