* stream.c (vformat): Bugfix: ~X printing in lower case, like ~x,

when argument is a bignum integer.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 42711681..136fb3dc 100644
--- a/stream.c
+++ b/stream.c
@@ -1862,7 +1862,7 @@ val vformat(val stream, val fmtstr, va_list vl)
             int nchars = mp_radix_size(mp(obj), 16);
             if (nchars >= convert(int, sizeof (num_buf)))
               pnum = coerce(char *, chk_malloc(nchars + 1));
-            mp_toradix_case(mp(obj), coerce(unsigned char *, pnum), 16, 1);
+            mp_toradix_case(mp(obj), coerce(unsigned char *, pnum), 16, ch == 'x');
           } else {
             const char *fmt = ch == 'x' ? num_fmt->hex : num_fmt->HEX;
             value = c_num(obj);