1 files changed, 4 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index d0cee7e6..d1f765a9 100644
--- a/lib.c
+++ b/lib.c
@@ -8406,7 +8406,10 @@ finish:
   case NUM:
   case BGNUM:
   case FLNUM:
-    format(out, lit("~s"), obj, nao);
+    {
+      val fmt = cdr(lookup_var(nil, print_flo_format_s));
+      format(out, fmt, obj, nao);
+    }
     break;
   case SYM:
     if (!pretty) {