Small fix in builtin.c.

2 files changed, 8 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index abef0efd..aff57a34 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,11 @@
 
 	* interpret.h: Remove subscript_in_array variable.
 
+	Unrelated:
+
+	* builtin.c (add_thousands): Fix insertion of thousands_sep
+	string. Do it in reverse order.
+
 2021-09-10         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* interpret.h: For Op_subscript, don't allow references into
diff --git a/builtin.c b/builtin.c
index 73a404e6..cf0c98e3 100644
--- a/builtin.c
+++ b/builtin.c
@@ -4419,9 +4419,10 @@ add_thousands(const char *original, struct lconv *loc)
 		if (loc->grouping[ii] && ++jj == loc->grouping[ii]) {
 			if (src >= original) {	/* only add if more digits coming */
 				const char *ts = loc->thousands_sep;
+				int k;
 
-				while (*ts != '\0')
-					*dest++ = *ts++;
+				for (k = strlen(ts) - 1; k >= 0; k--)
+					*dest++ = ts[k];
 			}
 			if (loc->grouping[ii+1] == 0)
 				jj = 0;		/* keep using current val in loc.grouping[ii] */