Fix call to string-builder that was missed.

diff --git a/tests/runtime/test-string.scm b/tests/runtime/test-string.scm
index d6275af3dee7b31c4d6761e2bc237b0d847a4282..44f37966a6549d74d72f1a47c72d1e0acf7d4000 100644 (file)
--- a/tests/runtime/test-string.scm
+++ b/tests/runtime/test-string.scm
@@ -175,7 +175,7 @@ USA.
      'expression string)))
 
 (define (convert-break-test-case test-case)
-  (let ((builder (string-builder 'normalization 'none)))
+  (let ((builder (string-builder)))
     (let loop ((test-case test-case) (index 0) (breaks '()))
       (let ((breaks
             (if (car test-case)
@@ -185,7 +185,7 @@ USA.
            (begin
              (builder (cadr test-case))
              (loop (cddr test-case) (fix:+ index 1) breaks))
-           (values (builder)
+           (values (builder 'immutable)
                    (reverse! breaks)))))))
 
 (define-test 'grapheme-cluster-breaks