From 5291d51b50cfd6fbad0b93ee04ce0ee45a9d3826 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 22 Apr 2017 18:14:39 -0700
Subject: [PATCH] Fix call to string-builder that was missed.

---
 tests/runtime/test-string.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/runtime/test-string.scm b/tests/runtime/test-string.scm
index d6275af3d..44f37966a 100644
--- 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
-- 
2.25.1