Fix bug: string-padder was adding the wrong number of clusters.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index f8a6e587d3fa59b2b3423dde853d992b46b87cc6..a71dadc864ad1873d57e78453e027e53af3a67ed 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1330,7 +1330,7 @@ USA.
               (let ((builder (string-builder)))
                 (if (eq? where 'trailing)
                     (builder string))
-                (do ((i 0 (fix:+ i 1)))
+                (do ((i cluster-length (fix:+ i 1)))
                     ((not (fix:< i n)))
                   (builder fill-with))
                 (if (eq? where 'leading)