Fix printing of fractional parts for obase > 10
diff --git a/src/num.c b/src/num.c
index 99215fc..96958f7 100644
--- a/src/num.c
+++ b/src/num.c
@@ -1826,7 +1826,7 @@
 	bc_num_one(&frac_len);
 	bc_num_createCopy(&intp, n);
 
-	bc_num_truncate(&intp, intp.rdx);
+	bc_num_truncate(&intp, intp.scale);
 	s = bc_num_sub(n, &intp, &fracp, 0);
 	if (BC_ERROR_SIGNAL_ONLY(s)) goto err;