* lib.c (int_str): Regression: handle base argument properly.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 74c712b3..c4415ac2 100644
--- a/lib.c
+++ b/lib.c
@@ -2448,7 +2448,7 @@ val int_str(val str, val base)
 {
   const wchar_t *wcs = c_str(str);
   wchar_t *ptr;
-  cnum b = if3(base, c_num(base), 10);
+  cnum b = c_num(default_arg(base, num_fast(10)));
 
   /* TODO: detect if we have wcstoll */
   long value = wcstol(wcs, &ptr, b ? b : 10);