1 files changed, 2 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 437f8716..34ecbb77 100644
--- a/lib.c
+++ b/lib.c
@@ -8526,6 +8526,8 @@ finish:
     break;
   case NUM:
   case BGNUM:
+    format(out, lit("~s"), obj, nao);
+    break;
   case FLNUM:
     {
       val fmt = cdr(lookup_var(nil, print_flo_format_s));