1 files changed, 3 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 96b18000..a38ac973 100644
--- a/lib.c
+++ b/lib.c
@@ -10188,7 +10188,9 @@ dot:
     break;
   case FLNUM:
     {
-      val fmt = cdr(lookup_var(nil, print_flo_format_s));
+      val fmt = cdr(lookup_var(nil,
+                               if3(pretty,
+                                   pprint_flo_format_s, print_flo_format_s)));
       format(out, fmt, obj, nao);
     }
     break;